vb中的collection对象最多能保存多少个元素？

[gooore]

如题。

调试的时候添加监视发现最多显示了256个，但是好像所有的数据都有。

谢谢各位

[无·法]

Private Sub Form_Load()
Dim l!
Dim c As New Collection

On Error GoTo err1
Do
    l = l + 1
    c.Add l
    DoEvents
Loop

err1:
    MsgBox l
End Sub

[无·法]

[Quote=引用 1 楼 sysdzw 的回复:]

VB code

Private Sub Form_Load()
Dim l!
Dim c As New Collection

On Error GoTo err1
Do
l = l + 1
c.Add l
DoEvents
Loop

err1:
MsgBox l
End Sub
[/Quote]楼上代码是测试最多多少个。监视的那个应该是有限制的，这很正常。

[dbcontrols]

修改了一下

Private Sub Command1_Click()
    Dim l!
    Dim c As New Collection
    On Error GoTo err1
    Do
        l = l + 1
        Me.Caption = l
        c.Add l
        DoEvents
    Loop
err1:
        MsgBox l
End Sub

Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

[gooore]

运行半天了还没停。

上千万了已经。

多谢

[wo22ni]

最少也得LONG类型的大小。你有时间慢慢有那个代码测试。

[king06]

应该没有限制,看你内存多大了.