Sdílet prostřednictvím

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

  • Článek

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é