Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
In diesem Beispiel wird gezeigt, wie Sie eine Methode einem Delegaten zuordnen und diese Methode dann über den Delegaten aufrufen.
Erstellen des Delegaten und der übereinstimmenden Prozeduren
Erstellen Sie eine Stellvertretung mit dem Namen
MySubDelegate
.Delegate Sub MySubDelegate(ByVal x As Integer)
Deklarieren Sie eine Klasse, die eine Methode mit derselben Signatur wie der Delegat enthält.
Class class1 Sub Sub1(ByVal x As Integer) MsgBox("The value of x is: " & CStr(x)) End Sub End Class
Definieren Sie eine Methode, die eine Instanz des Delegaten erstellt und die dem Delegaten zugeordnete Methode aufruft, indem Sie die integrierte
Invoke
Methode aufrufen.Protected Sub DelegateTest() Dim c1 As New class1 ' Create an instance of the delegate. Dim msd As MySubDelegate = AddressOf c1.Sub1 ' Call the method. msd.Invoke(10) End Sub