得知目前Mouse所指的MenuItem是哪一個

2019-11-18 17:52:51

字體：大中小

來源：轉載

供稿：網友

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

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

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

'以下在form，請自行加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
'將之送往原來的WindowProcedure
wndproc=CallWindowProc(preWinProc,hwnd,Msg,wParam,lParam)
EndFunction->