Delen via

Procedure: Een gemachtigde methode aanroepen (Visual Basic)

  • Artikel

In dit voorbeeld ziet u hoe u een methode koppelt aan een gemachtigde en deze methode vervolgens aanroept via de gemachtigde.

De gedelegeerde en overeenkomende procedures maken

  1. Maak een gemachtigde met de naam MySubDelegate.

    Delegate Sub MySubDelegate(ByVal x As Integer)

  2. Declareer een klasse die een methode bevat met dezelfde handtekening als de gemachtigde.

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

  3. Definieer een methode die een instantie van de gemachtigde maakt en de methode aanroept die is gekoppeld aan de gemachtigde door de ingebouwde Invoke methode aan te roepen.

    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

Zie ook