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

vbʹÓÃpicturebox¿Ø¼þ

ÎÒÏëʹÓÃpicturebox¿Ø¼þ»­Í¼
ÎÒµÄsqlÊý¾Ý¿âÖÐÊý¾Ý±íÃû×ÖÊÇudata£¬ÆäÖÐÓÐÁ½ÁУ¬Ò»ÁÐÊÇsdatetime£¬ÁíÒ»ÁÐÊÇdata¡£ÎÒÏëÓÃÆäÖеÄsdatetimeÁеÄÊýÖµ£¨Ê±¼ä£©×÷Ϊºá×ø±ê£¬dataÁеÄÊýÖµ£¨Êý¾Ý£©×÷Ϊ×Ý×ø±ê¡£
ÔÚÒ»¸öеÄformÖУ¬ÓÐÒ»¸öÃüÁî°´Å¥£¬µã»÷ÃüÁî°´Å¥£¬¾Í°Ñͼ»æÖƳö¡£
´úÂ뾡Á¿Ïêϸ£¬¼ÓÉÏ×¢ÊÍ¡£
Ó¦¸ÃÔõô×öÄØ£¬Ð»Ð»´ó¼Ò£¬ÒªÊÇÄÜ×ö³öÀ´£¬ÎÒÔÙ×·¼Ó·ÖÊý¡£Ð»Ð»À²¡£
ÆäÖÐÕâ¸öÊý¾Ý±íµÄÊý¾Ý»¹ÊǼÌÐøÔö¼ÓµÄ£¬Ò²¾ÍÊǺá×ø±ê»¹ÊÇÔö¼ÓµÄ£¬Ð»Ð»À²
×ø±êÊǵ㣬µãÒªÁ¬½Ó£¿ÕÛÏßͼ£¿

Â¥Ö÷¿ÉÒÔÊÔÊÔMSChart¿Ø¼þ

ÒýÓÃ
×ø±êÊǵ㣬µãÒªÁ¬½Ó£¿ÕÛÏßͼ£¿
×ø±êÊǵ㣬°ÑµãÁ¬½ÓÆðÀ´£¬»­³öÕÛÏßͼ¾ÍÐС£

ÒýÓÃ
Â¥Ö÷¿ÉÒÔÊÔÊÔMSChart¿Ø¼þ
mschartÎÒ²»Ì«»áÓÃ

Private Sub Form_Load()
Dim sql As String
Dim sdata(1 To 15, 1 To 14) As Variant
Dim rs As New Recordset
Dim cn As New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=sample;Data Source=."
sql = "Select sdatetime,data from udata"
's = "Select sdatetime,data from udata"
'Set rs = GetRs(s)
rs.Open sql, cn, adOpenStatic, adLockReadOnly

If rs.RecordCount = 0 Then Exit Sub
ReDim ss(rs.RecordCount)
   
    With mctChart

      .Row = 1     
    &n


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

VBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ

ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾ­Í¨¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ?
ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË&# ......

VB »ñÈ¡ÍøÒ³Ô´´úÂë

Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë
ÓÃVBÓÐʲô°ì·¨¿ÉÒÔ»ñÈ¡µ½Õâ¸ö²éѯºóµÄÔ´´ú ......

vbÑ­»·

Option Explicit
Dim N As Integer
Private Sub Command1_Click()
    Dim A As Integer, B As Integer
    A = 2: B = 3
    For N = 1 To 6
      ......

vb ´ò¿ªrtfÎļþ

¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕÉ«Ö®ÀàµÄ£¬Çë½Ì~
RichTextBox1.LoadFile "test.rtf"

RichTextBox1.FileName = App.Path & "\test.rtf"

Ó¦¸ÃÊÇ
RichTex ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ