Поделиться через

Использование вариативности в делегатах (Visual Basic)

  • Статья

При назначении метода делегату ковариация и контравариантость обеспечивают гибкость сопоставления типа делегата с сигнатурой метода. Ковариация позволяет методу иметь тип возвращаемого значения, степень наследования которого больше, чем указано в делегате. Контравариантность позволяет использовать метод с типами параметров, степень наследования которых меньше, чем у типа делегата.

Пример 1. Ковариация

Description

В этом примере демонстрируется использование делегатов с методами, типы возвращаемых значений которых являются производными от типа возвращаемого значения в сигнатуре делегата. Тип данных, возвращаемый DogsHandler, является типом Dogs, производным от определенного в делегате типа Mammals.

Код

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

Пример 2. Контравариантность

Description

В этом примере демонстрируется использование делегатов с методами, параметры типа которых являются базовыми типами типа параметра сигнатуры делегата. Контравариантность позволяет использовать один обработчик событий вместо нескольких. В следующем примере используется два делегата:

  • Делегат KeyEventHandler, определяющий сигнатуру события Button.KeyDown. Его сигнатура:

    Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)

  • Делегат MouseEventHandler, определяющий сигнатуру события Button.MouseClick. Его сигнатура:

    Public Delegate Sub MouseEventHandler(sender As Object, e As MouseEventArgs)

В примере определяется обработчик событий с параметром EventArgs, который используется для обработки событий Button.KeyDown и Button.MouseClick. Это может сделать, так как EventArgs это базовый тип обоих KeyEventArgs и MouseEventArgs.

Код

' 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

См. также