VB6的函數指標傳遞

標籤：

Option ExplicitPrivate 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 LongPublic Type MySubParams    ID As Long    Name As StringEnd TypeSub MySub1(p As MySubParams, a As Long, b As Long, c As Long)    Debug.Print VarPtr(p)    MsgBox "MySub1 " & p.ID & " " & p.NameEnd SubSub MySub2(p As MySubParams, a As Long, b As Long, c As Long)    Debug.Print VarPtr(p)    MsgBox "MySub2 " & p.ID & " " & p.NameEnd SubFunction CallSub(address As Long, params As Long)    CallSub = CallWindowProc(address, params, 0&, 0&, 0&)End FunctionSub Start()    Dim a As Long    Dim p As MySubParams    p.ID = 1    p.Name = "Test1"    Debug.Print VarPtr(p)    Debug.Print CallSub(AddressOf MySub1, VarPtr(p))    p.ID = 2    p.Name = "Test2"    Debug.Print CallSub(AddressOf MySub2, VarPtr(p))End Sub

 

VB6的函數指標傳遞