ÎÒÊÇÔÚ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ÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......