Class_Terminate的缺陷

vb(6)的class在卸载前会触发Terminate事件,于是可以将一些卸载前需要处理的代码放到这里来,在object卸载时自动执行,这样子看上去很美,可以偷懒了.可是在某些情况下会有很大问题,请看下面的两个类,Class1,Class2 

' ====    Class1    ====
Option   Explicit

Private  m_cc  As  Class2

Public   Sub  Init() Sub  Init(cc  As  Class2)
Set  m_cc  =  cc
End Sub

Private   Sub  Class_Terminate()
Set  m_cc  =   Nothing
End Sub

 

' ====    Class2    ====
Option   Explicit

Private  m_cc  As  Class1

Public   Sub  Init() Sub  Init(cc  As  Class1)
Set  m_cc  =  cc
End Sub

Private   Sub  Class_Terminate()
Set  m_cc  =   Nothing
End Sub

 两个类都有一个成员变量m_cc,类型分别是另一个Class,如果这样使用

dim  c1  as  Class1 , c2  as  Class2
set  c1 = new  Class1
set  c2 = new  Class2
c1.Init c2
c2.Init c1

这样一来,即使将c1,c2都置为Nothing,对象都不会被卸载,因为各自的m_CC都有对另一个对象的引用,从而也不会触发Terminate事件.另外,事实上在Terminate中才将 m_cc置为Nothing 是没什么意义的,当该对象卸载后,它的成员变量也自然会被释放.当然这个例子有点极端,一般不会这样子用,但有些时候可能在不知不觉中就出现了这种状况,另外有些时候触发Terminate事件会比预期的时间晚了,从而也会存在问题,所以为了避免出现上面的情况,最好是在卸载前主动的处理卸载前需要做的事情,而不要完全依赖于vb的回收系统(是这么叫吧?大家都应该明白的啦),于是大概代码改为, 

====     Class1     ====
Option   Explicit

Private  m_cc  As  Class2

Public   Sub  Init() Sub  Init(cc  As  Class2)
Set  m_cc  =  cc
End Sub

Private   Sub  Class_Terminate()
Call  ReleaseMe
End Sub

Private   Sub  ReleaseMe()
Set  m_cc  =   Nothing
End Sub

准备卸载前调用一下ReleaseMe,这样就好很多了.

by lingll
http://blog.csdn.net/lingll/
lingll_xl@163.com
2006-12-4

评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值