¹ØÓÚVBÔËÐÐʱµÄCPU¿ØÖÆÈ¨ÎÊÌâ - VB / »ù´¡Àà
СµÜдһ³ÌÐò,ÓÃÓÚ·ÂտģÄâ»úÆ÷ÔËÐеÄ.
ÔÚÔËÐÐʱ,°ÑÖ÷´°Ìå×îС»¯,È»ºó,ÔÚÈÎÎñÀ¸µã»÷Ö÷´°Ìå,ÏëÈÃÆäÏÔʾ½çÃæ³öÀ´,
µ«²»¹ÜÔõôµãÒ²µã²»³öÀ´,û·´Ó¦µÄ,µãÔ´´úÂëµÄ´°ÌåÒ²ÊÇÒ»Ñù,µã²»´úÂë´°Ìå.
µ«Æä´úÂëÈÔÔÚÔËÐеÄ,Ö±µ½ËùÓеļӹ¤¼ÆËãÍê±Ïºó,ÉÏÊö¹¦ÄܲÅÄָܻ´.
²é¿´ÁËÒ»ÏÂÈÎÎñ¹ÜÀíÆ÷,CPUÕ¼ÓÃÂÊÊǺܸߵÄ.»¹ÓÐ,ÄǸöÖ÷´°ÌåµÄ¼Ü¹¹ºÃÏñÒ²²»
Ì«ÀíÏë[ÊÇÀÏ×ÜдµÄ¿ò¼Ü],Ö÷´°ÌåÊÇÒ»¸öµ¥´°Ìå,ÆäËü´°ÌåÊÇͨ¹ýµ÷ÓÃSetParentº¯Êý
³ÉΪÖ÷´°ÌåµÄ×Ó´°Ìå.
ÇëÎʸ÷λÐǪ̈,ÓкθßÕпÉÒÔ½â¾ö´ËÎÊÌâ?
ÇëÄã¿´ÈçϵÄÑ»·Óï¾ä:
for i=1 to 100000
i=i+1
next
Õâ¶Î´úÂëÔÚÖ´Ðйý³ÌÖÐ, ¾Í»áÏñËÀµôÒ»Ñù, Ö±µ½Ã¦Íê, ²Å»áÓÐʱ¼ä´¦ÀíÆäËüµÄÏûÏ¢
µ«Èç¹ûÄã¼Ó½øÒ»¾ä,ÈçÏÂ,ÔÚÑ»·Õâ¹ý³Ì, ¾Í»áÓÐʱ¼ä´¦ÀíÆäËüÏûÏ¢ÁË
for i=1 to 100000
i=i+1
doevents
next
Ò²¾ÍÊÇ˵, ÐÞ¸ÄÄãµÄ³ÌÐò´úÂë, ÔÚËùÓеÄÑ»·, ÌØ±ðÊÇ·Ñʱ½Ï³¤µÄÑ»·Óï¾äÖм䶼¼ÓÉÏÃüÁîdoevents
Ôç¾ÍÓÐDOEVENTS,²»¹ÜÓÃ.ÒÑÓÃÁíÍâµÄ·½·¨½â¾öÁË.
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
СµÜÓÃVBµ÷EXCEL×÷ͼ
objExlApp.Workbooks.Add
objExlApp.Charts.Add
objExlApp.ActiveChart.ChartType = xlLine
objExlApp.ActiveChart.HasLegend = True
objExlApp. ......