VBÖÐinetËÀÑ»·Çë½Ì[û·ÖÁËÖ»Óз¢ÕâÀ¼ûÁÂ]
×î½üÓÃVBдÁËÒ»¸ö²Ù×÷ÍøÒ³µÄ³ÌÐò£¬
ÆäÖÐÓÐÒ»¶ÎÑ»·£¬´úÂëÈçÏÂ
VB code:
inet1.Execute("d_url")
Do until inet1.stillexecuting=False ËÀÑ»·
doevents
Loop
ÔÚÎÒ¼ÒµçÄԺ͵¥Î»µçÄÔÉÏÒ»ÇÐÕý³££¬µ«ÔÚÎÒͬʵçÄÔÉϾÍʼÖÕÌø²»³öÕâ¸öÑ»·£¬
inet1.stillexecutingÒ»Ö±ÊÇTrue
Ìý˵ÊÇij¸ö dll¿Ø¼þÓÐÎÊÌâ,ÎÒ³¢ÊÔ»»¹ý msinet.ocx¿Ø¼þÁË
µ«ÊÇ»¹ÊDz»ÐÐ
¶øÇÒÍøÉÏËÑË÷ÁËÏ ·¢ÏֺܶàÈ˶¼ºÍÎÒÅöµ½Ò»ÑùµÄÎÊÌ⣬
¸÷λһÆðÀ´°ïÏÂæ~ ¸Ð¼¤²»¾¡
Ïà¹ØÎÊ´ð£º
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......