vbÉú³ÉEXE - VB / »ù´¡Àà
form1ÖÐÓÐtext1-8£¬ ºÍcommand1
text8ÖÐΪ³ÌÐò´úÂ루Éú³É´°ÌåΪform2£¨ÒÑ×öºÃ£©£©
µ¥»÷command1ºó½«text2ÖеĴúÂëÉú³ÉEXEµ½d:\ ²¢ÇÒtext1-7·Ö±ð¶ÔÓ¦
²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ
´óϺÃÇ£¬°ï°ïæ
Ö±½ÓÃüÁîÐе÷ÓÃVBµÄ±àÒëÆ÷½øÐбàÒë
µ¥¶ÀÈ¥µÄ Form2 ÊÇÎÞ·¨Í¨¹ý±àÒëµÄ,±ØÐëÐèÒª¹¤³ÌÎļþ.
Ï൱ÓÚ,Äã°Ñ¹¤³ÌÎļþ/FORM2µÄÔ´Îļþ¶¼·ÅÖÃÔÚtext8 ºÍ textX ÖÐ,µãÒ»command1.¾Í°ÑÕâЩÎı¾±£´æµ½³ÌʽÔËÐÐĿ¼ÏÂ,È»ºóÓÃÃüÁîÐе÷ÓÃVB6.EXEÈ¥±àÒëÕâ¸ö¹¤³Ì.
¹¤³ÌÎļþÖоͱ£´æÁËÄãÐèÒªÉ趨µÄ" ²úÆ·Ãû ¹«Ë¾Ãû ºÏ·¨°æÈ¨ ºÏ·¨É̱ê ÎļþÃèÊö ×¢ÊÍ ±êÌâ"
˼·¾ÍÊÇÕâÑù,¾ßÌå»áÓõ½VB6.EXE ÃüÁîÐе÷ÓÃ.
ÆäËûµÄûʲôÄѶÈ.
²»ÖªµÀÄãÊÇÒªÐÞ¸ÄÒ»¸öÒѾÉú³ÉµÄexe£¬»¹ÊÇ×Ô¶¨Òå±àÒë¹ý³Ì¡£
vbp frm¶¼ÊÇÎı¾¸ñʽ£¬¿ÉÒÔ×ÔÓɶÁд£¬È»ºóµ÷ÓÃVB±àÒëÆ÷±àÒë¼´¿É¡£
Â¥Ö÷COM¿ª·¢Êì²»,¿´ÄãÕâÇé¿ö,Çé¿ö¿É×ö¸öIDE²å¼þ°¡
Èçͼ
µ¥»÷form1ÖеÄcommand1ºó
Éú³Éa.exeÓëd:\
²¢ÇÒÉú³ÉµÄexe
²úÆ·Ãû=text1 ¹«Ë¾Ãû=text2 ºÏ·¨°æÈ¨=text3 ºÏ·¨É̱ê=text4 ÎļþÃèÊö=text5 ×¢ÊÍ=text6 ±êÌâ=text7
EXEÖÐÖ»ÓÐform2²¢ÇÒform2µÄÔ´´úÂëΪtext1ÖеÄ
Ò²¾ÍÊÇ˵
ÎÒÏë×öÒ»¸ö¿ò¼Ü
Óû§¿ÉÒÔÓÃÎÒ³ÌÐòµÄ¿ò¼ÜÉú³É³ÌÐò
½¨ÒéÂ¥Ö÷дһ¸öVB6.0µÄAddin
ÒªÇó¾ÍÀàËÆÒ»¸öÏòµ¼³ÌÐò¡£ÓÃVB6.0µÄAddinд¸ö²å¼þ¿ÉÒÔʵÏÖ¡£µ÷ÓñàÒëÆ÷¶ÔÏóºÜºÃʵÏÖ
VB code:
Dim oVBProjects As VBProjects, i As Integer
Ïà¹ØÎÊ´ð£º
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ½â¾ö¡£
Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
Picture1.Left = -HScroll1.Value + bcW ' ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
ÈçÌ⣬VBÖÐÈçºÎʵÏÖÒ»PC¿ØÖÆN̨PC»úµÄ¿ª¹Ø»ú»òÕ߯äËûÃüÁîÄØ£¿
Õâ¸öÎÊÌâÓеã´óŶ.Èç²»ÄÜÔÚÆäËü»úÆ÷ÉÏÒ²×°³ÌÐòµÄ»°,ÄÇÖ»Òª¿´ËûÃÇÓÐûÅäÖÃÓÐÔ¶³Ì¿ØÖÆ¿ª¹Ø»úÁË
Èç¹ûÊÇÄÇÖÖ¿Í»§/·þÎñ¶ËµÄ·½Ê½ £¬¾ÍÊDZ»¿ØÖÆPCÒ²ÐèÒª°²× ......