首页 相关文章 使用Cleanup方法避免循环引用

使用Cleanup方法避免循环引用

为了能看看这一方面的范例,可以建立一个标准的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.Pr...[ 查看全文 ]

2016-02-19 标签:

使用Cleanup方法避免循环引用的相关文章

手机页面
收藏网站 回到头部