求助,请进来认真看。
我通过API函数在窗口的系统菜单上加了一个菜单项,名为“合并到主窗体”,但是我怎么取回它的单击事件呢?菜单如图所示。
还有什么数据需要的就说,只要思路,不要源码,谢谢。
顺便将加菜单项的代码发上来,供各位参考
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long'取得系统菜单的句柄Private Declare Function InsertMenu Lib "user32" Alias "InsertMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long'在指定的菜单中加一个菜单项Private Const MF_STRING = &H0&'指定新的菜单项显示的是字符串Private Const MF_BYPOSITION = &H400&'指定前一个参数代表的是新菜单项的位置而不是IDPrivate Sub Form_Load()InsertMenu GetSystemMenu(Me.hwnd, 0), 0, MF_BYPOSITION Or MF_STRING, 0, "合并到主窗体"'添加菜单成功End Sub