VBA 引用计数 - 对象销毁

VBA 引用计数 - 对象销毁

vba
Sub ReferenceCount()
    Dim obj1 As Object
    Dim obj2 As Object
    
    ' 创建一个对象并引用计数加一
    Set obj1 = New Collection
    
    ' 将 obj1 的引用赋值给 obj2，引用计数加一
    Set obj2 = obj1
    
    ' 打印对象的引用计数
    Debug.Print "obj1 的引用计数：" & ReferenceCount(obj1)
    Debug.Print "obj2 的引用计数：" & ReferenceCount(obj2)
    
    ' 释放 obj1 的引用，引用计数减一
    Set obj1 = Nothing
    
    ' 打印对象的引用计数
    Debug.Print "obj1 的引用计数：" & ReferenceCount(obj1)
    Debug.Print "obj2 的引用计数：" & ReferenceCount(obj2)
    
    ' 释放 obj2 的引用，引用计数减一
    Set obj2 = Nothing
    
    ' 打印对象的引用计数
    Debug.Print "obj1 的引用计数：" & ReferenceCount(obj1)
    Debug.Print "obj2 的引用计数：" & ReferenceCount(obj2)
End Sub
Function ReferenceCount(obj As Object) As Long
    On Error Resume Next
    ReferenceCount = obj Is Nothing
End Function