得知目前Mouse所指的MenuItem是哪一個(gè)

2019-11-18 17:52:51

字體：大中小

供稿：網(wǎng)友

請(qǐng)先查閱有BitMap的Menu取得Menu的相關(guān)知識(shí)，再查如何攔截ComboBoxMouseMove的SubClass之技巧一些商業(yè)軟件中，當(dāng)滑鼠指向某個(gè)MenuItem時(shí)，在表單的底部STATUSBAR中會(huì)顯示有該Item功能的簡(jiǎn)要說(shuō)明。而VB5中有關(guān)Menu的捕捉事件只有一個(gè)CLICK，那該如何做呢。其實(shí)當(dāng)選擇了Menu後，Mouse在MenuSubMenuMenuItem上移來(lái)移去時(shí)，會(huì)產(chǎn)生WM_MENUSELECT的Message給Menu所在的表單，而其wParam的LowWord有兩個(gè)意義，如果Mouse指到的Item之下還有子Menu，該LowWordofwParam指的是該Item是第幾個(gè)SubMenu，而lParam便是Menu的Handle；相反的，如果Mouse所指的Item底下沒有PopupMenu了，那LowWordofwParam指的是MenuID，而lParam是hSubMenu。

檔案編輯選項(xiàng)-->hMenu(功能表,Menu)
-------
|復(fù)制|--------->hSubMenu(子功能表,SubMenu)
|貼上|
|減下------------->MenuID(功能表項(xiàng)目,MenuItem)
||
-------

所以了，這就得使用SubClass的技巧，取得WM_MENUSELECT的Message，進(jìn)而得知到底是選到了哪一個(gè)MenuItem。當(dāng)然了，我們可以使用GetMenuGetSubMenuGetMenuItemID等API來(lái)得知功能表上每一個(gè)項(xiàng)目的hMenuhSubMenuMenuID,如此一來(lái)，和WM_MENUSELECT訊息所取得的lParamwParam做做比較，就可得知到底選上了哪一個(gè)，而本例則是使用GetMenuString取得MenuItem的title，如果您的MenuItems沒有相同的title，也不失一得知方式。

'以下在form，請(qǐng)自行加Menu於Form上
Else
CallGetMenuString(hMenu,hSubmenu,SubMenuStr,256,MF_BYCOMMAND)
SubMenuStr=Left(SubMenuStr,InStr(1,SubMenuStr,Chr(0))-1)
Debug.Print"正在PopUpMenu" SubMenuStr
EndIf
EndIf
'將之送往原來(lái)的WindowProcedure
wndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)
EndFunction->