Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VBÓÃmschart»­³ÉÒ»¸öÒ»¸öµã£¬Á¬³ÉÕÛÏßͼ¡£

ÓÃ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 = VtChChartType2dBar
      For i = 1 To rs.RecordCount
        .Row = i
        .Data = rs.Fields("data")         
        .RowLabel = rs.Fields("sdatetime")
        rs.MoveNext
      Next i
    End


Ïà¹ØÎÊ´ð£º

vb´òÓ¡ÎÊÌâ


Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4

'³õÊ¼×ø±ê
x = 1
y = 4


'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

VB ×Ö·ûÎÊÌâ

  TF1.text = " <_2_ZCHGZBH> " & MSFlexGrid1.TextMatrix(k, 1) & " </_2_ZCHGZBH> "
   

´ó¼ÒºÃ£¬ÎÒÓÃÉÏÃæÒ»¸ö¶«Î÷¸³Öµ  TF1.text = & ......

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔØµ½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ