图老师小编精心整理的使用Cleanup方法避免循环引用希望大家喜欢,觉得好的亲们记得收藏起来哦!您的支持就是小编更新的动力~
【 tulaoshi.com - 编程语言 】
为了能看看这一方面的范例,可以建立一个标准的EXEVB工程。添加两个类模块,Class1和Class2,在Class1中添加如下的代码:DimobjClass2AsClass2
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/bianchengyuyan/)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
来源:http://www.tulaoshi.com/n/20160219/1612351.html
看过《使用Cleanup方法避免循环引用》的人还看了以下文章 更多>>