Używanie wariancji w delegatach (Visual Basic)
Podczas przypisywania metody do delegata kowariancja i kontrawariancja zapewniają elastyczność dopasowania typu delegata z podpisem metody. Kowariancja zezwala metodzie na zwracanie typu, który jest bardziej pochodny niż zdefiniowany w delegatu. Kontrawariancja zezwala na metodę, która ma typy parametrów, które są mniej pochodne niż te w typie delegata.
Przykład 1: Kowariancja
opis
W tym przykładzie pokazano, jak delegaty mogą być używane z metodami, które mają typy zwracane pochodzące z typu zwracanego w podpisie delegata. Typ danych zwracany przez DogsHandler jest typu Dogs, który pochodzi z Mammals typu zdefiniowanego w delegatu.
Kod
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
Przykład 2. Kontrawariancja
opis
W tym przykładzie pokazano, jak delegaty mogą być używane z metodami, które mają parametry, których typy są podstawowymi typami parametrów sygnatury delegata. W przypadku kontrawariancji można użyć jednej procedury obsługi zdarzeń zamiast oddzielnych procedur obsługi. W poniższym przykładzie użyto dwóch delegatów:
Delegat KeyEventHandler definiujący podpis zdarzenia Button.KeyDown . Jego podpis to:
Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)Delegat MouseEventHandler definiujący podpis zdarzenia Button.MouseClick . Jego podpis to:
Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
W przykładzie zdefiniowano program obsługi zdarzeń z parametrem EventArgs i używa go do obsługi zarówno zdarzeń, jak Button.KeyDown i Button.MouseClick . Może to zrobić, ponieważ EventArgs jest podstawowym typem zarówno , jak KeyEventArgs i MouseEventArgs.
Kod
' 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
