ÈçºÎ¶¯Ì¬Ê¹ÓÃVB¿ì½Ý¼ü£¿
ÎÒÓиö¹¦ÄÜÐèҪʵÏÖVB.FormÉϵIJ˵¥µÄ¶¯Ì¬Ìí¼Ó¡¢Ð޸ġ¢É¾³ý¹¦ÄÜ£¬ÏÖÓöµ½ÒÔÏÂÒ»¸öÎÊÌâһֱδÄܿ˷þ£¬ÌØÀ´Ïò´óʦÃÇÇó½Ì£º
1¡¢ÎÒÒÑÓеÄFormÉϵIJ˵¥ÊÇÓÃVB×Ô´øµÄMenuEditorÉú³ÉµÄ£¬ÀïÃæµÄÓиö±ðµÄ²Ëµ¥ÊÇÓпì½Ý¼üµÄ£¬ÎÒ×ÓÀ໯ÁË´Ë´°Ìå¡£ÏÖÔÚÊó±êµã»÷´Ë²Ëµ¥µÄʱºò£¬ÎÒ¶¼ÄܸÐÓ¦µ½ÏàÓ¦µÄÏûÏ¢£¨WM_COMMAND£©£¬¿ÉÊÇÎÒÓÿì½Ý¼üÈ¥¼¤»î²Ëµ¥£¬VBIDEÀïµÄ´úÂëÄÜÏàÓ¦£¬µ«ÊÇÎÒ×ÓÀ໯µÄ¹ý³ÌÈ´ÊÕ²»µ½ÏàÓ¦ÏûÏ¢£¬ÇëÎÊÊÇʲôÔÒòÔì³ÉµÄÄØ£¿
Form²Ëµ¥´úÂ룺£¨¿ì½Ý¼üÊÇ£ºCtrl+N)
VB code:
Private Sub mnuFileOpen_Click()
'/* ¿ì½Ý¼ü¼°Êó±êµã»÷¶¼ÄÜÖ´Ðе½
MsgBox "FormMenu Clicked!" & mnuFileOpen.Name
End Sub
×ÓÀ໯´úÂ룺£¨¿ì½Ý¼ü¼¤»î²Ëµ¥Ê±£¬ÏÂÃæ¹ý³Ì²¶×½²»µ½£¬µ«Êǵã»÷ÊÇ¿ÉÒÔ²¶×½µ½µÃ£©
VB code:
Private Function ISubclass_WindowProc(ByVal Hwnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long, Optional bCancel As Boolean = False) As Long
Dim tWinMessage As MSG
Dim lMenuID As Long
Dim oMenuItem As MenuItem
Select Case iMsg
Case WM_COMMAND
If lParam = 0 Then
lMenuID = LOWORD(wParam)
Set oMenuItem = m_oMenuHelper.FindMenuItemByID(lMenuID)
If Not oMenuItem Is Nothing Then
Ïà¹ØÎÊ´ð£º
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
ÌâÄ¿ÃèÊöÓ¦¸Ã²»ÊǺÜ׼ȷ¡£
ÏÖ×´ÊÇ£º¼ÙÈçÒ»¸öÎı¾Îļþ¹²100ÐУ¬ÄÇôÎÒÑ»·´ÎÊý×î´ó¾ÍÊÇ100×100=10000Ï£¬»¨·Ñʱ¼ä·Ç³£¶à£¬ÇëÎÊÓÐûÓа취Äܹ»Ìá¸ß¶ÔÎı¾ÎļþµÄÑ»··ÃÎÊËÙ¶È¡£·ÇÊý¾Ý¿â¼¼Êõ¡£
ÄãҪѻ·×öʲô£ ......
¸÷λ°ïæ¿´¿´
VBµ÷ÓÃUsb7kC.dll
³ÌÐòÊÇÒ»¸ö×ÀÇò·»µÄÓÃÓÚ¿ØÖÆÌ¨×ÀµÄ¿ª¹ØµÆ
ÔÏÈÓõÄÊÇPCµÆ¿Ø¿¨£¬ÏÖÔÚÔö¼ÓÁËÒ»¸öUSBµÄ¿ØÖÆ¿¨
´Ó33ºÅÒÔºó¾ÍÊÇUSB¿¨¿ØÖƵģ¬ÏàÓ¦µÄ33×À¶ÔÓ¦µÄÊÇUSB¿ØÖÆ¿¨µÄ1ºÅÏß·
......
ÓÃVBÔõôֻÕë¶Ôwindows×Ô´øµÄÎļþµÄÓÒ¼üÌí¼Ó²Ëµ¥ È磨.txt .doc)
Õâ¸öÊÇÖ»Õë¶ÔÒÔÕâÁ½¸öΪÀ©Õ¹ÃûµÄÎļþ²Ù×÷
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\txtfile\shell\[Ëæ±ãÆðÃû]\command]
@= ......