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

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


Ïà¹ØÎÊ´ð£º

ÇëºÃÐÄÈ˰ïÎÒ°ÑVBÔ´ÂëתΪVB.NET~

Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..


Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html

תΪVB.NETÔ´Âë.

СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ

ÎÒµÄEMAILÊÇ:4452 ......

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îǰ£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

°ïÎҸĸÄÕâVBÌâ - VB / »ù´¡Àà

°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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µ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ