Çë½Ì£ºÔõôÓÃ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  
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º WebBrowserÀïµÄÍøÖ·Ìø×ªºó£¬ÔõôȡµÃÌø×ªºóµÄÒ³ÃæµÄURLµØÖ· ¶¥Ï¶¥Ï ÒýÓà BeforeNavigate2 ºÃÏñûÓÐÕâ¸ö°É vb6.0 BeforeNavigate2 Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£ ......
ÕÒÁ˺ܾÃÕâ¶«Î÷ÁË, ÓÃtreeview²»ÄÜÂú×ãÒªÇó ÏÖÔÚÏë×öµÄÊÇ£º½çÃæÒÔÊ÷ÐÎÕ¹ÏÖ£¬Äܲ»ÄÜÕ¹¿ªÊÕ»ØÎÞËùν ½Úµã¶¼¿ÉÒÔ°´Õչ涨½øÐÐÌíɾ ÿ¸ö½ÚµãºóÃæ¶¼¿ÉÄÜ»á³öÏÖ Îı¾ ......
СµÜÓÃVBµ÷EXCEL×÷ͼ objExlApp.Workbooks.Add objExlApp.Charts.Add objExlApp.ActiveChart.ChartType = xlLine objExlApp.ActiveChart.HasLegend = True objExlApp. ......