请问dim xx as new 类 后

[yyyrrr51]

dim xx(5) as new Bcc
dim aa(5) as new Bcc
...
...
set aa(0)=new xx(0)  '将xx(1).bcc赋值给aa(1)
可是这一句为什么是错误呢？说缺少:语句结束!

[Tiger_Zhao]

需要类添加 Clone() 函数

set aa(0)= xx(0).Clone()

[舉杯邀明月]

[Quote=引用 3 楼 yyyrrr51 的回复:]
但是set aa(0)=xx(0)后，xx(0)的值改变，以后的aa(0)的值也改变
............
[/Quote]

你的意思似乎要任何时候： aa(0) ≡ xx(0)

那你用 aa(0) 之类的岂不是多此一举？

[mhm0517]

set aa(0)= xx(0) '将xx(1).bcc赋值给aa(1)

'New 表示建立一个实例化.此关键字后面一般根一个类.

而XX(0)就已是一个实类.此处是赋值.因此不要New

[jhone99]

set aa(0)=xx(0)

[yyyrrr51]

但是set aa(0)=xx(0)后，xx(0)的值改变，以后的aa(0)的值也改变
我想将xx(0)的值复制到aa(0)中，而不是将aa(0)引用xx(0)

[yyyrrr51]

google过了，好像似乎VB里没办法复制类实例的

[chenyanm]

set aa(0)=xx(0)
把new去掉

[jhone99]

[Quote=引用 4 楼 yyyrrr51 的回复:]
google过了，好像似乎VB里没办法复制类实例的
[/Quote]

xx(0)付值的同时aa(0)也付值

[神马都能聊]

楼主的问题应该用CopyMemory或Clone