主页 / 问题 / 730094
Accepted
Arhadthedev
Asked:2020-10-13 04:17:09 +0000 UTC2020-10-13 04:17:09 +0000 UTC

VB6 中的延迟对象销毁

  • 772

有一个对象在销毁之前必须等待某个异步事件。如何延缓这种破坏，使阶级成员即使在之后继续存在Set foo = Nothing？

示例：假设这是一个使用 Waveform Audio API 的播放器。在释放缓冲区之前，它必须等待窗口消息MM_WOM_DONE。

在清空引用之前显式调用某些函数是不可接受的 - 我想避免由于类用户的健忘而导致资源泄漏。

объекты

1 个回答

  1. Best Answer

    如果对象在内部保留对自身的引用，则可以延迟其销毁Class_Teminate：

    Option Explicit

' Замените ThisClassName на имя этого класса
Private m_objPostponingReference As ThisClassName 

Private Sub Class_Teminate()
    Set m_objPostponingReference = Me

    ' Всё, объект начал существовать сам по себе. После завершения очистки необходимо
    ' выполнить Set m_objPostponingReference = Nothing, и объект будет окончательно удалён.

End Sub

    这种技术之所以有效，是因为Class_Teminate运行时从运行时返回时会重新检查引用计数，如果它不再为零则取消删除。

    • 0

相关问题