Použití odchylek v delegátech (Visual Basic)
Když přiřadíte metodu delegátovi, kovariance a kontravariance poskytují flexibilitu pro porovnávání typu delegáta s podpisem metody. Kovariance umožňuje, aby metoda měla návratový typ, který je odvozenější než ten definovaný v delegátu. Kontravariance umožňuje metodu, která má typy parametrů, které jsou méně odvozené než ty v typu delegáta.
Příklad 1: Kovariance
Popis
Tento příklad ukazuje, jak lze delegáty použít s metodami, které mají návratové typy odvozené od návratového typu v podpisu delegáta. Datový typ vrácený typem DogsHandler je typu Dogs, který je odvozen od Mammals typu, který je definován v delegátu.
Kód
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
Příklad 2: Kontravariance
Popis
Tento příklad ukazuje, jak lze delegáty použít s metodami, které mají parametry, jejichž typy jsou základní typy typu parametru podpisu delegáta. Při kontravarianci můžete místo samostatných obslužných rutin použít jednu obslužnou rutinu události. Následující příklad používá dva delegáty:
Delegát KeyEventHandler , který definuje podpis události Button.KeyDown . Jeho podpis je:
Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)Delegát MouseEventHandler , který definuje podpis události Button.MouseClick . Jeho podpis je:
Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)
Příklad definuje obslužnou rutinu události s parametrem EventArgs a používá ji ke zpracování Button.KeyDown událostí i Button.MouseClick událostí. Může to udělat, protože EventArgs je základním typem obojího KeyEventArgs i MouseEventArgs.
Kód
' 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
