Cet exemple montre comment associer une méthode à un délégué, puis comment appeler cette méthode par le biais du délégué.
Création du délégué et des procédures correspondantes
-
Créez un délégué nommé MySubDelegate.
Delegate Sub MySubDelegate(ByVal x As Integer)
-
Déclarez une classe qui contient une méthode avec la même signature que le délégué.
Class class1
Sub Sub1(ByVal x As Integer)
MsgBox("The value of x is: " & CStr(x))
End Sub
End Class
-
Définissez une méthode qui crée une instance du délégué et appelle la méthode associée au délégué en appelant la méthode Invoke intégrée.
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
Voir aussi