GetMenuContextHelpId 这个函数似乎无法获得VB菜单编辑器中设置的HelpContextId值，谁知道这里改用那个API函数啊？

Question

比如我的文件菜单下有个打开菜单，并且在编辑器中设置了帮助上下文ID为：10用下面代码得不到这个10啊：Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuContextHelpId Lib "user32" (ByVal hMenu As Long) As LongPrivate Sub Command1_Click()
    Dim Menu    As Long
    Menu = GetMenu(Me.hwnd)
    Menu = GetSubMenu(Menu, 0)
    Debug.Print Menu, GetMenuContextHelpId(Menu)  '这里menu的值不为0。
End Sub有哪位朋友有这方面的经验啊。项目中用的自绘菜单，无法使用VB菜单的HelpContextID属性。

Answer 1

进来探望传说中在闭关修行的童鞋。