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µ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......