In (modificateur générique) (Visual Basic)
Pour les paramètres de type générique, le mot clé In spécifie que le paramètre de type est contravariant.
Notes
La contravariance permet d’utiliser un type moins dérivé que celui spécifié par le paramètre générique. Cela permet la conversion implicite des classes qui implémentent des interfaces variantes, ainsi que la conversion implicite des types délégués.
Pour plus d’informations, consultez Covariance et contravariance.
Règles
Vous pouvez utiliser le mot clé In dans les interfaces et délégués génériques.
Un paramètre de type peut être déclaré comme étant contravariant dans une interface ou un délégué générique s’il est utilisé uniquement comme un type d’argument de méthode et non comme un type de retour de méthode. Les paramètres ByRef ne peuvent pas être covariants ni contravariants.
La covariance et la contravariance sont prises en charge pour les types référence, mais elles ne sont pas prises en charge pour les types valeur.
En Visual Basic, vous ne pouvez pas déclarer des événements dans des interfaces covariantes sans spécifier le type délégué. De plus, les interfaces contravariantes ne peuvent pas avoir de classes, d’enums ou de structures imbriquées, mais elles peuvent avoir des interfaces imbriquées.
Comportement
Une interface qui possède un paramètre de type contravariant permet à ses méthodes d’accepter des arguments de types moins dérivés que ceux spécifiés par le paramètre de type d’interface. Par exemple, comme dans le .NET Framework 4, dans l’interface IComparer<T>, le type T est contravariant, vous pouvez assigner un objet du type IComparer(Of Person) à un objet du type IComparer(Of Employee) sans utiliser de méthode de conversion spéciale si Employee hérite de Person.
Un délégué contravariant peut être assigné à un autre délégué du même type, mais avec un paramètre de type générique moins dérivé.
Exemple : interface générique contravariante
L’exemple suivant montre comment déclarer, étendre et implémenter une interface générique contravariante. Il montre également comment utiliser la conversion implicite pour les classes qui implémentent cette interface.
' Contravariant interface.
Interface IContravariant(Of In A)
End Interface
' Extending contravariant interface.
Interface IExtContravariant(Of In A)
Inherits IContravariant(Of A)
End Interface
' Implementing contravariant interface.
Class Sample(Of A)
Implements IContravariant(Of A)
End Class
Sub Main()
Dim iobj As IContravariant(Of Object) = New Sample(Of Object)()
Dim istr As IContravariant(Of String) = New Sample(Of String)()
' You can assign iobj to istr, because
' the IContravariant interface is contravariant.
istr = iobj
End Sub
Exemple : délégué générique contravariante
L’exemple de code suivant montre comment déclarer, instancier et invoquer un délégué générique contravariant. Il montre également comment convertir implicitement un type délégué.
' Contravariant delegate.
Public Delegate Sub DContravariant(Of In A)(ByVal argument As A)
' Methods that match the delegate signature.
Public Shared Sub SampleControl(ByVal control As Control)
End Sub
Public Shared Sub SampleButton(ByVal control As Button)
End Sub
Private Sub Test()
' Instantiating the delegates with the methods.
Dim dControl As DContravariant(Of Control) =
AddressOf SampleControl
Dim dButton As DContravariant(Of Button) =
AddressOf SampleButton
' You can assign dControl to dButton
' because the DContravariant delegate is contravariant.
dButton = dControl
' Invoke the delegate.
dButton(New Button())
End Sub
