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£¬ÄÇôÔÚ´ ......
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 ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......