vb ÕÒµ½Ö¸¶¨ÎļþµÄÎÊÌâ - VB / »ù´¡Àà
ÔÚvbÖÐÈçºÎʵÏÖ²éÕҹ̶¨Îļþ,¾ßÌåµÄ˵ÎÒÒª²éÕÒÓ²ÅÌÀïµÄÒ»¸ö½Ða.txtµÄÎļþ,Èç¹ûÕÒµ½¾Í¼Ç¼ËüµÄ·¾¶²¢ÏÔʾ³öÀ´£¬Ô½¼òµ¥Ô½ºÃ£¡£¡!
¿ÖŲ»»áÌ«¼ò¡£
Òª¶ÔÕû¸öÓ²Å̽øÐÐËÑË÷£¬×ܵÃд¶þÈýÊ®ÐдúÂë°É£¿
Ö»ÊÇ¿ÉÒÔ°ÑËü·â×°³ÉÒ»¸öº¯Êý£¬ÕâÑù£¬Ê¹ÓõÄʱºò¾Í±È½Ï·½±ãÁË¡£
Òª±éÀúËùÓдÅÅÌÇý¶¯Æ÷ÒÔ¼°ËùÓÐÎļС£
{{
Ïà¹ØÎÊ´ð£º
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
......
ÏÖÔÚСµÜÔÚÓÃvb6.0±àд³ÌÐò£¬Óöµ½Òì²½µÄÎÊÌ⣬¾ßÌåÈçÏ£º
µã»÷°´Å¥Aʱ£¬µ÷ÓÃÍⲿµÄdll(C++)£¬´ËdllÊÇͬ²½·µ»ØÊý¾Ý¡£´ËʱÈç¹ûÔ¶³ÌδÏìÓ¦£¬ÎҵijÌÐò½çÃæ¾Í»á¿¨ËÀ¡£Òò´ËÎÒÏëµ½ÓÃtimerÀ´ÊµÏÖÒì²½ £¬µ«ÊDz»Çå³þ¾ßÌåµÄÊµÏ ......