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

¹ØÓÚ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,²»¹ÜÓÃ.ÒÑÓÃÁíÍâµÄ·½·¨½â¾öÁË.


Ïà¹ØÎÊ´ð£º

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


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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......

vb - VB / »ù´¡Àà

ÎÒÏë°ÑwordÁí´æΪxmlÖ®ºó£¬ÓÃvb¶ÁÈ¡Õâ¸öxmlµÄÄÚÈÝ£¬ÇëÎÊÈçºÎʵÏÖ£¿
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......

vbÉú³ÉEXE - VB / »ù´¡Àà

form1ÖÐÓÐtext1-8£¬ ºÍcommand1 
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æȨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ ......

vb ÄÚ´æÒç³ö£¿£¿ - VB / »ù´¡Àà

ϵͳÔÚ¶ą̀µçÄÔÉÏÔËÐУ¬¾ÍÔÚÆäÖÐһ̨µçÄÔÉϲúÉú¡±ÄÚ´æÒç³ö¡°¡£
  ÿ̨µçÄÔ²Ù×÷ϵͳ ÅäÖö¼Ò»ÑùµÄ¡£¡£ÇëÎÊÊÇʲôԭÒò£¿
(1)ÓÃÁËÉè¼Æ²»ÍêÉƵĿؼþ£¬¿Ø¼þ±¾ÉíÓÐÎÊÌ⣬»òÕß²»Ç¡µ±µØʹÓÃÁËapiº¯Êý¡£
(2)ÎÞÏÞµÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ