Megosztás a következőn keresztül:


Variancia alkalmazása a delegáltakban (Visual Basic)

Amikor metódust rendel egy delegálthoz, a kovariancia és kontravariancia rugalmasságot biztosít a delegált típus illesztése a metódus aláírásához. A kovariancia lehetővé teszi, hogy egy metódus olyan visszatérési típussal rendelkezzen, amely származtatottabb, mint a delegáltban definiált. A contravariance olyan metódust engedélyez, amely a delegált típushoz képest kevésbé származtatott paramétertípusokkal rendelkezik.

1. példa: Kovariancia

Leírás

Ez a példa bemutatja, hogyan használhatók a delegátusok olyan metódusokkal, amelyek a delegátus aláírás visszatérési típusából származtatott visszatérési típussal rendelkeznek. A DogsHandler visszaadott adattípus típusa Dogs, ami a delegáltban definiált Mammals típusból származik.

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

2. példa: Kontravariancia

Leírás

Ez a példa bemutatja, hogyan használhatók a delegáltak olyan metódusokkal, amelyek olyan paraméterekkel rendelkeznek, amelyek típusa a delegált aláírás paramétertípus alaptípusa. A contravariance használatával külön kezelők helyett egy eseménykezelőt használhat. Az alábbi példa két meghatalmazottat használ:

  • A KeyEventHandlerButton.KeyDown esemény aláírását meghatározó meghatalmazott. Aláírása:

    Public Delegate Sub KeyEventHandler(sender As Object, e As KeyEventArgs)
    
  • A MouseEventHandlerButton.MouseClick esemény aláírását meghatározó meghatalmazott. Aláírása:

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

A példa egy EventArgs paraméterrel rendelkező eseménykezelőt határoz meg, és azt használja mind a Button.KeyDown , mind a Button.MouseClick események kezelésére. Ez azért lehetséges, mert EventArgs mind KeyEventArgs, mind MouseEventArgs alap típusa.

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

Lásd még