Compartilhar via


Como passar procedimentos para outro procedimento no Visual Basic

Este exemplo mostra como usar delegados para passar um procedimento para outro.

Um delegado é um tipo que você pode usar como qualquer outro tipo no Visual Basic. O operador AddressOf retorna um objeto delegado quando aplicado a um nome de procedimento.

Este exemplo tem um procedimento com um parâmetro delegado que pode fazer uma referência a outro procedimento, obtido com o operador AddressOf.

Criar o delegado e os procedimentos correspondentes

  1. Para criar um delegado chamado MathOperator.

    Delegate Function MathOperator( 
        ByVal x As Double, 
        ByVal y As Double 
    ) As Double
    
  2. Crie um procedimento nomeado AddNumbers com parâmetros e valor retornado que corresponda aos de MathOperator, para que as assinaturas correspondam.

    Function AddNumbers( 
        ByVal x As Double, 
        ByVal y As Double 
    ) As Double
        Return x + y
    End Function
    
  3. Crie um procedimento nomeado SubtractNumbers com uma assinatura que corresponda MathOperator.

    Function SubtractNumbers( 
        ByVal x As Double, 
        ByVal y As Double
    ) As Double
        Return x - y
    End Function
    
  4. Crie um procedimento chamado DelegateTest que usa um delegado como um parâmetro.

    Esse procedimento pode aceitar uma referência a AddNumbers ou SubtractNumbers porque suas assinaturas correspondem à assinatura 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. Crie um procedimento chamado Test que chama DelegateTest uma vez com o delegado para AddNumbers como um parâmetro e novamente com o delegado para SubtractNumbers como um parâmetro.

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

    Quando Test é chamado, ele primeiro exibe o resultado da AddNumbers atuando em 5 e 3, que é 8. Em seguida, o resultado de SubtractNumbers atua em 9 e 3 é exibido, que é 6.

Confira também