5

簡単なスニペットを実行したいのですが、常に Access と 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
4

1 に答える 1

1

解決策を見つけました。

私が変えること：

  • 関数からサブルーチンへの 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
于 2014-07-29T09:15:05.117 に答える