[求助]用API弹出菜单的问题

Question

Public Sub PopupMenuAPI(ByVal hWnd As Long, ByVal MenuIndex As Long)   '弹出菜单
Dim MenuHandle As Long   '菜单句柄
Dim PopupMenuHandle As Long   '弹出子菜单句柄   MenuHandle = GetMenu(hWnd)
   PopupMenuHandle = GetSubMenu(MenuHandle, MenuIndex)
   GetCursorPos MyPOINT
   TrackPopupMenu& PopupMenuHandle, TPM_LEFTALIGN, MyPOINT.X, MyPOINT.Y, 0, hWnd, MyRECT
End Sub
我想用API弹出一个已在窗体建立好的菜单,写了这段程序,当窗体上的菜单项为可见的时候可以弹出指定的菜单,当菜单项设为不可见的时候就无法弹出菜单了,在PopupMenuHandle = GetSubMenu(MenuHandle, MenuIndex)这一句PopupMenuHandle 得到的值就为0了,请教各位如何能用API和窗体的hwnd弹出该窗体上已经建立并设置为不可见的菜单,谢谢

Answer 1

自带的popupmenu方法不是可以弹出不可见的么,API也应该可以吧