Postupy: Volání metody delegáta (Visual Basic)

Tento příklad ukazuje, jak přidružit metodu k delegátu a pak tuto metodu vyvolat prostřednictvím delegáta.

Vytvoření delegáta a odpovídajících postupů

1. Vytvořte delegáta s názvem MySubDelegate.

   Delegate Sub MySubDelegate(ByVal x As Integer)
   

2. Deklarujte třídu, která obsahuje metodu se stejným podpisem jako delegát.

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

3. Definujte metodu, která vytvoří instanci delegáta a vyvolá metodu přidruženou k delegátu voláním předdefinované Invoke metody.

   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
   

Viz také

• Příkaz Delegate
• Delegáti
• Události
• Vícevláknové aplikace