массив контролов

[kif]

Я искал, но чё-то не нашел.

Вопрос следующий.

Мне нужно во время работы программы пересоздавать массив контролов, создаю его так:

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

for i=1 to 10
load MyControl(i)
next

а как мне убить все элементы кроме нулевого?

[vvs_adm]

Упорно видать искал Попробуй UnLoad, может и поможет...

[kif]

Пробывал, пишет, что Unload не используется в этом контексте.

[BV]

Тогда может так:

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

Set MyControl(i) = Nothing

[kif]

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

Set MyControl(i) = Nothing

не помогает.

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

For i = 1 To M_S
Unload wsk(i) - у меня все работает...
Next

тоже не работает.

может это из-за того, что это в ActiveX Control?

[vvs_adm]

Если что-то было загружено методом Load, то это потом можно выгрузить нафиг методом Unload, а раз у тебя не работает, то кроме "Код в студию" сказать нечего...

[vvs_adm]

Тогда может так:

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

Set MyControl(i) = Nothing

Так ты тока потеряешь связь с контролом и ищи его потом - свищи

[kif]

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

Private Sub CountControl()
  Dim i As Integer
  Dim P As Long
  Dim K As Long
  Dim dd As Image
 
  For i = ImageWork.Count - 1 To 1 Step -1
    Set ImageWork(i) = Nothing
  Next
  K = Int(UserControl.Width / 225) - 1
  For i = 1 To K
    Load ImageWork(i)
    ImageWork(i).Top = 0
    ImageWork(i).Left = P
    ImageWork(i).Visible = True
    P = P + 225
  Next
End Sub

[kif]

фунцкия CountControl вызывается каждый раз при resize UserControlа.

[kif]

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

Dim i As Integer
  Dim P As Long
  Dim K As Long
   
  For i = ImageWork.Count - 1 To 1 Step -1
    Unload ImageWork(i)
  Next
  K = Int(UserControl.Width / 225) - 1
  For i = 1 To K
    Load ImageWork(i)
    ImageWork(i).Top = 0
    ImageWork(i).Left = P
    ImageWork(i).Visible = True
    P = P + 225
  Next

ошибка выскакивает при повторном вызове процедуры когда создано 5 элементов.
невозможно использовать unload в данном контексте

[vvs_adm]

Ну так соглашайся на отладку и посмотри, чему у тебя равет в этот момент (I), похоже ты пытаешься Unload-ить несуществующий контрол... Т.е. наверное некорректно заполняется ImageWork.Count

[kif]

Да запускал я в режиме отладки.

[vvs_adm]

А она (прога) у тя ни один контрол анлоадить не хочет, или когда как?

[kif]

0-й создан в десигн тайм

создаю еще 3 - всего 4
в цикле с конца тормозит на 4-м

[kif]

0-й создан в десигн тайм

создаю еще 3 - всего 4
в цикле с конца тормозит на 4-м

т.е. по индексу 3