clase VB.NET hereda una clase base e implementa un problema de interfaz (funciona en C#)

Question

Estoy tratando de crear una clase en VB.NET que hereda de una clase base abstracta y también implementa una interfaz. La interfaz declara una propiedad de cadena llamada Descripción. La clase base contiene una propiedad de cadena llamada Descripción. La clase principal hereda la clase base e implementa la interfaz. La existencia de la propiedad Descripción en la clase base cumple los requisitos de interfaz. Esto funciona bien en C# pero causa problemas en VB.NET.

primer lugar, aquí es un ejemplo del código C# que funciona:

public interface IFoo 
{ 
    string Description { get; set; } 
} 

public abstract class FooBase 
{ 
    public string Description { get; set; } 
} 

public class MyFoo : FooBase, IFoo 
{ 
} 

Ahora aquí es la versión VB.NET que da un error del compilador:

Public Interface IFoo 
    Property Description() As String 
End Interface 

Public MustInherit Class FooBase 
    Private _Description As String 
    Public Property Description() As String 
     Get 
      Return _Description 
     End Get 
     Set(ByVal value As String) 
      _Description = value 
     End Set 
    End Property 
End Class 

Public Class MyFoo 
    Inherits FooBase 
    Implements IFoo 
End Class 

Si hago la base clase (FooBase) implementar la interfaz y añadir la Implements IFoo.Description a la propiedad todo es bueno, pero no quiero que la clase base para implementar la interfaz.

El error del compilador es:

Class 'MyFoo' must implement 'Property Description() As String' for interface 'IFoo'. Implementing property must have matching 'ReadOnly' or 'WriteOnly' specifiers.

Puede VB.NET no manejar esto, o tengo que cambiar mi sintaxis de un lugar para conseguir que esto funcione?

Answer 1

Usted necesidad de marcar su propiedad como Overridable o MustOverride en la clase base y luego se puede anular en la clase del niño:

Public MustInherit Class FooBase 
    Private _Description As String 
    Public Overridable Property Description() As String 
     Get 
      Return _Description 
     End Get 
     Set(ByVal value As String) 
      _Description = value 
     End Set 
    End Property 
End Class 

Public Class MyFoo 
    Inherits FooBase 
    Implements IFoo 
    Public Overrides Property Description() As String Implements IFoo.Description 
     Get 
      Return MyBase.Description 
     End Get 
     Set(ByVal value As String) 
      MyBase.Description = value 
     End Set 
    End Property 
End Class 

Editar Esto es en respuesta a lo que @ MAMÁ Hanin publicado. Ambas soluciones funcionan pero es importante entender las ramificaciones de cada una. Imagine el siguiente código:

Dim X As FooBase = New MyFoo() 
Trace.WriteLine(X.Description) 

¿Qué sale de la X.Description? Utilizando el Overridable obtendrá la llamada a la clase hija mientras se utiliza el método de sobrecarga que obtendrá la llamada a la clase base. Ninguno de los dos está bien o mal, solo es importante entender las consecuencias de la declaración. Utilizando el método de sobrecarga que tiene que hasta fundido para obtener la implementación del niño:

Trace.WriteLine(DirectCast(X, MyFoo).Description) 

Si acaba de llamar MyBase.Description de la clase hija la cuestión es discutible, pero si alguna vez cambia la definición del niño clase, entonces solo necesitas asegurarte de que entiendes lo que está pasando.

Answer 2

De un modo u otro, debe especificar los detalles de implementación de la interfaz IFoo.

¿Qué pasa con esta sencilla opción?

Public Class MyFoo 
    Inherits FooBase 
    Implements IFoo 
    Overloads Property Description() As String Implements IFoo.Description 
     Get 
      Return MyBase.Description 
     End Get 
     Set(ByVal value As String) 
      MyBase.Description = value 
     End Set 
    End Property 
End Class 

Answer 3

Este es un tema extraño y que muestra claramente la diferencia entre el C# y VB.NET compiladores. Sugeriría implementar la interfaz en la clase base abstracta, ya que esto hará que el compilador de VB.NET esté contento y, en el momento de la ejecución, su clase secundaria todavía tendrá metadatos que indiquen que de hecho implementa IFoo.

¿Hay alguna razón específica que la clase del niño debe ser el que declarar que implementa la interfaz?

Answer 4

VB requiere que la propiedad de implementación declare la implementación. Esto se debe a lo que realmente considero una buena característica de VB que a veces extraño en C#, que puede cambiar el nombre del miembro que implementa el miembro de la interfaz.

Así, la única manera de hacer este trabajo sin implementar en IFoo.DescriptionFooBase es declarar DescriptionOverridable y luego definir MyFoo como:

Public Class MyFoo 
    Inherits FooBase 
    Implements IFoo 

    Public Overrides Property Description() As String Implements IFoo.Description 
     Get 
      Return MyBase.Description 
     End Get 
     Set(ByVal value As String) 
      MyBase.Description = value 
     End Set 
    End Property 
End Class 

Answer 5

VB.NET no es compatible con la ejecución implícita. También encontré este problema y tuve muchos problemas.

Cuando trabaja con clases generadas (entidades, etc.) donde tiene que declarar explícitamente Implements IFoo, lo hace imposible en absoluto.

Por lo tanto, I submitted a connection to Microsoft y espero que voten y la próxima versión de VB mejorarán el compilador para ser más inteligentes.

Answer 6

Lo siento si llego tarde a la fiesta, y disculpas también si esta funcionalidad sólo se ha introducido en .NET 4, pero el siguiente es posible (ahora)

Public Interface IFoo 
    Property Description() As String 
End Interface 

Public MustInherit Class FooBase 
    Implements IFoo 

    Public MustOverride Property Description As String Implements IFoo.Description 
End Class 

Public Class MyFoo 
    Inherits FooBase 

    Private _description As String 

    Public Overrides Property Description As String 
     Get 
      Return _description 
     End Get 
     Set(value As String) 
      _description = value 
     End Set 
    End Property 
End Class 

Answer 7

que no puedo comentar sobre el Respuesta de MA Hanin debido a mi representante, pero recomendaría una pequeña modificación para evitar las advertencias del compilador sobre la ocultación de métodos base, suponiendo que no desea o no puede anular la propiedad en la clase base.

Public Class MyFoo 
    Inherits FooBase 
    Implements IFoo 
    Private Property IFoo_Description() As String Implements IFoo.Description 
     Get 
      Return Me.Description 
     End Get 
     Set(ByVal value As String) 
      Me.Description = value 
     End Set 
    End Property 
End Class