VB´ò°üÎÊÌâ - VB / ·Ç¼¼ÊõÀà
½ñÌìͻȻÏëµ½£¬VBÓÐûÓÐÏñDELPHIÒ»Ñù£¬ºÃ¶à¿Ø¼þÉú³ÉÒÔºó¶¼ÔÚÒ»¸öEXEÀïÃæ£¬È»ºó´ò¿ªEXE£¬×Ô¼º¾ÍÏàÓ¦µÄ×¢²á£¨»òÕß˵DELPHIµÄ²»ÏóCOM×é¼þ²»ÓÃ×¢²á£©ÁËÄÇЩ¿Ø¼þÄØ£¿
Ê×ÏÈÏëµ½µÄÊÇMoleBoxµ«ÊÇËÆºõÎÒҲûÓùý£¬Ó¦¸ÃûÓÐÄÇôţ±Æ¿ÉÒÔרÃŶԸ¶VB³ÌÐòרÃÅ×¢²áCOM×é¼þµÄ¡£ËùÒÔÇëÎʸ÷λ¸ßÊÖ£¿
VB´ò°ü³ÉÒ»¸öEXEÎļþ£¬µ«ÊDz»Êǰ²×°Îļþ£¬µã¿ª¾Í¿ÉÒÔÓõ쬲¢ÇÒÓÐ×¢²áCOM×é¼þ£¬ÄÜÈÃVB³ÌÐòÕý³£Ö´ÐеĴò°ü¹¤¾ßÂð£¿
ÍøÉÏËÑÁËÏ£¬»òÐíÊÇÎҹؼü´ÊËѵò»¶Ô£¬·´ÕýÎÒÊÇûÕÒµ½¡£µ«ÊÇûÓеϰ£¬ÎÒµ¹ÓиöÏë·¨£¬ÒÔǰ²»ÊÇ¿´¹ýÀÏÂíËûÄÇÓиöÌû×Ó¾ÍÊÇ˵£¬²»×¢²áCOM×é¼þ£¬Ö±½Óµ÷ÓÃÀïÃæµÄDllRegisterServerµÈ¼¸¸öº¯Êý½øÐвÙ×÷¡£àÅ£¬ÊµÔÚûÓеϰ£¬ÒÔºóÓÐʱ¼ä¿ÉÄÜ»á×ö¸ö¡£·½±ãÁË×Ô¼º£¬Ò²·½±ãÁË´ó¼Ò£¬¶øÇÒÒÔºóÒ²²»ÓÃÿ´ÎÍÏ×ſؼþÅÜ£¬»¹ÅÂ×Ô¼ºÐÁÐÁ¿à¿àдµÄ¿Ø¼þ±»±ðÈËÖ±½ÓÄÃÀ´Ö÷ÒåÈ¥ÓÃÁË¡£
Ò»¼¤¶¯´òÁ˺ܶà´í±ð×Ö¡¡
û¿´¶®LZµÄÒâ˼
ÎÒ¿´¶®ÁË¡£¡£¡£Â¥Ö÷ÊÇÏë×ö³ÉÂÌÉ«µÄµ¥¸öexe
д¸öÅú´¦Àí °Ñ¿ÉÄÜÓõĿؼþ¶¼ÓÃregsvr32 ÕûÒ»ÏÂÒ²²»Âé·³
Ë«»÷һϾÍOK
Ïà¹ØÎÊ´ð£º
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 ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
¸÷λ¸ßÊÖ£¬Ð¡µÜ×î½üÅöµ½Ò»¸öÎÊÌ⣺ÔÏÈдµÄ³ÌÐò´ó¸ÅµÄ˼·ÊÇ£ºÊ×ÏÈwebbrowser´ò¿ªÍøÖ·£¬ÍøÖ·ÏÔʾºó£¬µã»÷ÍøÖ·ÉϵÄijһ¸öÁ¬½Ó£¬µ±webbrowser¼ì²âµ½ÍøÖ·ÒѾÁ¬½Óµ½ÏëÒªµÄµØÖ·Ê±ºò¾Í¿ªÊ¼ÏÂÔØÎļþ£¬µ±ÓÃIE6µÄʱºòÏÂÔ ......