VBA AddressOf Crash Office应用程序 [英] VBA AddressOf Crash Office App

问题描述

我想运行一个简单的代码段，但是每次Access和Excel崩溃.

I want to run a simple snippet, but evertime Access and Excel crash.

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

I'm running CallbackTest2, could you please help me. Thanks allot.

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

推荐答案

找到了解决方案.

我要改变的事情

• 从函数到子的CallbackMsg
• 用数据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

这篇关于VBA AddressOf Crash Office应用程序的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！