带父类引用的VBA类创建：内存自动释放问题及优化方案问询

问题核心原因 #

VBA采用引用计数式垃圾回收，当父类持有子类集合的强引用，同时子类持有父类的强引用时，两者的引用计数会互相依赖，永远无法降到0，导致对象无法自动销毁，必须主动打破这个循环引用链。

以下是几种更规范、优雅的实现方案：

方案1：利用父类Terminate事件自动清理循环引用 #

无需手动调用显式销毁方法，直接在父类的销毁事件中自动解除子类的父引用，打破循环：

' ClassParent 代码
Private m_Children As Collection

Private Sub Class_Initialize()
    Set m_Children = New Collection
End Sub

Private Sub Class_Terminate()
    Dim child As ClassChild
    ' 遍历子类，逐一解除父引用
    For Each child In m_Children
        Set child.Parent = Nothing
    Next
    ' 清空子类集合
    Set m_Children = Nothing
End Sub

Public Sub AddChild()
    Dim newChild As ClassChild
    Set newChild = New ClassChild
    Set newChild.Parent = Me
    m_Children.Add newChild
End Sub

' ClassChild 代码
Private m_Parent As ClassParent

Public Property Set Parent(obj As ClassParent)
    Set m_Parent = obj
End Property

Public Property Get Parent() As ClassParent
    Set Parent = m_Parent
End Property

Private Sub Class_Terminate()
    ' 子类销毁时主动释放父引用，双重保险
    Set m_Parent = Nothing
End Sub

当执行Set Parent = Nothing时，父类的Terminate事件自动触发，完成所有子类的父引用解除，循环链被打破，子类会被正常回收。这是VBA中最常用且符合对象生命周期规范的方案。

方案2：使用弱引用避免循环 #

如果子类不需要频繁访问父类，可以用弱引用思路：子类不持有父对象的强引用，仅存储父类的唯一标识，需要访问时再临时获取：

' 全局模块 Module1
Public ParentPool As New Dictionary ' 存储父对象，键为唯一ID

' ClassParent 代码
Private m_UniqueID As String
Private m_Children As Collection

Private Sub Class_Initialize()
    ' 生成唯一ID（可根据业务场景优化）
    m_UniqueID = "P_" & CStr(Now()) & CStr(Rnd())
    ParentPool.Add m_UniqueID, Me
    Set m_Children = New Collection
End Sub

Private Sub Class_Terminate()
    ParentPool.Remove m_UniqueID ' 父类销毁时从全局池移除
    Set m_Children = Nothing
End Sub

Public Property Get UniqueID() As String
    UniqueID = m_UniqueID
End Property

Public Sub AddChild()
    Dim newChild As ClassChild
    Set newChild = New ClassChild
    newChild.ParentID = Me.UniqueID
    m_Children.Add newChild
End Sub

' ClassChild 代码
Private m_ParentID As String

Public Property Let ParentID(id As String)
    m_ParentID = id
End Property

Public Property Get Parent() As ClassParent
    ' 需要时才临时获取父对象，不持有强引用
    If ParentPool.Exists(m_ParentID) Then
        Set Parent = ParentPool(m_ParentID)
    Else
        Set Parent = Nothing
    End If
End Property

这种方式子类不持有父类的强引用，从根源上避免了循环，父类销毁后子类再访问Parent会返回Nothing，不会阻碍内存回收。

方案3：从设计上避免双向引用 #

如果业务场景允许，重新梳理类职责，尽量让子类不需要持有父类引用：

• 将子类需要调用的父类逻辑，提取到独立的标准模块中，子类直接调用模块方法；
• 若必须传递父类上下文，改为在调用方法时临时传入父对象参数，而非长期持有引用。

内容的提问来源于stack exchange，提问作者Marek Fiołka