Criando interfaces genéricas variantes (Visual Basic)

Você pode declarar parâmetros de tipo genéricos em interfaces como covariante ou contravariante. A covariância permite que os métodos de interface tenham mais tipos de retorno derivados do que os definidos pelos parâmetros de tipo genéricos. A contravariância permite que os métodos de interface tenham tipos de argumento menos derivados do que os especificados pelos parâmetros genéricos. Uma interface genérica que tem parâmetros de tipo genéricos covariantes ou contravariantes é chamada de variante.

Nota

O .NET Framework 4 introduziu o suporte à variância para várias interfaces genéricas existentes. Para obter a lista das interfaces variantes no .NET Framework, consulte Variância em interfaces genéricas (Visual Basic).

Declarando interfaces genéricas de variantes

Você pode declarar interfaces genéricas variantes usando as in palavras-chave e out para parâmetros de tipo genérico.

Importante

ByRef parâmetros no Visual Basic não podem ser variantes. Os tipos de valor também não suportam variância.

Você pode declarar uma covariante de parâmetro de tipo genérico usando a out palavra-chave. O tipo de covariante deve satisfazer as seguintes condições:

• O tipo é usado apenas como um tipo de retorno de métodos de interface e não usado como um tipo de argumentos de método. Isso é ilustrado no exemplo a seguir, no qual o tipo R é declarado covariante.

  Interface ICovariant(Of Out R)
      Function GetSomething() As R
      ' The following statement generates a compiler error.
      ' Sub SetSomething(ByVal sampleArg As R)
  End Interface
  

  Há uma exceção a esta regra. Se você tiver um delegado genérico contravariante como um parâmetro de método, poderá usar o tipo como um parâmetro de tipo genérico para o delegado. Isso é ilustrado pelo tipo R no exemplo a seguir. Para obter mais informações, consulte Variância em delegados (Visual Basic) e Usando variância para Func e delegados genéricos de ação (Visual Basic).

  Interface ICovariant(Of Out R)
      Sub DoSomething(ByVal callback As Action(Of R))
  End Interface
  

• O tipo não é usado como uma restrição genérica para os métodos de interface. Isso é ilustrado no código a seguir.

  Interface ICovariant(Of Out R)
      ' The following statement generates a compiler error
      ' because you can use only contravariant or invariant types
      ' in generic constraints.
      ' Sub DoSomething(Of T As R)()
  End Interface
  

Você pode declarar um parâmetro de tipo genérico contravariante usando a in palavra-chave. O tipo contravariante pode ser usado apenas como um tipo de argumentos de método e não como um tipo de retorno de métodos de interface. O tipo contravariante também pode ser usado para restrições genéricas. O código a seguir mostra como declarar uma interface contravariante e usar uma restrição genérica para um de seus métodos.

Interface IContravariant(Of In A)
    Sub SetSomething(ByVal sampleArg As A)
    Sub DoSomething(Of T As A)()
    ' The following statement generates a compiler error.
    ' Function GetSomething() As A
End Interface

Também é possível suportar covariância e contravariância na mesma interface, mas para parâmetros de tipo diferentes, como mostrado no exemplo de código a seguir.

Interface IVariant(Of Out R, In A)
    Function GetSomething() As R
    Sub SetSomething(ByVal sampleArg As A)
    Function GetSetSomething(ByVal sampleArg As A) As R
End Interface

No Visual Basic, você não pode declarar eventos em interfaces de variante sem especificar o tipo de delegado. Além disso, uma interface variante não pode ter classes, enums ou estruturas aninhadas, mas pode ter interfaces aninhadas. Isso é ilustrado no código a seguir.

Interface ICovariant(Of Out R)
    ' The following statement generates a compiler error.
    ' Event SampleEvent()
    ' The following statement specifies the delegate type and
    ' does not generate an error.
    Event AnotherEvent As EventHandler

    ' The following statements generate compiler errors,
    ' because a variant interface cannot have
    ' nested enums, classes, or structures.

    'Enum SampleEnum : test : End Enum
    'Class SampleClass : End Class
    'Structure SampleStructure : Dim value As Integer : End Structure

    ' Variant interfaces can have nested interfaces.
    Interface INested : End Interface
End Interface

Implementando interfaces genéricas de variantes

Você implementa interfaces genéricas variantes em classes usando a mesma sintaxe usada para interfaces invariantes. O exemplo de código a seguir mostra como implementar uma interface covariante em uma classe genérica.

Interface ICovariant(Of Out R)
    Function GetSomething() As R
End Interface

Class SampleImplementation(Of R)
    Implements ICovariant(Of R)
    Public Function GetSomething() As R _
    Implements ICovariant(Of R).GetSomething
        ' Some code.
    End Function
End Class

As classes que implementam interfaces variantes são invariantes. Por exemplo, considere o código a seguir.

 The interface is covariant.
Dim ibutton As ICovariant(Of Button) =
    New SampleImplementation(Of Button)
Dim iobj As ICovariant(Of Object) = ibutton

' The class is invariant.
Dim button As SampleImplementation(Of Button) =
    New SampleImplementation(Of Button)
' The following statement generates a compiler error
' because classes are invariant.
' Dim obj As SampleImplementation(Of Object) = button

Estendendo interfaces genéricas de variantes

Quando você estende uma interface genérica variante, você tem que usar as in palavras-chave e out para especificar explicitamente se a interface derivada suporta variância. O compilador não infere a variância da interface que está sendo estendida. Por exemplo, considere as seguintes interfaces.

Interface ICovariant(Of Out T)
End Interface

Interface IInvariant(Of T)
    Inherits ICovariant(Of T)
End Interface

Interface IExtCovariant(Of Out T)
    Inherits ICovariant(Of T)
End Interface

Na interface, o Invariant(Of T) parâmetro T de tipo genérico é invariante, enquanto no IExtCovariant (Of Out T)parâmetro de tipo é covariante, embora ambas as interfaces estendam a mesma interface. A mesma regra é aplicada aos parâmetros genéricos de tipo contravariantes.

Você pode criar uma interface que estenda tanto a interface onde o parâmetro T de tipo genérico é covariante quanto a interface onde ele é contravariante se na interface de extensão o parâmetro T de tipo genérico for invariante. Isso é ilustrado no exemplo de código a seguir.

Interface ICovariant(Of Out T)
End Interface

Interface IContravariant(Of In T)
End Interface

Interface IInvariant(Of T)
    Inherits ICovariant(Of T), IContravariant(Of T)
End Interface

No entanto, se um parâmetro T de tipo genérico for declarado covariante em uma interface, você não poderá declará-lo contravariante na interface de extensão ou vice-versa. Isso é ilustrado no exemplo de código a seguir.

Interface ICovariant(Of Out T)
End Interface

' The following statements generate a compiler error.
' Interface ICoContraVariant(Of In T)
'     Inherits ICovariant(Of T)
' End Interface

Evitar a ambiguidade

Quando você implementa interfaces genéricas variantes, a variância às vezes pode levar à ambiguidade. Esta situação deve ser evitada.

Por exemplo, se você implementar explicitamente a mesma interface genérica variante com diferentes parâmetros de tipo genérico em uma classe, isso pode criar ambiguidade. O compilador não produz um erro neste caso, mas não é especificado qual implementação de interface será escolhida em tempo de execução. Isso pode levar a bugs sutis em seu código. Considere o seguinte exemplo de código.

Nota

Com Option Strict Offo , o Visual Basic gera um aviso do compilador quando há uma implementação de interface ambígua. Com Option Strict Ono , o Visual Basic gera um erro de compilador.

' Simple class hierarchy.
Class Animal
End Class

Class Cat
    Inherits Animal
End Class

Class Dog
    Inherits Animal
End Class

' This class introduces ambiguity
' because IEnumerable(Of Out T) is covariant.
Class Pets
    Implements IEnumerable(Of Cat), IEnumerable(Of Dog)

    Public Function GetEnumerator() As IEnumerator(Of Cat) _
        Implements IEnumerable(Of Cat).GetEnumerator
        Console.WriteLine("Cat")
        ' Some code.
    End Function

    Public Function GetEnumerator1() As IEnumerator(Of Dog) _
        Implements IEnumerable(Of Dog).GetEnumerator
        Console.WriteLine("Dog")
        ' Some code.
    End Function

    Public Function GetEnumerator2() As IEnumerator _
        Implements IEnumerable.GetEnumerator
        ' Some code.
    End Function
End Class

Sub Main()
    Dim pets As IEnumerable(Of Animal) = New Pets()
    pets.GetEnumerator()
End Sub

Neste exemplo, não é especificado como o pets.GetEnumerator método escolhe entre Cat e Dog. Isso pode causar problemas no seu código.

Consulte também

• Variância em interfaces genéricas (Visual Basic)
• Usando variância para delegados genéricos de ação e func (Visual Basic)