ÈçºÎ¶¯Ì¬Ê¹ÓÃ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
Ïà¹ØÎÊ´ð£º
ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÎÒÓÃC#дÁËÒ»¸öCOM¡£
ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£
ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿
VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£
лл¸ßÊÖÖ¸µã¡£
......