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

Variancia használata a meghatalmazottakban (Visual Basic)

  • Cikk

Amikor metódust rendel egy delegálthoz, a kovariancia és a kontravariancia rugalmasságot biztosít a meghatalmazott típusának metódusa aláírással való egyeztetéséhez. 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áltak olyan metódusokkal, amelyek a delegált aláírás visszatérési típusából származtatott visszatérési típussal rendelkeznek. A visszaadott DogsHandler adattípus típusa a Dogsdelegáltban definiált típusból Mammals 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: Contravariance

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 példa egy paraméterrel rendelkező EventArgs eseménykezelőt határoz meg, és azt használja az események és Button.MouseClick az Button.KeyDown események kezelésére is. Ez azért lehetséges, mert EventArgs mindkettő és KeyEventArgsMouseEventArgsa .

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

Kapcsolódó információk