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

vbÀàµÄÏú»Ùº¯ÊýºÎʱ±»µ÷Óã¿

ÎÒÊÇÔÚaccessµÄvbaÀﶨÒåÁËÒ»¸öÀàÄ£¿é£¬³õʼ»¯¼°µ÷Óö¼Õý³£
Private Sub Class_initialize()µÄµ÷ÓÃÊÇÕý³£µÄ

×îºó ¡°Set m_´°Ìå = Nothing ¡± ¡®m_´°Ìå ÊÇÀàµÄʵÀý
Private Sub Class_terminate() Õâ¸öÏú»Ùº¯Êý²¢Ã»Óб»µ÷Óã¿Ê²Ã´Ô­Òò°¡£¿

ÄÄλ´óÏÀÖ¸µãÏÂÔÚ´¿vbÏÂÊÇÔõÑùµÄ£¿
¹Ø×¢¡£¡£¡£¡£¡£

set object=nothing ÏȶԶÔÏóµÄÒýÓüÆÊý¼õÒ»£¬Èç¹ûÒýÓüÆÊýΪ0ʱ²ÅÏú»Ù¶ÔÏó¡£¹À¼ÆÊDZðµÄµØ·½»¹ÓжԶÔÏóµÄÒýÓÃ

àÞ£¬¹À¼ÆºÍÕâ¸öÓÐµã¹ØÏµ¡£
¾ßÌåÇé¿öÊÇ£º
³ÌÐòÖÐÖ»ÓÐÒ»¸öµØ·½°ÑÕâ¸öÀàʵÀý»¯£¨ÔÚÁíÍâÒ»¸ö´°ÌåÖУ©
ÔÚ´°Ì幨±Õʱ¡°Set m_´°Ìå = Nothing¡±£¬ÒýÓÃÓ¦¸ÃÖ»ÓÐÒ»¸ö
µ«ÊÇÔÚÕâ¸öÀàÖÐÓÖ¶¯Ì¬Éú³ÉÁËÆäËü¶ÔÏóÈ磺¡°Set dc_1 = CreateObject("Scripting.Dictionary")¡±
ÕâЩ¶ÔÏó²¢Ã»ÓÐÊÍ·Å£¬ÊDz»ÊÇÕâ¸öÔ­Òòµ¼Öµģ¿

±¾À´ÏëÔÚClass_terminate() Õâ¸öÏú»Ùº¯ÊýÖÐÈ¥Ïú»ÙÀà×Ô¼º¶¨ÒåµÄ¶ÔÏ󣬵«Ëû¸ù±¾Ã»Óб»µ÷Óã¿
³ÌÐòÔËÐÐÒ²Õý³££¬Ã»Óб¨ÈçºÎ´íÎó£¡
ÎÒµ£ÐÄÈç¹û¾ÍÕâÑù²»¹ÜËüÊÇ·ñ»áÔì³ÉÄÚ´æÐ¹Â¶µÄÎÊÌ⣿
ÓеĴóÏÀ˵VB¾Í¸ù±¾²»´æÔÚÄÚ´æÐ¹Â¶£¬ÄÄλ´óÏÀÄÜ·ñÔÙ·ÖÎöÏ£¿
 

¡°ÓеĴóÏÀ˵VB¾Í¸ù±¾²»´æÔÚÄÚ´æÐ¹Â¶£¬ÄÄλ´óÏÀÄÜ·ñÔÙ·ÖÎöÏ£¿¡±
ÄãÒª¿´ËûÊÇÔÚʲôÓᄈϽ²µÄ£¬ÏñÄãÕâÖÖdc_1ÈçÊǶ¨ÒåÔÚº¯ÊýÄÚ²¿µÄ£¬Ädz¬³öº¯ÊýÍâ¾Í»á×Ô¶¯set ...nothingµÄ
Set dc_1 = CreateObject("Scripting.Dictionary")

ÎÒÕâÀïµÄdc_1ÊÇ×÷ΪÀàµÄ¹«¹²±äÁ¿¶¨ÒåµÄ£¬×÷ΪÀàʵÀýºÍÍⲿ½»»»Êý¾ÝÓã¨Ã»ÓвÉÓÃPublic Property Set µÄ¶¨Ò巶ʽ£©
Public dc_1 As Object
ÔÚ¡°Private Sub Class_initialize()¡±Àï
Set dc_1 = CreateObject("Scripting.Dictionary")


Ïà¹ØÎÊ´ð£º

ΪʲôÓÃVB¸Ä±ä²»Á˹¤¾ßÀ¸°´Å¤µÄ¿í¶È - VB / ¿Ø¼þ

Ϊʲô¹¤¾ßÀ¸°´Å¤µÄ¿í¶È¸Ä±ä²»ÁË,ÔÚÊôÐÔÀï¸ÄÁËÓÖ±ä³ÉÔ­À´µÄÊýÖµÁË

´óºú×ÓÕæÀ÷º¦£¬»Ø´ð»ù±¾¶¼ÊDZ¬Áϼ¶µÄ
´óºú×ÓÉý¼¶Õæ¿ì°¡£¬Õâ²Å¼¸Ìì¾Í5Ìõ¶Ì¿ãÍâ¼ÓÔÂÅÅÃûµÚÒ»ÁË
ÏëÏëÎÒÕâ5¸ö¶Ì¿ã»ìÁ˲¶à8Äê²ÅµÃµ½µÄ¡£

»Ø¸´ ......

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½Ó - VB / »ù´¡Àà

VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
  ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
  ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......

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 µ÷ÓÃInet¿Ø¼þÏÂÔØ³ö´í - VB / ÍøÂç±à³Ì

¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ԭÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾ­Á¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ