使用Cleanup方法避免循环引用

发表日期：2006-2-27

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

上一篇：在VB6中将XML传入一个TreeView控件人气:3073
下一篇：利用Internet传输控件来使用FTP 人气:3344

浏览全部Visual Basic的内容 Dreamweaver插件下载网页广告代码祝你圣诞节快乐 2009年新年快乐