VB6 中的 AddRef()

Question

是否可以从 Visual Basic 6 中的接口 IUnknown 调用方法 AddRef() 或实现一些 hack 来增加对象引用计数器？

Answer 1

如果您尝试人为地增加引用计数器（在 VB6 完成的自动引用计数之外），那么您可以执行以下操作：

Public Sub AddOneToRefCount(target As Object)

    Dim tempObj As Object
    Set tempObj = target 'VB6 calls AddRef for you here

    Call CopyMemory(ByVal ObjPtr(tempObj), 0&, 4&) 'trick VB into not calling Release

End Sub

您可能还需要实现相反的操作才能释放，否则您将得到一个各种内存泄漏。

Answer 2

我相当确定 VB6 不支持直接访问 IUnknown 方法。但解决方法很简单。将此声明添加到模块中：

  Dim ReferenceHolder As Variant

然后使用简单的赋值来调用 AddRef() 。

  Set ReferenceHolder = someObject

相反，使用 Release() 来调用

  Set ReferenceHolder = Nothing

这是正常的 VB6 内存管理工作。