Usando variação em delegados (Visual Basic)

Quando você atribui um método a um delegado, a covariância e a contravariância fornecem flexibilidade para a correspondência de um tipo delegado com uma assinatura de método. A covariância permite que um método tenha um tipo de retorno mais derivado do que o definido no delegado. A contravariância permite um método que tem tipos de parâmetro que são menos derivados do que aqueles no tipo delegado.

Exemplo 1: Covariância

Descrição

Este exemplo demonstra como os delegados podem ser usados com métodos que têm tipos de retorno derivados do tipo de retorno na assinatura do delegado. O tipo de dados retornado por DogsHandler é do tipo Dogs, que deriva do Mammals tipo definido no 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

Exemplo 2: contravariância

Descrição

Este exemplo demonstra como os delegados podem ser usados com métodos que têm parâmetros cujos tipos são tipos base do tipo de parâmetro de assinatura delegado. Com o conceito de contravariância, você pode utilizar um único manipulador de eventos em vez de handlers separados. O exemplo a seguir usa dois delegados:

• Um representante KeyEventHandler que define a assinatura do evento Button.KeyDown. Sua assinatura é:

  Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)
  

• Um representante MouseEventHandler que define a assinatura do evento Button.MouseClick. Sua assinatura é:

  Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
  

O exemplo define um manipulador de eventos com um parâmetro EventArgs e o usa para manipular tanto os eventos Button.KeyDown quanto os eventos Button.MouseClick. Ele pode fazer isso porque EventArgs é um tipo base de ambos KeyEventArgs e 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 também

• Variação em delegados (Visual Basic)
• Usando variação para delegados genéricos Func e Action (Visual Basic)