IDC资讯中心
请先查阅有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上
PrivateSubForm_Load()
DimretAsLong
hMenu=GetMenu(Me.hwnd)
记录原本的WindowProcedure的位址
preWinProc=GetWindowLong(Me.hwnd,GWL_WNDPROC)
设定Combo1的windowProcedure到wndproc
ret=SetWindowLong(Me.hwnd,GWL_WNDPROC,AddressOfwndproc)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
DimretAsLong
取消Message的截取，而使之又只送往原来的WindowProcedure
ret=SetWindowLong(Me.hwnd,GWL_WNDPROC,preWinProc)
EndSub
以下在.Bas
以下程式在module1.bas
DeclareFunctionSetWindowLongLib”user32″Alias”SetWindowLongA”_
(ByValhwndAsLong,ByValnIndexAsLong,ByValdwNewLongAsLong)AsLong
DeclareFunctionGetWindowLongLib”user32″Alias”GetWindowLongA”_
(ByValhwndAsLong,ByValnIndexAsLong)AsLong
DeclareFunctionCallWindowProcLib”user32″Alias”CallWindowProcA”_
(ByVallpPrevWndFuncAsLong,ByValhwndAsLong,ByValMsgAsLong,_
ByValwParamAsLong,ByVallParamAsLong)AsLong
DeclareFunctionGetMenuStringLib”user32″Alias”GetMenuStringA”(ByValhMenuAsLong,ByValwIDItemAsLong,ByVallpStringAsString,ByValnMaxCountAsLong,ByValwFlagAsLong)AsLong
DeclareFunctionGetMenuLib”user32″(ByValhwndAsLong)AsLong
DeclareFunctionGetSubMenuLib”user32″(ByValhMenuAsLong,ByValnPosAsLong)AsLong
PublicConstGWL_WNDPROC=(-4)
PublicConstWM_MENUSELECT=&H11F
PublicConstMF_BYCOMMAND=&H0&
PublicConstMF_BYPOSITION=&H400&
PublichMenuAsLong
PublicpreWinProcAsLong
PrivateTypetLong
llAsLong
EndType
PrivateTypeTwoWord
LowWordAsInteger
HiWordAsInteger
EndType
PublicFunctionwndproc(ByValhwndAsLong,ByValMsgAsLong,_
ByValwParamAsLong,ByVallParamAsLong)AsLong
DimMenuItemStrAsString,SubMenuStrAsString
DimhSubmenuAsLong,MenuIdAsLong,iAsLong
DimtmplAstLong,tmptAsTwoWord
以下程式会截取WM_MENUSELECT处理完後，再将之送往原来的WindowProcedure
IfMsg=WM_MENUSELECTThen
SubMenuStr=String(255,0)
MenuItemStr=String(255,0)
tmpl.ll=wParam
LSettmpt=tmpl
MenuId=tmpt.LowWord
hSubmenu=GetSubMenu(lParam,MenuId)
IfhSubmenu=0Then表示该item之下没有popupMenu了
CallGetMenuString(lParam,MenuId,MenuItemStr,256,MF_BYCOMMAND)
MenuItemStr=Left(MenuItemStr,InStr(1,MenuItemStr,Chr(0))-1)
Debug.Print”正在MenuItem” MenuItemStr
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->
