VB6类是否有析构函数？

Question

当我执行诸如的语句时

Set MyObject = Nothing

在调用的类中是否有一个特定的函数(即我可以用作析构函数),执行清理数组,断开数据库等等的操作？

Answer 1

类似于Class_Initialize构造函数,还有一个析构函数:

Sub Class_Terminate
    ... ' Put your destructor code here '
End Sub

一旦该对象的引用计数达到零,即,当引用该对象的所有变量都超出范围或已设置为设置为其他(例如Nothing)时,就执行该方法.因此,Set MyObject = Nothing如果MyObject是引用此对象的最后一个变量,则只调用析构函数.