VB´ò°üÎÊÌâ - VB / ·Ç¼¼ÊõÀà
½ñÌìͻȻÏëµ½£¬VBÓÐûÓÐÏñDELPHIÒ»Ñù£¬ºÃ¶à¿Ø¼þÉú³ÉÒÔºó¶¼ÔÚÒ»¸öEXEÀïÃ棬Ȼºó´ò¿ªEXE£¬×Ô¼º¾ÍÏàÓ¦µÄ×¢²á£¨»òÕß˵DELPHIµÄ²»ÏóCOM×é¼þ²»ÓÃ×¢²á£©ÁËÄÇЩ¿Ø¼þÄØ£¿
Ê×ÏÈÏëµ½µÄÊÇMoleBoxµ«ÊÇËƺõÎÒҲûÓùý£¬Ó¦¸ÃûÓÐÄÇôţ±Æ¿ÉÒÔרÃŶԸ¶VB³ÌÐòרÃÅ×¢²áCOM×é¼þµÄ¡£ËùÒÔÇëÎʸ÷λ¸ßÊÖ£¿
VB´ò°ü³ÉÒ»¸öEXEÎļþ£¬µ«ÊDz»ÊÇ°²×°Îļþ£¬µã¿ª¾Í¿ÉÒÔÓõģ¬²¢ÇÒÓÐ×¢²áCOM×é¼þ£¬ÄÜÈÃVB³ÌÐòÕý³£Ö´ÐеĴò°ü¹¤¾ßÂð£¿
ÍøÉÏËÑÁËÏ£¬»òÐíÊÇÎҹؼü´ÊËѵò»¶Ô£¬·´ÕýÎÒÊÇûÕÒµ½¡£µ«ÊÇûÓеĻ°£¬ÎÒµ¹ÓиöÏë·¨£¬ÒÔÇ°²»ÊÇ¿´¹ýÀÏÂíËûÄÇÓиöÌû×Ó¾ÍÊÇ˵£¬²»×¢²áCOM×é¼þ£¬Ö±½Óµ÷ÓÃÀïÃæµÄDllRegisterServerµÈ¼¸¸öº¯Êý½øÐвÙ×÷¡£àÅ£¬ÊµÔÚûÓеĻ°£¬ÒÔºóÓÐʱ¼ä¿ÉÄÜ»á×ö¸ö¡£·½±ãÁË×Ô¼º£¬Ò²·½±ãÁË´ó¼Ò£¬¶øÇÒÒÔºóÒ²²»ÓÃÿ´ÎÍÏ×ſؼþÅÜ£¬»¹ÅÂ×Ô¼ºÐÁÐÁ¿à¿àдµÄ¿Ø¼þ±»±ðÈËÖ±½ÓÄÃÀ´Ö÷ÒåÈ¥ÓÃÁË¡£
Ò»¼¤¶¯´òÁ˺ܶà´í±ð×Ö¡¡
û¿´¶®LZµÄÒâ˼
ÎÒ¿´¶®ÁË¡£¡£¡£Â¥Ö÷ÊÇÏë×ö³ÉÂÌÉ«µÄµ¥¸öexe
д¸öÅú´¦Àí °Ñ¿ÉÄÜÓõĿؼþ¶¼ÓÃregsvr32 ÕûÒ»ÏÂÒ²²»Âé·³
Ë«»÷һϾÍOK
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
Ç°ÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
vb WebBrowser СÎÊÌ⣬Çë½Ì£º
WebBrowserÀïµÄÍøÖ·Ìøתºó£¬ÔõôȡµÃÌøתºóµÄÒ³ÃæµÄURLµØÖ·
¶¥Ï¶¥ÏÂ
ÒýÓÃ
BeforeNavigate2
ºÃÏñûÓÐÕâ¸ö°É vb6.0
BeforeNavigate2
Õâ¸ö¿ÉÒÔÓУ¬ºÇºÇ¡£
......