使用Cleanup方法避免循环引用

　2006-02-27 11:53:06　来源：WEB开发网　　　

核心提示：为了能看看这一方面的范例，可以建立一个标准的EXEVB工程，使用Cleanup方法避免循环引用，添加两个类模块，Class1和Class2

为了能看看这一方面的范例，可以建立一个标准的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

->

编辑录入：爽爽　[复制链接] [打印]