Compartir a través de

Usar varianza para delegados genéricos de func y acción (Visual Basic)

En estos ejemplos se muestra cómo usar covarianza y contravarianza en los Func y Action delegados genéricos para habilitar la reutilización de métodos y proporcionar más flexibilidad en su código.

Para obtener más información sobre la covarianza y la contravarianza, vea Varianza en delegados (Visual Basic).

Uso de delegados con parámetros de tipo covariantes

En el ejemplo siguiente se muestran las ventajas de la compatibilidad con la covarianza en los delegados Func genéricos. El FindByTitle método toma un parámetro del String tipo y devuelve un objeto del Employee tipo . Sin embargo, puede asignar este método al Func(Of String, Person) delegado porque Employee hereda 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

Usar delegados con parámetros de tipo contravariante

En el ejemplo siguiente se muestran las ventajas de la compatibilidad con la contravarianza en los delegados Action genéricos. El AddToContacts método toma un parámetro del Person tipo . Sin embargo, puede asignar este método al Action(Of Employee) delegado porque Employee hereda 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

Consulte también

  • Last updated on