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 delegado con una firma de método. La covarianza permite que un método tenga un tipo de retorno más derivado que el definido en el delegado. Contravariance permite un método que tiene tipos de parámetros menos derivados que los del tipo delegado.

Ejemplo 1: Covarianza

Descripción

En este ejemplo se muestra cómo se pueden usar delegados con métodos que tienen tipos de retorno que son derivados del tipo de retorno en la firma del delegado. El tipo de datos devuelto por DogsHandler es de tipo Dogs, que deriva del tipo Mammals que se define 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 cuyos tipos son tipos base del tipo de parámetro de firma de delegado. Con la contravarianza, puede usar un controlador de eventos en lugar de controladores independientes. En el ejemplo siguiente se usa 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 EventArgs parámetro y se usa para controlar los Button.KeyDown eventos y Button.MouseClick . Puede hacerlo porque EventArgs es un tipo base tanto de KeyEventArgs como de 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

Consulte también

• Varianza en delegados (Visual Basic)
• Usar la varianza para los delegados genéricos Func y Action (Visual Basic)