如何改变它的值？？？100分重酬
dim x as collection
Set x = New Collection
x.Add 3.1415
x(1) = 12345 '出错
Set x(1) = 12345 '出错
如何改变x(1)的值？？？？？？？？？？？？？
问题点数：100、回复次数：4Top
1 楼h_x_k（一缕清烟）回复于 2001-01-31 22:39:00 得分 5
我是一个菜鸟
我的意见如下：COLLECTION对象下的集合中的对象的属性是否支持你要给它的数据
也许到现在我还没有看懂你的题意，算了我去跳楼Top
2 楼haor（一个好人）回复于 2001-01-31 22:40:00 得分 45
VB中不允许编辑集合，如果实在要改也只能这样了：
x.Remove 1
x.Add "12345", , 1Top
3 楼jifeng（疾风）回复于 2001-02-01 02:08:00 得分 50
你可以自定义一个类（CNum)
加入一个默认的属性Value (as Variant)
Option Explicit
'保持属性值的局部变量
Private mvarValue As Variant '局部复制
Public Property Let Value(ByVal vData As Variant)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.Value = 5
mvarValue = vData
End Property
Public Property Set Value(ByVal vData As Variant)
'向属性指派对象时使用，位于 Set 语句的左边。
'Syntax: Set x.Value = Form1
Set mvarValue = vData
End Property
Public Property Get Value() As Variant
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.Value
If IsObject(mvarValue) Then
Set Value = mvarValue
Else
Value = mvarValue
End If
End Property
---------------------------------------
Dim x As Collection
Set x = New Collection
Dim Num As New CNum
Num = 3.1415
x.Add Num
x(1) = 12345
Top
4 楼LWWANDVB（编程小子）回复于 2001-02-01 21:54:00 得分 0
to:h_x_k(一缕清烟)
当然支持，Collection是支持任何类型的。
to:haor(一个好人)
最简单的方法，我就使用它吧。
to:jifeng(疾风)
最好的方法，不过我的程序只用过一次对象赋值，没有必要这么麻烦吧。(^_^)
Top
