zoukankan      html  css  js  c++  java
  • .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


    结果:



    版权声明:本文为博主原创文章,未经博主允许不得转载。

  • 相关阅读:
    02Spring注解开发
    01Spring配置文件
    网络编程
    CHIL-SQL-IN 操作符
    CHIL-SQL-通配符
    CHIL-SQL-LIKE 操作符
    CHIL-SQL-TOP 子句
    CHIL-SQL-DELETE 语句
    CHIL-SQL-UPDATE 语句
    CHIL-SQL-INSERT INTO 语句
  • 原文地址:https://www.cnblogs.com/will1990/p/4907300.html
Copyright © 2011-2022 走看看