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

最新推荐文章于 2024-04-26 21:02:24 发布

原创最新推荐文章于 2024-04-26 21:02:24 发布 · 569 阅读

0 ·

CC 4.0 BY-SA版权

.Net 专栏收录该内容

13 篇文章

订阅专栏

本文展示了一个使用VBA编写的简单类模块示例，包括一个父类和一个子类。父类包含一个子类类型的属性，并在构造函数中实例化子类；子类则持有父类的引用。通过这个例子，演示了如何在VBA中实现类之间的继承和关联关系。

父类：

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

结果：