runtime error 10. This array is fixed or temporarily locked.

[djalex777]

Пытаюсь выполнить следующее (при нажатии на кнопке Command1):

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


Private Type MyType
   lTest As Long
End Type
Dim MyArray() As MyType

Private Sub Command1_Click()
Dim i As Long, k As Long
Dim cnt As Long
cnt = 5
ReDim MyArray(cnt)
  For i = 0 To 5
   With MyArray(i)
    .lTest = i
     If i = 3 Then Exit For
   End With
  Next i
 
  ReDim MyArray (i)
End Sub


Возникает ошибка run-time error '10'. Вычитал, что это баг VB и происходит он, когда мы выходим изнутри With из цикла. Предлагают вместо Exit For (Do) использовать GoTo. Пробовал, но ошибка так и остается. Кто нибудь знает, как решить эту проблему???

[Konst_One]

зачем With то?

надо так:

MyArray(i).lTest=i

или так:

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

Dim tt as MyType

tt=MyArray(i)
tt.lTest=i

[djalex777]

зачем With то?

надо так:

MyArray(i).lTest=i

или так:

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

Dim tt as MyType

tt=MyArray(i)
tt.lTest=i

И что это? Понятно, что можно обойтись и без оператора with. Но! Это я же к примеру код привел. Ситуацию описал. У меня названия массивов своих типов раз в 5 длиннее. Плюс индекс массива может определяться функцией, название которой тоже длинное. Помимо этого, у типа очень много свойств. Ну и в довершении всего модулей в программе около 30... Мягко говоря - неудобно не пользоваться оператором With

[alibek]

А почему бы не использовать коллекции?

[djalex777]

А почему бы не использовать коллекции?

Объясни пожалуйста. Не совсем понял.

[alibek]

Замени тип MyType на класс, с такими же мемберами.
Вместо массива MyArray создай коллекцию.
И добавляй в коллекцию экземпляры класса.

[arthur2]

djalex777
Просто не выходи из For! Пусть бейсик выйдет из With своим ходом:

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

  For i = 0 To 5
   With MyArray(i)
    .lTest = i
    'вместо этого:
    ' If i = 3 Then Exit For
    'напиши это:
     if i=3 then i=5
   End With
  Next i