VB×¢²á×é¼þ
±ÈÈçÎÒÏë×¢²áD:\Program Files\ietool\abc.ocx
ÓÃvbÔõÃ´Ð´ÄØ£¿ÈÃËûÔÚ×¢²áµÄʱºòËäÈ»³É¹¦×¢²á£¬µ«²»Ìáʾ³É¹¦×¢²áµÄ¶Ô»°¿ò£¬
ÔõôÄÜ×öµ½ÄØ£¿
ÓÃÒÔÏ·½·¨ÖÐ
ÈçºÎ°Ñ·¾¶¸ÄΪD:\Program Files\ietool\
Dim AA$,WinSys$
'winsys ÊÇsystem32µÄ·¾¶,×Ô¼ºÏȸ³Öµ
'×¢²á
AA = "Regsvr32.exe /s " & WinSys & "abc.ocx"
Call Shell(AA, vbHide)
'½â³ý×¢²á
AA = "regsvr32 -u /s " & WinSys & "abc.ocx"
Call Shell(AA, vbHide)
Çë¸ßÊÖ¸ø³öÔ´Â롣лл
/s ²ÎÊý¾ÍÊǹرÕÌáʾ,ÄãÒª³É¹¦Ìáʾ¹Ø±Õ´Ë²ÎÊý¾ÍÊÇÁË.
ÏÈ¿´Íêregsvr32 µÄÃüÁî²ÎÊýÔÙÎʰÉ.
ÿ¸öµ¼³öCOM¶ÔÏóµÄdll,ocxµÈʵ¼ÊÉÏÒ²ÊÇÒ»¸ö±ê×¼µÄdll,ËüÃǶ¼µ¼³öÁËÁ½¸öº¯Êý£ºDllRegisterServer ,DllUnregisterServer¡£Ò»¸öÓÃÓÚ×¢²á£¬Ò»¸öÓÃÓÚ·´×¢²á.Regsvr32ʵ¼ÊÉϾÍÊǵ÷ÓõÄÕâЩº¯Êý¡£ËùÒÔÔÚ³ÌÐòÖ»Ðè×ÔÒѵ÷ÓþÍÐÐÁË
ÄãµÄ·½·¨ÊÇÕýÈ·µÄ£¬²»ÖªµÀÄ㻹ÎÊʲô£¿
±£ÏÕµÄ×ö·¨¸øÂ·¾¶¼ÓÉÏÒýºÅ¡£AA = "Regsvr32.exe /s " & chr(34) & WinSys & "abc.ocx" & chr(34)
Ïà¹ØÎÊ´ð£º
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
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 ......
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
Ã²ËÆÃ»·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......