Comment : passer des procédures à une autre procédure en Visual Basic

Mise à jour : novembre 2007

Cet exemple montre comment utiliser des délégués pour passer une procédure à une autre procédure.

Un délégué est un type que vous pouvez utiliser comme tout autre type dans Visual Basic. L'opérateur AddressOf retourne un objet délégué lorsqu'il est appliqué à un nom de procédure.

Cet exemple comporte une procédure avec un paramètre de délégué qui peut prendre une référence à une autre procédure, obtenue avec l'opérateur AddressOf.

Création du délégué et des procédures correspondantes

1. Créez un délégué nommé MathOperator.

   Delegate Function MathOperator( _
       ByVal x As Double, _
       ByVal y As Double _
   ) As Double
   

2. Créez une procédure nommée AddNumbers avec des paramètres et une valeur de retour qui correspondent à ceux de MathOperator, de sorte que les signatures correspondent.

   Function AddNumbers( _
       ByVal x As Double, _
       ByVal y As Double _
   ) As Double
       Return x + y
   End Function
   

3. Créez une procédure nommée SubtractNumbers avec une signature qui correspond à MathOperator.

   Function SubtractNumbers( _
       ByVal x As Double, _
       ByVal y As Double _
   ) As Double
       Return x - y
   End Function
   

4. Créez une procédure nommée DelegateTest qui prend un délégué comme paramètre.

   Cette procédure peut accepter une référence à AddNumbers ou SubtactNumbers, car leurs signatures correspondent à la signature de MathOperator.

   Sub DelegateTest( _
       ByVal x As Double, _
       ByVal op As MathOperator, _
       ByVal y As Double _
   )
       Dim ret As Double
       ret = op.Invoke(x, y) ' Call the method.
       MsgBox(ret)
   End Sub
   

5. Créez une procédure nommée Test qui appelle DelegateTest une fois avec le délégué de AddNumbers comme paramètre, puis une autre fois avec le délégué de SubtractNumbers comme paramètre.

   Protected Sub Test()
       DelegateTest(5, AddressOf AddNumbers, 3)
       DelegateTest(9, AddressOf SubtractNumbers, 3)
   End Sub
   

   Lorsque la procédure Test est appelée, elle affiche d'abord le résultat de l'action de AddNumbers sur 5 et 3, qui est égal à 8. Ensuite, le résultat de l'action de SubtractNumbers sur 9 et 3 est affiché, qui est égal à 6.

Voir aussi

Tâches

Comment : appeler une méthode déléguée

Référence

AddressOf, opérateur

Delegate, instruction

Autres ressources

Délégués en Visual Basic