使用Cleanup方法避免循环引用
添加时间: 2006-2-16 9:28:40 作者: VB教程 阅读次数:45 来源: http://www.d9soft.com
Dim objClass2 As Class2
Private Sub Class_Initialize()
Debug.Print TypeName(Me) & ".Initialize"
Set objClass2 = New Class2
Set objClass2.Class1 = Me
End Sub
Private Sub Class_Terminate()
Set objClass2 = Nothing
Debug.Print TypeName(Me) & ".Terminate"
End Sub
在Class2中添加如下的代码：
Dim objClass1 As Class1
Public Property Set Class1(ByRef NewValue As Class1)
Set objClass1 = NewValue
End Property
Private Sub Class_Initialize()
Debug.Print TypeName(Me) & ".Initialize"
End Sub
Private Sub Class_Terminate()
Set objClass1 = Nothing
Debug.Print TypeName(Me) & ".Terminate"
End Sub
上下文章:
上一篇文章: 利用Internet传输控件来使用FTP 下一篇文章: 在VB6中将XML传入一个TreeView控件
相关文章: