Partager via

Utilisation de la variance dans les délégués (Visual Basic)

  • Article

Quand vous assignez une méthode à un délégué, la covariance et la contravariance offrent une grande flexibilité pour la mise en correspondance d’un type délégué avec une signature de méthode. La covariance permet à une méthode d’avoir un type de retour qui est plus dérivé que celui défini dans le délégué. La contravariance autorise une méthode qui a des types de paramètres moins dérivés que ceux du type délégué.

Exemple 1 : Covariance

Description

Cet exemple montre comment vous pouvez utiliser des délégués avec des méthodes ayant des types de retour dérivés du type de retour dans la signature du délégué. Le type de données retourné par DogsHandler est Dogs, qui dérive du type Mammals défini dans le délégué.

Code

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

Exemple 2 : Contravariance

Description

Cet exemple montre comment vous pouvez utiliser des délégués avec des méthodes ayant des paramètres dont les types sont des types de base du type de paramètre de signature de délégué. Avec la contravariance, vous pouvez maintenant utiliser un gestionnaire d’événements plutôt que des gestionnaires distincts. L’exemple suivant utilise deux délégués :

  • Un délégué KeyEventHandler qui définit la signature de l’événement Button.KeyDown. Sa signature est :

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

  • Un délégué MouseEventHandler qui définit la signature de l’événement Button.MouseClick. Sa signature est :

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

L’exemple définit un gestionnaire d’événements avec un paramètre EventArgs et s’en sert pour gérer les événements Button.KeyDown et Button.MouseClick. C’est possible parce que EventArgs est un type de base de KeyEventArgs et MouseEventArgs.

Code

' 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

Voir aussi