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

Çë½Ì£ºÔõôÓÃVBʵÏÖ¼ÆÊ±Æ÷µÄÀÛ¼Ó - VB / »ù´¡Àà

ÎÒÒѾ­ÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä£¬ÔõôÄÜÔÙÓÃÒ»¸ö±êÇ©ÏÔʾ»úÆ÷×ܹ²¹¤×÷µÄʱ¼äÄØ£¿
±ÈÈ磬µÚÒ»´Î¹¤×÷1Сʱ10·Ö20Ã룬µÚ¶þ´Î¹¤×÷2Сʱ10·Ö20Ã룬ÄÇôÀÛ»ý¹¤×÷ʱ¼ä¾ÍÊÇ3Сʱ20·Ö40Ã룬²¢ÇÒÕâ¸öÀÛ»ýµÄÖµ²»»á¶ªÊ§µÄ¡£
ллÁË£¬Çë´óÏÀÃǰïæ£¡
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä
2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØÐ´iniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä


ÒýÓÃ
1 ÓñíÖÐн¨¸öÀ¸Î»total_runtime¼Ç¼
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò¸üÐÂtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä
2 ¼Ç¼ÔÚiniÎļþÖÐн¨¸ö²ÎÊýtotal_runtime
ÿµ±¹Ø±Õ³ÌÐòµÄʱºò»ØÐ´iniÎļþÖеÄtotal_runtime=total_runtime+±¾´ÎÔËÐÐʱ¼ä


ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿
¸Ð¼¤£¡£¡

ÒýÓÃ

ÄÇÔÚÀÛ¼Ó֮ǰ£¬ÎÒÔõôȡ³ö±¾´ÎÔËÐеÄʱ¼äÄØ£¿


ÓÃÕâ¸öʱ¼ä

ÒýÓÃ
ÎÒÒѾ­ÓÃtimer¿Ø¼þ×öºÃÁËÒ»¸öÃë±í¹¦ÄÜ£¬ÓÃÀ´ÏÔʾ»úÆ÷Õâ´ÎµÄ¹¤×÷ʱ¼ä


Private Sub Timer1_Timer()
   
  s = s + 1
  If s > 59 Then
  m = m + 1
  s = 0
  If m > 59 Then
  h = h + 1
  m = 0
   
  End If
 


Ïà¹ØÎÊ´ð£º

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vb WebBrowser СÎÊÌ⣬Çë½Ì - VB / »ù´¡Àà

vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ·

¶¥Ï¶¥ÏÂ

ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0

BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......

VBÊ÷ÐͽṹÎÊÌâ - VB / ¿Ø¼þ

ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË,  
ÓÃtreeview²»ÄÜÂú×ãÒªÇó
ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν
  ½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ
  ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......

VBµ÷ÓÃEXCEL»æÍ¼£¬ÈçºÎÐÞ¸ÄXÖá×ø±ê - VB / »ù´¡Àà

СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
  objExlApp.Charts.Add
  objExlApp.ActiveChart.ChartType = xlLine
  objExlApp.ActiveChart.HasLegend = True
  objExlApp. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ