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 ......
ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......