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 wyspecjalizowany niż zdefiniowany w delegacie. Kontrawariancja umożliwia zastosowanie metody, której typy parametrów są mniej złożone 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 będące pochodnymi typu zwracanego określonego w podpisie delegata. Typ danych zwracany przez DogsHandler to Dogs, który pochodzi od typu Mammals, zdefiniowanego w delegacie.

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

Zobacz także

• Zmienność w delegatach (Visual Basic)
• Używanie wariancji dla delegatów ogólnych Func i Action (Visual Basic)