Usando variação em delegados (Visual Basic)
Quando você atribui um método a um delegado, a covariância e a contravariância fornece flexibilidade para corresponder um tipo de delegado a uma assinatura de método. A covariância permite que um método tenha o tipo de retorno mais derivado do que o definido no delegado. A contravariância permite que um método que tem tipos de parâmetro menos derivados do que no tipo delegado.
Exemplo 1: covariância
Descrição
Este exemplo demonstra como delegados podem ser usados com métodos que têm tipos de retorno que são derivados do tipo de retorno na assinatura do delegado. O tipo de dados retornado por DogsHandler é do tipo Dogs, que deriva do tipo Mammals 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 representantes podem ser usados com métodos que têm parâmetros cujos tipos são tipos base do tipo de parâmetro de assinatura do representante. Com a contravariância, você pode usar um manipulador de eventos em vez de manipuladores separados. O seguinte exemplo usa dois representantes:
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 os eventos Button.KeyDown e Button.MouseClick. Ele pode fazer isso porque EventArgs é um tipo base de 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
