Redim Preserve - в чём ошибка?

[Memfivosfey]

Сорри, возможно вопрос может показаться совсем глупым, но я видно просто так сильно зашкалился, что не вижу ответа:( ,почему происходит эта ошибка.

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

Dim tmpSetUsers() As long
ReDim Preserve tmpSetUsers(0, 1)
   For I = 0 To lstClients.ListCount - 1
      tmpSetUsers(I, 0) = Abs(CLng(lstClients.Selected(I)))
      tmpSetUsers(I, 1) = lstClientsID.List(I)
      ReDim Preserve tmpSetUsers(UBound(tmpSetUsers) + 1, 1)
   Next I


последний Redim пишет ошибку SubScript Out Of Range, никак не могу понять, почему?

мой lstClients является ListCheckBox может в ходе программы менять свой ListCounts но мне необходимо сохранять на время выполнения программы в массив true или false на каждом элементе массива. Т.к. список динамического размера, то я не хотел затавать статически величину масиву Dim tmpSetUsers() я хотел бы, что бы при необходимости, сохраняя данные массива, Ubound(tmpSetUsers()) увеличивался на 1. Вот вобщем вся задача.

[VVitafresh]

If you use the Preserve keyword, you can resize only the last array dimension and you can't change the number of dimensions at all. For example, if your array has only one dimension, you can resize that dimension because it is the last and only dimension. However, if your array has two or more dimensions, you can change the size of only the last dimension and still preserve the contents of the array.

[Twister]

Своим ReDim Preserve tmpSetUsers(UBound(tmpSetUsers) + 1, 1) ты пытаешься изменить нижнюю границу массива. Как только она становится больше единицы - вылетает ошибка. Стоит обратить внимание на ReDim Preserve tmpSetUsers(0, 1)...

[Memfivosfey]

VVitafresh
Twister



Пасиба, Помоему дошло счас буду исправлять.

[Memfivosfey]

Пасиба огромное усё заработало Темку мона закрыть