.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
结果:
版权声明:本文为博主原创文章,未经博主允许不得转载。