VBÓÃmschart»ÕÛÏßͼ£¬ÔõÑù×öµ½±ä»»×ø±ê£¿
ÎÒÏë±ä»»×ø±ê£¬±ÈÈç˵ÐÂÔö¼ÓÒ»¸öËõ¶Ì°´Å¥£¬µã»÷°´Å¥£¬ºá×ø±ê¾Í»á±ä¶Ì¡£
ÕâÊÇÎҵĴúÂ룺
Çë´ó¼Ò°ïæ
Option Explicit
Private Sub cmd_close_Click()
Unload Me
End Sub
Private Sub cmd_pic_Click()
Dim s As String, i As Long, ss() As String
Dim cn As New adodb.Connection
Dim rs As New adodb.Recordset
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
rs.Open "select number,sdatetime,data from udata", cn, adOpenStatic, adLockOptimistic
If rs.RecordCount = 0 Then Exit Sub
ReDim ss(rs.RecordCount)
With MSChart1
.RowCount = rs.RecordCount
.ColumnCount = 1
.chartType = VtChChartType2dLine
For i = 1 To rs.RecordCount
.Row = i
.Data = rs.Fields("data")
.RowLabel = rs.Fields("sdatetime")
rs.MoveNext
Next i
&nb
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ TF1.text = & ......
VBżѧµÃ²»´í£¬ÏÖÔÚ´óÒ»£¬¸ßÈýµÄʱºò¾ÍѧVBÁË£¬ÏÖÔÚѧУÀï¶¼ÊÇѧC#ºÍVB.NETµÄÐֵܶࡣ¡£¡£
żҪתÐÐVB.NETÁË~µ±ÄêѧVBѧÁË2Ä꣬¶ÔVBÀïÃæµÄ³£Óú¯Êý¶¼Ê®·ÖÁ˽⡣
Select¡¢If½á¹¹¡¢For NextÑ»·¡¢µÈ¶¼Á˽⡣¡£¡£ ......
¸÷λ´óϺ£º
ÎÒÓÐÒ»¸öVBµ÷ÓÃË®¾§±¨±íµÄϵͳ£¬±¨±íÊÇ×÷Ϊһ¸öDesignǶÔÚVBÀïµÄ£¬½ñÌì·¢ÏÖ´òÓ¡µÚÒ»Õű¨±íÕý³££¬Í¬ÑùµÄÊý¾Ý£¬ÔÚµã´òÓ¡ÔÙµ÷ÓÃÒ»´Î¾Í»á±¨ Memory FullµÄ´íÎ󣬵«ÊÇ ......