カスケードクラスのプロパティvb.net

Question

この3つのクラス構造は私のコードの簡略図である。

基本クラス：

Public Class A 

    Public x As Integer 

    Protected Function G() as Integer 
     Return x 
    End Function 

    Protected Sub S(value as Integer) 
     x = value 
    End Sub 

    Public Function Test() 
     Return x + 10 
    End Function 

End Class 

サブクラス：

Public Class B 

    Inherits A 

    Public Property Prop As Integer 
     Get 
      Return G() 
     End Get 
     Set(ByVal Value As Integer) 
      S(Value) 
     End Set 
    End Property 

End Class 

Public Class C 

    Inherits A 

    Public InnerB As New B 

End Class 

目標は、できるようにすることです次のようなコードを書く：

Dim B1 as New B 
Dim C1 as New C 

B1.Prop = 10 
C1.InnerB.Prop = 20 'the "x" member inherited from A takes the value 20 for the InnerB object but not for the C1 object. 

MsgBox(B1.Test()) ' returns 20. Works! 
MsgBox(C1.Test()) 'returns 10 instead of 30. 

Cから継承した "x"メンバーを、内部クラスBから "prop"を呼び出すことで埋め込むことはできますか？あなたが設定

Answer 1

C1.InnerB.Prop = 20 

それは実際にあなたがそれにアクセスする

C1.Test() 

を呼び出すと

C1.InnerB.x = 20 

ん

C1.x 

代わりの

C1.InnerB.x 

あなたは

MsgBox(C1.InnerB.Test()) 

またはテスト機能に

Public Class C 
    Inherits A 

    Public InnerB As New B 

    Public Overrides Function Test() 
     Return InnerB.Test() 
    End Function 

End Class 

を上書きを呼び出す必要がありますしかし、あなたは何をしているかされて....