Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

VB´ò°üÎÊÌâ - VB / ·Ç¼¼ÊõÀà

½ñÌìͻȻÏëµ½£¬VBÓÐûÓÐÏñDELPHIÒ»Ñù£¬ºÃ¶à¿Ø¼þÉú³ÉÒÔºó¶¼ÔÚÒ»¸öEXEÀïÃæ£¬È»ºó´ò¿ªEXE£¬×Ô¼º¾ÍÏàÓ¦µÄ×¢²á£¨»òÕß˵DELPHIµÄ²»ÏóCOM×é¼þ²»ÓÃ×¢²á£©ÁËÄÇЩ¿Ø¼þÄØ£¿
Ê×ÏÈÏëµ½µÄÊÇMoleBoxµ«ÊÇËÆºõÎÒҲûÓùý£¬Ó¦¸ÃûÓÐÄÇôţ±Æ¿ÉÒÔרÃŶԸ¶VB³ÌÐòרÃÅ×¢²áCOM×é¼þµÄ¡£ËùÒÔÇëÎʸ÷λ¸ßÊÖ£¿

VB´ò°ü³ÉÒ»¸öEXEÎļþ£¬µ«ÊDz»Êǰ²×°Îļþ£¬µã¿ª¾Í¿ÉÒÔÓõ쬲¢ÇÒÓÐ×¢²áCOM×é¼þ£¬ÄÜÈÃVB³ÌÐòÕý³£Ö´ÐеĴò°ü¹¤¾ßÂð£¿

ÍøÉÏËÑÁËÏ£¬»òÐíÊÇÎҹؼü´ÊËѵò»¶Ô£¬·´ÕýÎÒÊÇûÕÒµ½¡£µ«ÊÇûÓеϰ£¬ÎÒµ¹ÓиöÏë·¨£¬ÒÔǰ²»ÊÇ¿´¹ýÀÏÂíËûÄÇÓиöÌû×Ó¾ÍÊÇ˵£¬²»×¢²áCOM×é¼þ£¬Ö±½Óµ÷ÓÃÀïÃæµÄDllRegisterServerµÈ¼¸¸öº¯Êý½øÐвÙ×÷¡£àÅ£¬ÊµÔÚûÓеϰ£¬ÒÔºóÓÐʱ¼ä¿ÉÄÜ»á×ö¸ö¡£·½±ãÁË×Ô¼º£¬Ò²·½±ãÁË´ó¼Ò£¬¶øÇÒÒÔºóÒ²²»ÓÃÿ´ÎÍÏ×ſؼþÅÜ£¬»¹ÅÂ×Ô¼ºÐÁÐÁ¿à¿àдµÄ¿Ø¼þ±»±ðÈËÖ±½ÓÄÃÀ´Ö÷ÒåÈ¥ÓÃÁË¡£
Ò»¼¤¶¯´òÁ˺ܶà´í±ð×Ö¡­¡­

û¿´¶®LZµÄÒâ˼

ÎÒ¿´¶®ÁË¡£¡£¡£Â¥Ö÷ÊÇÏë×ö³ÉÂÌÉ«µÄµ¥¸öexe

д¸öÅú´¦Àí °Ñ¿ÉÄÜÓõĿؼþ¶¼ÓÃregsvr32 ÕûÒ»ÏÂÒ²²»Âé·³

Ë«»÷һϾÍOK


Ïà¹ØÎÊ´ð£º

¹ØÓÚVB DIM ds as new DataSetÎÊÌâ - VB / »ù´¡Àà

DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.

datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......

vb¶ÁÈ¡ÓÃwordת»»³ÉµÄxmlÀïµÄÊý¾Ý - VB / »ù´¡Àà

Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
  Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......

vb¶ÁÈ¡xml - VB / »ù´¡Àà

ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xm ......

vb ÖÐ - VB / »ù´¡Àà

dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®

¿´¿´i ......

VBÌîÐ´ÍøÒ³Îı¾Çø - VB / »ù´¡Àà

ÓÐÁ½¸öÎÊÌâ
µÚÒ»¸öÎÊÌ⣺
ÍøÒ³Ô´Âë
<td><select name="question" onchange="showcustomquest(this.value)" tabindex="4"><option value="0">ÎÞ°²È«ÎÊ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ