Collection max size

[Izia]

Sorrry i'll post it in another place!

[Хакер]

1) Если у вас нет 120 постингов или правило 23315
2) А зачем в коллекции хранить строки?
3) Что-то я не припоминаю никаких лимитов...

[tyomitch]

Вопрос в следующем: Collection позволяет работать только с 256 данными

Ничего подобного. Хоть стотыщ.

[Izia]

Код: Выделить всё


Private colData As Collection

Private Sub Class_Initialize()
    Set colData = New Collection
End Sub

Public Sub Clear()
    Set colData = New Collection
End Sub

Public Function Count() As Long
    Count = colData.Count
End Function

Public Sub Enqueue(value As Variant)
    colData.Add value
End Sub

Public Function Dequeue() As Variant
    Dequeue = colData.Item(1)
    colData.Remove 1
End Function

Public Function Peek() As Variant
    Peek = colData.Item(1)
End Function

Private Sub Class_Terminate()
    Set colData = Nothing
End Sub


Назовём этот класс Queue

Public Buffin as New Queue

Если сделать петлю в которой будет 1000 раз Buffin.Enqueue(string)
войдёт только 256 - проверьте!


[tyomitch]

Тестовый код:

Код: Выделить всё

Option Explicit
Public Buffin As New Queue
Const str1ng = "Да гонишь ты всё!"

Sub Main()
Dim i As Long
For i = 1 To 100000
    Buffin.Enqueue str1ng
Next
MsgBox Buffin.Count, , str1ng
End Sub


запусти и убедись.

[Хакер]

доказательство

[Izia]

Вы меня убиваете, всё верно у Вас работает, а меня - нет! Может какие то настройки компайлера?!!!

[tyomitch]

Хакер, чем ты такие классные ролики делаешь?
Я тоже хочу!

[Izia]

Может мне к vb6 надо какие нибудь обновления?

[Хакер]

2Izia
Нет. Проверь наш код. возможно 256 это косвенное воздействие чего либо на данный код. Если наш (вот именно тот что tyomitch предложил) не сработет - то... хм... эээ.... даже не знаю

2tyomitch
SnagIt 7.0.2

А где ты ещё видел такие мои ролики???

[Хакер]

Я вот тут лежал ночью думал из за чего же это может быть... так вот:

скорее всего у тебя элементы где то индексируются (например при создании).

Причём:
1) переменная индексатор объявлена как Byte
+
2) Индексация начинается с 0
+
3) Там стоит On Error ...

поэтому ошибки 6 не происходит, но и новые элементы не добавляются.

[Izia]

Большое спасибо за помощь!
Всё оказывается несколько проще... Я делал "дурную" проверку, добавлял Buffin в watch window, а саму информацию не проверял, так вот не знаю почему,но в watch window видно только 256 первых элементов, тогда как на самом деле прописываются все!!! Так что главная проблема ушла, остался вопрос - почему в watch window видно только 256 элементов?!!!

[FaKk2]

Izia
Первые или последние элементы отображаются?

[Izia]

Первые 256

[tyomitch]

Подтверждаю. Видимо, баг.

[Izia]

tyomitch
Хакер
Ну, вот и чудненько! Ещё раз большое спасибо за быстрые ответы, и извините за пост не в предназначенной категории! Буду исправлятся.