Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Cet exemple montre comment associer une méthode à un délégué, puis appeler cette méthode par le biais du délégué.
Créer le délégué et les 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
Invoke
appelant la méthode 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