窗体菜单制作后，addressof调用程度地址时无效

monkey3500

试着照书本制作窗体菜单，问题来了。为什么我完全照书上写的，菜单是创建完成了，但是当点击命令时，并没有出现应该有的效果。请老师们帮解答一下，问题出在哪里？使用OFFICE 2016，64位的

monkey3500

1. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. Private Declare PtrSafe Function SetMenu Lib "user32" (ByVal Hwnd As LongPtr, ByVal hMenu As LongPtr) As Long
   
3. Private Declare PtrSafe Function CreateMenu Lib "user32" () As Long
   
4. Private Declare PtrSafe Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As LongPtr, ByVal wFlags As LongPtr, ByVal wIDNewItem As LongPtr, ByVal lpNewItem As Any) As Long
   
5. Private Declare PtrSafe Function DestroyMenu Lib "user32" (ByVal hMenu As LongPtr) As Long
   
6. Private Declare PtrSafe Function CreatePopupMenu Lib "user32" () As Long
   
7. Private Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal Hwnd As LongPtr, ByVal nIndex As LongPtr, ByVal dwNewLong As LongPtr) As Long
   
8. Private Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal Hwnd As LongPtr, ByVal nIndex As Long) As Long
   
9. Private Const GWL_WNDPROC = (-4)
   
10. Private Const MF_STRING = &H0&
    
11. Private Const MF_POPUP = &H10&
    
12. Dim MenuWnd As Long
    
13. Dim Dump As Long
    
14. Dim PopupMenuID As Long
    
15. 
    
16. Private Sub UserForm_Initialize()
    
17.     Hwnd = FindWindow(vbNullString, Me.Caption)
    
18.     MenuWnd = CreateMenu()
    
19.     PopupMenuID = CreatePopupMenu()
    
20.     Dump = AppendMenu(MenuWnd, MF_STRING + MF_POPUP, PopupMenuID, "采购订单")
    
21.     Dump = AppendMenu(PopupMenuID, MF_STRING, 100, "同步采购订单")
    
22.     Dump = AppendMenu(PopupMenuID, MF_STRING, 101, "刷新")
    
23. 
    
24.    Dump = SetMenu(Hwnd, MenuWnd)
    
25.    PreWinProc = GetWindowLong(Hwnd, GWL_WNDPROC)
    
26.    SetWindowLong Hwnd, GWL_WNDPROC, AddressOf MsgProcess
    
27. End Sub
    
28. 
    
29. Private Sub UserForm_Terminate()
    
30.     DestroyMenu MenuWnd
    
31.     DestroyMenu PopupMenuID
    
32.     SetWindowLong Hwnd, GWL_WNDPROC, PreWinProc
    
33. End Sub

复制代码

1. Private Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal Hwnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
   
2. Public PreWinProc As LongPtr, Hwnd As LongPtr
   
3. Public Function MsgProcess(ByVal Hwnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
   
4.     Select Case wParam.Value
   
5.         Case 100
   
6.             MsgBox "订单同步"
   
7.         Case 101
   
8.             MsgBox "刷新"
   
9.         Case Else
   
10.             MsgProcess = CallWindowProc(PreWinProc, Hwnd, Msg, wParam, lParam)
    
11.     End Select
    
12. End Function

复制代码

monkey3500

有没有人能帮忙看下啊，多谢啦

wodewan

monkey3500 发表于 2023-2-2 09:36
有没有人能帮忙看下啊，多谢啦

不是addressof的问题，debug一下就看出来了，PreWinProc没有获取到值，说明GetWindowLong不起作用，64位下用GetWindowLongPtr，set也是一个道理，其他还有些几个小细节，附件供参考：64位excel运行如下：

ivccav

窗体菜单.zip (20.23 KB, 下载次数: 9)

2023-2-2 11:25 上传

点击文件名下载附件

monkey3500

ivccav 发表于 2023-2-2 11:25

老师，具体来讲，我对API函数意义以及参数还是不懂，网上查找答案都不知道从哪儿查起，乱改了一气，仍不好用。烦请老师点明一下具体错处吧。多谢了

ivccav

monkey3500 发表于 2023-2-2 12:18
老师，具体来讲，我对API函数意义以及参数还是不懂，网上查找答案都不知道从哪儿查起，乱改了一气，仍不 ...

我没有64位的环境，无法测试，建议你下个软件自己查看函数定义：



我放在这个链接301楼了：

https://club.excelhome.net/thread-1424969-31-1.html

monkey3500

wodewan 发表于 2023-2-2 10:18
不是addressof的问题，debug一下就看出来了，PreWinProc没有获取到值，说明GetWindowLong不起作用，64位 ...

oo，好的，谢谢老师

monkey3500

wodewan 发表于 2023-2-2 10:18
不是addressof的问题，debug一下就看出来了，PreWinProc没有获取到值，说明GetWindowLong不起作用，64位 ...

感谢感谢，好用