Kovariance a kontravariance (Visual Basic)

V Visual Basic kovariance a kontravariance umožňují implicitní převod odkazů pro typy polí, typy delegátů a argumenty obecného typu. Kovariance zachovává kompatibilitu přiřazení a kontravariance ji obrátí.

Následující kód ukazuje rozdíl mezi kompatibilitou přiřazení, kovariancí a kontravariancí.

' Assignment compatibility.
Dim str As String = "test"
' An object of a more derived type is assigned to an object of a less derived type.
Dim obj As Object = str

' Covariance.
Dim strings As IEnumerable(Of String) = New List(Of String)()
' An object that is instantiated with a more derived type argument
' is assigned to an object instantiated with a less derived type argument.
' Assignment compatibility is preserved.
Dim objects As IEnumerable(Of Object) = strings

' Contravariance.
' Assume that there is the following method in the class:
' Shared Sub SetObject(ByVal o As Object)
' End Sub
Dim actObject As Action(Of Object) = AddressOf SetObject

' An object that is instantiated with a less derived type argument
' is assigned to an object instantiated with a more derived type argument.
' Assignment compatibility is reversed.
Dim actString As Action(Of String) = actObject

Kovariance pro pole umožňuje implicitní převod pole více odvozeného typu na pole méně odvozeného typu. Tato operace ale není typová bezpečná, jak je znázorněno v následujícím příkladu kódu.

Dim array() As Object = New String(10) {}
' The following statement produces a run-time exception.
' array(0) = 10

Podpora kovariance a kontravariance pro skupiny metod umožňuje porovnávání podpisů metod s typy delegátů. To umožňuje přiřadit delegátům nejen metody, které mají odpovídající podpisy, ale také metody, které vracejí více odvozených typů (kovariance) nebo které přijímají parametry, které mají méně odvozených typů (kontravariance), než je určeno typem delegátu. Další informace najdete v tématu Variance in Delegates (Visual Basic) a Using Variance in Delegates (Visual Basic).

Následující příklad kódu ukazuje podporu kovariance a kontravariance pro skupiny metod.

Shared Function GetObject() As Object
    Return Nothing
End Function

Shared Sub SetObject(ByVal obj As Object)
End Sub

Shared Function GetString() As String
    Return ""
End Function

Shared Sub SetString(ByVal str As String)

End Sub

Shared Sub Test()
    ' Covariance. A delegate specifies a return type as object,
    ' but you can assign a method that returns a string.
    Dim del As Func(Of Object) = AddressOf GetString

    ' Contravariance. A delegate specifies a parameter type as string,
    ' but you can assign a method that takes an object.
    Dim del2 As Action(Of String) = AddressOf SetObject
End Sub

Ve .NET Framework verze 4 nebo novější Visual Basic podporuje kovarianci a kontravarianci v obecných rozhraních a delegátech a umožňuje implicitní převod parametrů obecného typu. Další informace najdete v tématu Variance in Generic Interfaces (Visual Basic) a Variance in Delegates (Visual Basic).

Následující příklad kódu ukazuje implicitní převod odkazu pro obecná rozhraní.

Dim strings As IEnumerable(Of String) = New List(Of String)
Dim objects As IEnumerable(Of Object) = strings

Obecné rozhraní nebo delegát se nazývá variant, pokud jsou jeho obecné parametry deklarovány jako kovariantní nebo kontravariantní. Visual Basic umožňuje vytvářet vlastní variantní rozhraní a delegáty. Další informace najdete v tématu Vytváření variant obecných rozhraní (Visual Basic) a Odchylka v delegátech (Visual Basic).

Související témata