vb6 - How zu übergeben, eine Funktion für parameter?

Wie kann ich tun, um pass einer Funktion durch die parameter, die später aufgerufen werden, in VB6?
wäre so etwas wie das, was ich brauche, kann jede dieser Optionen:

Private Sub Command1_Click()

    Call callMethod(MyPrivateFunction)
    Call callMethod(MyPublicFunction)
    Call callMethod(MyPrivateSub)
    Call callMethod(MyPublicSub)

End Sub

Private Function MyPrivateFunction()
    MsgBox "MyPrivateFunction"
End Function

Public Function MyPublicFunction()
    MsgBox "MyPublicFunction"
End Function

Private Sub MyPrivateSub()
    MsgBox "MyPrivateSub"
End Sub

Public Sub MyPublicSub()
    MsgBox "MyPublicSub"
End Sub

Public Function callMethod(ByRef func As Object)
    Call func
End Function
  • Muss es sein, die Funktion Objekt selbst? Warum nicht übergeben wird ein string, dann verwenden Sie eine case-Anweisung zum aufrufen der entsprechenden Funktion?
  • Ich verwende "Microsoft.XMLHTTP" und dann den Aufruf der Methode müssen myHttp.OnReadyStateChange = xFunction. Und xFunction übergeben werden sollen, durch die parameter
  • Ich kann mich nicht erinnern, vb6 all zu gut, aber ich glaube, Sie brauchen, um zu verwenden, AddressOf um einen Rückruf zu registrieren. Und die Funktion muss deklariert werden in einem Modul.
Schreibe einen Kommentar