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

来源：互联网发布：origin画图软件下载编辑：程序博客网时间：2024/06/06 02:28

父类：

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 PropertyEnd 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 PropertyEnd 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

结果：

0 0