Модификаторы недвижимости

Question

У меня есть классы структурированы следующим образом:

Public MustInherit Class A 
    ' several properties 
End Class 

Public Class B 
    Inherits A 
    ' several properties 
End Class 

Public MustInherit Class C 
    Protected _X As A 
    Public ReadOnly Property X As A 
    Get 
     Return _X 
    End Get 
    End Property 
End Class 

Public Class D 
    Inherits C 
    Private _X As B 
    Public ReadOnly Property X As B 
    Get 
     Return _X 
    End Get 
    End Property 
    Sub New 
    _X = New B 
    End Sub 
End Class 

Есть ли модификатор можно использовать на имущество X в классе D, который заставит X должен быть возвращен в качестве B из экземпляра D и А из экземпляр D, который оценивается как C?

т.е.

Dim d As New D 
Response.Write((d.X Is Nothing) & "<br>") 
Dim c As C = d 
Response.Write(c.X Is Nothing) 

В обоих случаях я хочу X не не быть ничего

Я понимаю, что я мог бы изменить D следующим образом:

Public Class D 
    Inherits C 
    Private __X As B 
    Public ReadOnly Property X As B 
    Get 
     Return __X 
    End Get 
    End Property 
    Sub New 
    __X = New B 
    _X = __X 
    End Sub 
End Class 

Есть ли чистое решение?

Answer 1

Вы должны избегать нового кода с помощью Shadows, но если вам действительно нужна эта конструкция, я получаю результаты вы ожидаете только с добавлением MyBase._X=_X к D «s New (Вариант 1), который также может быть сделано используя New в C, что D вызывает, то делает противоположное назначение _X = DirectCast(MyBase._X, B) (Вариант 2).

Конечно еще один вариант, в зависимости от вашего фактического намерения, это отбросить Private _X As B в D и просто бросить _X к B в вашей тени X. (Вариант 3)

Вот мой код с Варианты 1 и 2 закомментирована и в настоящее время выполняет Вариант 3.

Public MustInherit Class C 
    Protected _X As A 
    ''Option 2: 
    'Protected Sub New(X As A) 
    ' _X = X 
    'End Sub 
    Public Overridable ReadOnly Property X As A 
     Get 
      Return _X 
     End Get 
    End Property 
End Class 

Public Class D 
    Inherits C 
    'Commented out for option 3: 
    'Private Shadows _X As B 
    Public Shadows ReadOnly Property X As B 
     Get 
      'Commented out for option 3: 
      'Return _X 
      Return DirectCast(_X, B) 
     End Get 
    End Property 
    Sub New() 
     ''Option 1,3: (Comment out for option 2) 
     _X = New B 
     ''Option 1: 
     'MyBase._X = _X 
     ''Option 2: 
     'MyBase.New(New B) 
     '_X = DirectCast(MyBase._X, B) 
    End Sub 
End Class