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

ÈçºÎ¶¯Ì¬Ê¹ÓÃ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.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

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

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


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

תΪVB.NETÔ´Âë.

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

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

vbÓëxmlÎÊÌâ

vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£

XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£

Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......

ÇëÎÊVBµ÷COMµÄÎÊÌâ

ÎÒÓÃC#дÁËÒ»¸öCOM¡£

ÆäËûÓУ²¸öÀ࣬һ¸öÀà¾ÍÊÇÆÕͨ·½·¨¡£µ÷ÓÃûÎÊÌâ¡£

ÁíÒ»¸öÀàÊÇÓû§¿Ø¼þ¡£ÎÒÔÚVBÖÐÈçºÎ°ÑÄǸö¿Ø¼þÏÔʾ³öÀ´£¿


VBµ÷COMÖУ¬COM ÊǸö¿Ø¼þ¡£

лл¸ßÊÖÖ¸µã¡£

......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ