Partager via

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

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 n’importe quel 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 délégué qui peut faire référence à une autre procédure obtenue avec l’opérateur AddressOf .

Créer le délégué et les 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 à celles de MathOperator, afin 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é en tant que paramètre.

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

    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 première fois avec le délégué de AddNumbers comme paramètre, puis une deuxième 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

    Lorsqu’on appelle Test, il affiche d’abord le résultat de l'action de AddNumbers sur 5 et 3, dont le résultat est 8. Ensuite, le résultat de SubtractNumbers agissant sur 9 et 3 est affiché, ce qui est 6.

Voir aussi