Eigenschaftsmodifikatoren

Question

Ich habe Klassen wie folgt strukturiert:

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 

Gibt es einen Modifikator ich auf Eigenschaft X in der Klasse D verwenden kann, die X von einem als B von einer Instanz von D und A wurde zurück verursacht Instanz von D, die als C bewertet wird?

heißt

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

In beiden Fällen I X will nicht Nichts

Mir ist klar sein, ich D ändern könnte wie folgt aussehen:

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 

Gibt es eine saubere Lösung?

Answer 1

Sie sollten neuen Code vermeiden Shadows verwenden, aber wenn Sie wirklich dieses Konstrukt brauchen, erhalte ich die Ergebnisse, die Sie nur mit dem Zusatz von MyBase._X=_X-D ‚s erwartet New (Option 1), die auch getan werden könnte, durch ein New in C, dass ruft, dann tut die umgekehrte Zuordnung (Option 2).

Natürlich eine weitere Option, je nach Ihrer tatsächlichen Absicht ist es, die Private _X As B in D fallen zu lassen und werfen Sie einfach die _X zu B in Ihrem X beschattet. (Option 3)

Hier ist mein Code mit Optionen 1 und 2 kommentiert und zur Zeit der Durchführung Option 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