Note
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier les répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de changer de répertoire.
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 ClassDé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
Invokeappelant 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