当前位置：首页>>网络编程>>VB教程>>正文

使用Cleanup方法避免循环引用

文章出处：网络转载 作者：未知　发布时间：2006-07-28 收藏到QQ书签
为了能看看这一方面的范例，可以建立一个标准的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

->


Google