Usar varianza en delegados (Visual Basic)
Al asignar un método a un delegado, la covarianza y la contravarianza proporcionan flexibilidad para hacer coincidir un tipo de delegado con una firma de método. La covarianza permite que un método tenga un tipo de valor devuelto más derivado que el definido en el delegado. La contravarianza permite un método que tiene tipos de parámetro menos derivados que los del tipo de delegado.
Ejemplo 1: Covarianza
Descripción
En este ejemplo se muestra cómo se pueden usar delegados con métodos que tienen tipos de valor devuelto derivados del tipo de valor devuelto en la firma del delegado. El tipo de datos devuelto por DogsHandler es de tipo Dogs, que se deriva del tipo Mammals definido en el delegado.
Código
Class Mammals
End Class
Class Dogs
Inherits Mammals
End Class
Class Test
Public Delegate Function HandlerMethod() As Mammals
Public Shared Function MammalsHandler() As Mammals
Return Nothing
End Function
Public Shared Function DogsHandler() As Dogs
Return Nothing
End Function
Sub Test()
Dim handlerMammals As HandlerMethod = AddressOf MammalsHandler
' Covariance enables this assignment.
Dim handlerDogs As HandlerMethod = AddressOf DogsHandler
End Sub
End Class
Ejemplo 2: Contravarianza
Descripción
En este ejemplo se muestra cómo se pueden usar delegados con métodos que tienen parámetros que son tipos base del tipo de parámetro de la firma del delegado. Con la contravarianza, puede usar un controlador de eventos en lugar de controladores independientes. En el ejemplo siguiente se usan dos delegados:
Un delegado KeyEventHandler que define la firma del evento Button.KeyDown. Su firma es:
Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)Un delegado MouseEventHandler que define la firma del evento Button.MouseClick. Su firma es:
Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
En el ejemplo se define un controlador de eventos con un parámetro EventArgs, que se usa para controlar los eventos Button.KeyDown y Button.MouseClick. Es posible hacer esto porque EventArgs es un tipo base de KeyEventArgs y MouseEventArgs.
Código
' Event handler that accepts a parameter of the EventArgs type.
Private Sub MultiHandler(ByVal sender As Object,
ByVal e As System.EventArgs)
Label1.Text = DateTime.Now
End Sub
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
' You can use a method that has an EventArgs parameter,
' although the event expects the KeyEventArgs parameter.
AddHandler Button1.KeyDown, AddressOf MultiHandler
' You can use the same method
' for the event that expects the MouseEventArgs parameter.
AddHandler Button1.MouseClick, AddressOf MultiHandler
End Sub
