Usando variância em delegados (Visual Basic)
Quando você atribui um método a um delegado, a covariância e a contravariância fornecem flexibilidade para corresponder um tipo de 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âmetros que são menos derivados do que aqueles no tipo delegado.
Exemplo 1: Covariância
Description
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
Description
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 delegada. Com contravariância, você pode usar um manipulador de eventos em vez de manipuladores separados. O exemplo a seguir usa dois delegados:
Um KeyEventHandler delegado que define a assinatura do evento Button.KeyDown . A sua assinatura é:
Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)Um MouseEventHandler delegado que define a assinatura do evento Button.MouseClick . A sua assinatura é:
Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
O exemplo define um manipulador de eventos com um EventArgs parâmetro e o usa para manipular os Button.KeyDown eventos and Button.MouseClick . Ele pode fazer isso porque EventArgs é um tipo de base de ambos e KeyEventArgsMouseEventArgs.
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
