Partager via

Utilisation de la variance pour les délégués génériques Func et Action (Visual Basic)

Ces exemples montrent comment utiliser la covariance et la contravariance dans les délégués génériques Func et Action pour permettre la réutilisation des méthodes et fournir une plus grande flexibilité dans votre code.

Pour plus d’informations sur la covariance et la contravariance, consultez Variance dans les délégués (Visual Basic).

Utilisation de délégués avec des paramètres de type covariant

L’exemple suivant illustre les avantages de la prise en charge de la covariance dans les délégués génériques Func. La FindByTitle méthode prend un paramètre du String type et retourne un objet du Employee type. Toutefois, vous pouvez affecter cette méthode au Func(Of String, Person) délégué, car Employee hérite Person.

' 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

Utilisation des délégués avec les paramètres de type contravariant

L’exemple suivant illustre les avantages de la prise en charge de la contravariance dans les délégués génériques Action. La AddToContacts méthode prend un paramètre du Person type. Toutefois, vous pouvez affecter cette méthode au Action(Of Employee) délégué, car Employee hérite Person.

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

Voir aussi

  • Last updated on