.Net 通过子对象访问父对象

父类：

Public Class ClsParent
    Private mChild As ClsChild
    Private mName As String

    Public Sub New()
        mChild = New ClsChild(Me)
    End Sub

    Public Property Child() As ClsChild
        Get
            Return mChild
        End Get
        Set(value As ClsChild)
            mChild = value
        End Set
    End Property

    Public Property Name As String
        Get
            Return mName
        End Get
        Set(value As String)
            mName = value
        End Set
    End Property
End Class

子类：

Public Class ClsChild
    Private mParent As ClsParent
    Private mName As String

    Public Sub New(ByRef vParent As ClsParent)
        mParent = vParent
    End Sub

    Public Property Parent() As ClsParent
        Get
            Return mParent
        End Get
        Set(value As ClsParent)
            mParent = value
        End Set
    End Property

    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(value As String)
            mName = value
        End Set
    End Property

End Class

验证：

Module Module1

    Sub Main()
        Dim Obj As New ClsParent
        Obj.Name = "Parent Object."
        Obj.Child.Name = "Child Object."

        Console.WriteLine(Obj.Child.Parent.Name)
        Console.WriteLine(Obj.Child.Parent.Child.Name)

        Console.ReadKey()

    End Sub

结果：