VBÖÐoptionµÄʹÓÃ
form1ÖÐÊÇÁ½¸öoptionµÄÑ¡Ôñ
form2ÖÐÓÐÁ½¸öframe,Á½¸öframeÖÐÓÐÁ½¸öpicturebox,ËûÃǵÄvisibleÊÇfalse,
ÇëÎÊÈçºÎ±à³ÌʹѡÔñoption1ʱÔËÐÐpicture1,Ñ¡Ôñoption2ʱÔËÐÐpicture2
²»Ðа¡£¬³öÀ´Î´ÕÒµ½·½·¨»òÊý¾Ý³ÉÔ±Êý¾Ý³ÉÔ±
"δÕÒµ½·½·¨»òÊý¾Ý³ÉÔ±Êý¾Ý³ÉÔ±"ָɶ,Form2.Picture1¶¼ÊÇÄã˵µÄÃû×Ö°¡;)
ÎÒÊǶÔһ¥µÄ´úÂëµ÷ÊÔºóµÄ½á¹û˵µÄ
´°ÌåÀïµÄ¿Ø¼þ¿ØÖÆ×Ô´°Ìå¿Ø¼þ£¿
Ïà¹ØÎÊ´ð£º
±¾ÈËʹÓõÄÊÇVB6.0°æ±¾
¼ÙÉèÓÐÒ»¸ö¶ÔÏóA£¬AÄÚÓÐÀàÐÍΪBµÄ¶ÔÏóÊôÐÔ¡£ÏÖÔÚµÄÎÊÌâÊÇ£¬ÐèÒªÌí¼ÓÈô¸É¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔ¡£È磬
A.B1,A.B2,...
µ«¾ßÌåÌí¼Ó¶àÉÙ¸öB¶ÔÏó×÷ΪA¶ÔÏóµÄÊôÐÔÔòÊÓ¾ßÌåÇé¿ö²»Í¬¶ø²»Í¬ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......