vb×öºÃµÄocx£¬ÔõÑùÔÚ°²×°³ÌÐòÖÐ×¢²á°²×°
×öºÃÁË£¬Ò»¸öocx¿Ø¼þ¡£ÔõÑùÔÚvbµÄ°²×°³ÌÐòÖÐ×¢²áʹÓð¡¡£¾ÍÊǰÑ×öºÃµÄocx¿Ø¼þ°üº¬µ½°²×°³ÌÐòÖÐÒ»ÔËÐа²×°³ÌÐò¾Í°ÑÕâ¸ö¿Ø¼þ°²×°µ½±¾»ú°¡¡£
лл¸÷λÁË£¡£¡£¡
±¾È˵ÚÒ»´ÎÓÃvb×ö¶«Î÷£¡£¡
´Ó¶øÊ¹±¾»úÄÜʹÓÃÕâ¸ö¿Ø¼þ
ÔËÐÐ----Regsvr32 ocx¿Ø¼þµÄ·¾¶----È·¶¨
ÎÒÖªµÀÔõôÔÚ³ÌÐòÀïÃæÔõôע²á£¬¾ÍÊDz»ÖªµÀÔõô°ÑÕâ¾ä»°ÔÚ°²×°µÄ¹ý³ÌÖÐÖ´ÐÐ
×ܲ»ÄÜÈÃÓû§£¬ÊÖ¶¯×¢²á.ocx¿Ø¼þ°É
1.ÔÚ±¾»úµÄ»° Äã¿ÉÒÔÔÚ×óϽǵ㠿ªÊ¼ ÔËÐÐ ÊäÈë regsvr32 ?:\windows\system32\???.ocx
2.ÒªÔÚ¿Í»§¶Ë°²×°µÄ»°, Äã¿ÉÒÔ°Ñ???.ocxÀ¦ÔÚ ×ÊÔ´Îļþ ÖÐ,ÔÚ¿Í»§¶ËÊͷŲ¢×¢²á.
VB code:
Shell "Regsvr32 C:\WINDOWS\system32\VCFI32.OCX"
µ±ÄãÉ趨ºÃºó,°²×°µÄ¹ý³ÌÖа²×°Èí¼þ×Ô¶¯¸øOCX,dll×¢²á.
À¦°óÔÚ×ÊÔ´ÇøÖУ¬Èç¹ûÄãÖªµÀPEÎļþÀïÓÐ×ÊÔ´ÇøÕâô»ØÊµĻ°£¬µ÷ÓÃapiµÄbeginupdateresourceµÈº¯Êý½«ÄãµÄocxдÈë´æ´¢£¬ÔÙ³ÌÐòÖмÓÈëÒ»¾äÊÍ·Å×ÊÔ´µÄ´úÂ룬ÓÃloadresdata¾ÍºÃÁË£¬vbÄÚÖõģ¬ÔÙ¼ÓÒ»¾äshellµÄ´úÂë¾ÍºÃÁË£¬ÓÃshellµ÷ÓÃregsvr32À´×¢²áVB code:
Sub main()
If Dir(CheckFilePath(App.Path) & "123456.ocx") = vbNullString Then
Call ResShiFang(CheckFilePath(App.Path) & "CnCalendar.ocx")
Sleep 1000
Shell "regsvr32 " & CheckFilePath(App.Path) & "123456.ocx /s", vbNo
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......