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²»Äܵ÷Óã¿ VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿ 1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿ 2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......
ÎÒÓÃDelphiдÁËÒ»¸öDLL, DLLÀïÓÐMDIµÄ×Ó´°Ìå,DLL³õʼ»¯Ê± ´«µÝµ÷ÓÃÕßµÄTApplication¸øDLL, ÔÚDelphi7Öе÷ÓÃÒѾͨ¹ý,µ«ÊDz»ÖªµÀÔÚVBÖÐÓÐÎÞTApplication¶ÔÓ¦ÀàÐÍ, ÊÇ·ñÄÜÔÚVBÖе÷ÓÃ? ÄãºÃ£¬ÓÃinstance²»ÊǾͿÉÒÔÁË ......
Ò»¸ö²éѯijÐÅÏ¢µÄASPÍøÒ³£¬Ìá½»²ÉÓõÄÊÇpost·½·¨£¬²éÕÒ½á¹ûµÄÍøÒ³±ØÐëÓÒ¼üµã»÷¡°²é¿´Ô´Îļþ¡±²ÅÄÜ¿´µ½ÕæÕý²éѯ½á¹ûÍøÒ³µÄÔ´´úÂ룬ÓÃä¯ÀÀÆ÷²Ëµ¥¿´µ½µÄÊDzéѯǰµÄÔ´´úÂë ÓÃ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   ......
¿ÉÒÔÓÃrichtextbox £¬Ö÷ÒªÊÇÄÜÏÔʾrtfÎļþÖеĸñʽ£¬ÎÄ×ÖÑÕÉ«Ö®ÀàµÄ£¬Çë½Ì~ RichTextBox1.LoadFile "test.rtf" RichTextBox1.FileName = App.Path & "\test.rtf" Ó¦¸ÃÊÇ RichTex ......