VBA AddressOf Crash Office 应用程序答案

【问题标题】：VBA AddressOf Crash Office AppVBA AddressOf Crash Office 应用程序
【发布时间】：2014-09-19 19:03:58
【问题描述】：

我想运行一个简单的 sn-p，但每次访问和 Excel 崩溃。

我正在运行 CallbackTest2，请您帮帮我。谢谢分配。

Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" ( _
      ByVal lpPrevWndFunc As Long, _
      ByVal hwnd As Long, _
      ByVal msg As Long, _
      ByVal wParam As Long, _
      ByVal lParam As Long) _
      As Long

Sub CallbackTest2()
   CallWindowProc AddressOf CallbackMsg, 0, 0, 0, 0
End Sub

Public Function CallbackMsg _
      (msg As String, _
      ByVal nUnused1 As Long, _
      ByVal nUnused2 As Long, _
      ByVal nUnused3 As Long)

   MsgBox "CallBack Work :)" & msg
End Function

【问题讨论】：

您使用的是 64 位 Access/Excel 版本吗？
您将 4 个参数传递给期望 5 个的例程。

标签： vba ms-access excel addressof

【解决方案1】：

找到了解决办法。

我改变的东西：

从函数到子的回调消息
用数据填充的字符串参数 VarPtr("Hallo Welt")

运行版本：

Private Declare Function CallWindowProc _
                          Lib "user32.dll" Alias "CallWindowProcA" ( _
                              ByVal lpPrevWndFunc As Long, _
                              ByVal hwnd As Long, _
                              ByVal msg As Long, _
                              ByVal wParam As Long, _
                              ByVal lParam As Long) As Long

private Sub CallbackTest2()
   CallWindowProc AddressOf CallbackMsg, VarPtr("Hallo Welt"), 0, 0, 0
End Sub

Private Sub CallbackMsg( _
        msg As String, _
        ByVal nUnused1 As Long, _
        ByVal nUnused2 As Long, _
        ByVal nUnused3 As Long)
    MsgBox msg
End Sub

【讨论】：