Como invocar um método delegado (Visual Basic)

Este exemplo mostra como associar um método a um delegado e, em seguida, invocar esse método por meio do delegado.

Criar os procedimentos de delegação e correspondência

1. Crie um delegado chamado MySubDelegate.

   Delegate Sub MySubDelegate(ByVal x As Integer)
   

2. Declare uma classe que contém um método com a mesma assinatura que o delegado.

   Class class1
       Sub Sub1(ByVal x As Integer)
           MsgBox("The value of x is: " & CStr(x))
       End Sub
   End Class
   

3. Defina um método que cria uma instância do delegado e invoca o método associado ao delegado chamando o método interno Invoke .

   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
   

Ver também

• Declaração do delegado
• Delegados
• Eventos
• Aplicações Multifiadas