使用Cleanup方法避免循环引用

　　为了能看看这一方面的范例，可以建立一个标准的EXE VB工程。添加两个类模块，Class1 和 Class2，在Class1中添加如下的代码：

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
下一篇： 在你的应用程序里实现简单的加密

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有