Delen via

Variantie gebruiken voor func en actie algemene gemachtigden (Visual Basic)

  • Artikel

Deze voorbeelden laten zien hoe u covariantie en contravariantie gebruikt in de Func en Action algemene gemachtigden om hergebruik van methoden mogelijk te maken en meer flexibiliteit in uw code te bieden.

Zie Afwijking in Gemachtigden (Visual Basic) voor meer informatie over covariantie en contravariantie.

Gemachtigden gebruiken met parameters voor covarianttype

In het volgende voorbeeld ziet u de voordelen van covariantieondersteuning in de algemene Func gemachtigden. De FindByTitle methode gebruikt een parameter van het String type en retourneert een object van het Employee type. U kunt deze methode echter toewijzen aan de Func(Of String, Person) gemachtigde omdat Employee deze wordt Personovergenomen.

' Simple hierarchy of classes.
Public Class Person
End Class

Public Class Employee
    Inherits Person
End Class

Class Finder
    Public Shared Function FindByTitle(
        ByVal title As String) As Employee
        ' This is a stub for a method that returns
        ' an employee that has the specified title.
        Return New Employee
    End Function

    Sub Test()
        ' Create an instance of the delegate without using variance.
        Dim findEmployee As Func(Of String, Employee) =
            AddressOf FindByTitle

        ' The delegate expects a method to return Person,
        ' but you can assign it a method that returns Employee.
        Dim findPerson As Func(Of String, Person) =
            AddressOf FindByTitle

        ' You can also assign a delegate
        ' that returns a more derived type to a delegate
        ' that returns a less derived type.
        findPerson = findEmployee
    End Sub
End Class

Gemachtigden gebruiken met Parameters voor contravarianttype

In het volgende voorbeeld ziet u de voordelen van contravariantieondersteuning in de algemene Action gemachtigden. De AddToContacts methode gebruikt een parameter van het Person type. U kunt deze methode echter toewijzen aan de Action(Of Employee) gemachtigde omdat Employee deze wordt Personovergenomen.

Public Class Person
End Class

Public Class Employee
    Inherits Person
End Class

Class AddressBook
    Shared Sub AddToContacts(ByVal person As Person)
        ' This method adds a Person object
        ' to a contact list.
    End Sub

    Sub Test()
        ' Create an instance of the delegate without using variance.
        Dim addPersonToContacts As Action(Of Person) =
            AddressOf AddToContacts

        ' The Action delegate expects
        ' a method that has an Employee parameter,
        ' but you can assign it a method that has a Person parameter
        ' because Employee derives from Person.
        Dim addEmployeeToContacts As Action(Of Employee) =
            AddressOf AddToContacts

        ' You can also assign a delegate
        ' that accepts a less derived parameter
        ' to a delegate that accepts a more derived parameter.
        addEmployeeToContacts = addPersonToContacts
    End Sub
End Class

Zie ook