使用Cleanup方法避免循环引用
为了能看看这一方面的范例，可以建立一个标准的EXEVB工程。添加两个类模块，Class1和Class2，在Class1中添加如下的代码： DimobjClass2AsClass2 PrivateSubClass_Initialize() Debug.PrintTypeName(Me)".Initial
为了能看看这一方面的范例，可以建立一个标准的EXEVB工程。添加两个类模块，Class1和Class2，在Class1中添加如下的代码：
DimobjClass2AsClass2
PrivateSubClass_Initialize()
Debug.PrintTypeName(Me)&".Initialize"
SetobjClass2=NewClass2
SetobjClass2.Class1=Me
EndSub
PrivateSubClass_Terminate()
SetobjClass2=Nothing
Debug.PrintTypeName(Me)&".Terminate"
EndSub
在Class2中添加如下的代码：
DimobjClass1AsClass1
PublicPropertySetClass1(ByRefNewValueAsClass1)
SetobjClass1=NewValue
EndProperty
PrivateSubClass_Initialize()
Debug.PrintTypeName(Me)&".Initialize"
EndSub
PrivateSubClass_Terminate()
SetobjClass1=Nothing
Debug.PrintTypeName(Me)&".Terminate"
EndSub
精彩图集
精彩文章