Usar la varianza para los delegados genéricos Func y Action (Visual Basic)
En estos ejemplos se muestra cómo usar la covarianza y la contravarianza en los delegados genéricos Func y Action para habilitar la reutilización de métodos y proporcionar más flexibilidad en el código.
Para más información sobre la covarianza y la contravarianza, consulte Varianza en delegados (Visual Basic).
Usar delegados con parámetros de tipo covariante
En el ejemplo siguiente se muestran las ventajas de la compatibilidad con la covarianza en los delegados Func genéricos. El método FindByTitle toma un parámetro del tipo String y devuelve un objeto del tipo Employee. Pero este método se puede asignar al delegado Func(Of String, Person) 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 método AddToContacts toma un parámetro del tipo Person. Pero este método se puede asignar al delegado Action(Of Employee) 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
