一个问题

陈?

Dim b As New Collection
Dim a As New Collection
b.Add 1
b.Add 2
b.Add 3
Set a = b
a.Remove 1
MsgBox b.Count
为什么是2  

set a=b
明明删a的怎么b会少了？难道是传址？

sandy_zc_1

肯定啊，你应该把Set语句理解为指针（不使用New关键字）。
虽然拟定义了一个新的集合，但是执行了Set a = b后，a就成了b的一个引用了。

陈?

sandy_zc_1: Re:一个问题

肯定啊，你应该把Set语句理解为指针（不使用New关键字）。
虽然拟定义了一个新的集合，但是执行了Set a = b后，a就成了b的一个引用了。

那怎么样才能做到a和b互不影响？

游戏之家

你看我的游戏程序开始定义部分:
Private BOMBA As PictureBox
Load TANKPIC(4)
TANKPIC(4).Picture = LoadPicture("GRAPH\BOMB2.GIF"): Set BOMBA = TANKPIC(4)

zlcnkkm

我也追问一个

他先New了一个a，在Set a = b时，是不是等于：
Set a = Nothing
Set a = b
还是说，VB根本不帮你Set Nothing，死了还占着地方？

sandy_zc_1

陈?: Re: Re:一个问题


那怎么样才能做到a和b互不影响？

你想让他们不相互影响就不要相互引用。
你可以这样理解：
Dim b As New Collection
这一句创建了一个新的集合，然后创建了一个名为b的指针，并把它指向那个集合。

Dim a As New Collection
这一句也一样。

Set a = b
这一句把指针a的指向改为b所指的那个集合。
而a原来的那个集合因为引用数为0所以被释放。

sandy_zc_1

zlcnkkm: Re:一个问题

我也追问一个

他先New了一个a，在Set a = b时，是不是等于：
Set a = Nothing
Set a = b
还是说，VB根本不帮你Set Nothing，死了还占着地方？

关于vb的垃圾处理方式我还没有见到有相关介绍书籍，不过我认为vb是会自动判断一个对象的引用数是否为零，如果为零就释放它的空间。
所以在过程中定义的类在过程结束后都会自动释放，并调用Class_Terminate事件。

bigbook2000

写过VC的代码就比较容易理解VB6的很多做法了，呵呵，其实差不多的

yinxiaodan

sandy_zc_1: Re: Re:一个问题



关于vb的垃圾处理方式我还没有见到有相关介绍书籍，不过我认为vb是会自动判断一个对象的引用数是否为零...

同意，当某个对象的所有引用都被设为NOthing，这个对象就会被系统释放。所以特别注意编程的时候不要让两个对象相互引用或在对象内部释放自己，这样坐形成交叉引用是无法释放对象的