Странная ошибка "Unable to unload within the current co

[Tarik]

Вот сегодня задумался о переделывании интерфейса редактора для своего теста. В общем, переделылвал, переделывал и допеределывался
VB начал ругаться на слудующий код

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

For i = 2 To tansw.Count - 1
>    Unload tansw(i)
    Unload Label7(i)
Next i


ошибкой "Unable to unload within the current context" Вроде ничего радикально не менял, да и вообще такую ошибку первый раз вижу Что это такое и как с этим бороться?

[RayShade]

Ты пытаешься менять в теле цикла переменную, отвечающую за его работу. А именно - Count. Потому что при unload она уменьшится на 1.

[alibek]

Сделай, чтобы цикл уменьшался, т.е. от tansw.Count - 1 до 2 с шагом -1.

[Tarik]

Хм... Странно... Всё дело в том, что раньше он на этот код не ругался
2RayShade: Спасибо за объяснение, я вчера так и не допедалил Если дело только в этом, то можно сделать, как предложил alibek, а можно и так:

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

dim lcount as byte
lcount=tansw.count-1
For i = 2 To lcount
    Unload tansw(i)
    Unload Label7(i)
Next i


[Tarik]

Нет, похоже дело не в этом Попробывал оба способа - та же ошибка. Причём происходит она при первом же проходе, то есть когда i=2 (в случае моего кода) и i=9 (в случае кода от alibek).

[Lord_Satan]

for i=0 to count '10
unload что-то(i)
next

как токо ты делаеш unload что-то(0)
то что-то(10) становится что-то(9) и.т.д.
делай так

for i=0 to count '10
unload что-то(0)
next

Хотя это вроде токо для коллекций канает

[Tarik]

Нет, для массивов контролов это не катит. Listbox какой-нибудь - пожалуйста, но не массив контролов.

[Tarik]

Так. Я уже вообще ни фига не понимаю Такой код в новом проекте не вызывает никаких ошибок! Можно хоть до посинения жать эти кнопочки

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

Private Sub Command1_Click()
Dim i As Integer
For i = 2 To 10
    Load Text1(i)
    Text1(i).Left = Text1(i - 1).Left
    Text1(i).Top = Text1(i - 1).Top + 360
    Text1(i).Visible = True
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer
For i = 2 To Text1.Count - 1
    Unload Text1(i)
Next i
End Sub


Edit
Всё. Сделал. Только всё равно ни хрена не понял Итак, по порядку. Сначала у меня загружается xml-файл. При этом в комбобокс заносятся все доступные варианты

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

For i = 0 To NodeList.length - 1
    Set nNode = NodeList(i)
    lstvars.AddItem "Âàðèàíò " & nNode.childNodes(0).Text
Next i


При выборе варианта (lstvars_Click) выполняется ГЛОБАЛЬНАЯ процедура WriteQuest, в которой, собственно, и присутсявует код, вызывающий ошибку.

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

Private Sub lstvars_Click()
VarNow = lstvars.ListIndex
Set nNode = NodeList(VarNow)
Frame1.Visible = True
QuestNow = 1 'устанавливаем вопрос, который надо отобразить
WriteQuest QuestNow 'Отображаем вопрос
lQuestNo.Caption = "1"
End Sub


Выбираем вариант в комбобоксе. Всё нормально. Выбираем другой - опаньки Выбрать вариант можно только один раз, во второй уже будет ошибка. Таааак. Но ведь в другом проекте я нажимал на кнопки и такого не было! Кнопки... кнопки... Ну ладно! Добавляю кнопку с индексом 0, пишу такой же код:

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

Private Sub Command5_Click(Index As Integer)
VarNow = Index - 1
Set nNode = NodeList(VarNow)
Frame1.Visible = True
QuestNow = 1
WriteQuest QuestNow
lQuestNo.Caption = "1"
End Sub


При загрузке xml добавляю такой код:

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

For i = 0 To NodeList.length - 1
    Set nNode = NodeList(i)
    Load Command5(i + 1)
    Command5(i + 1).Top = Command5(i).Top
    Command5(i + 1).Left = Command5(i).Left + Command5(i).Width + 100
    Command5(i + 1).Caption = "Âûðèàíò" & nNode.childNodes(0).Text
    Command5(i + 1).Visible = True
Next i


Теперь каждая кнопка (начиная с индекса 1) соответсвует пункту в комбобоксе. Итак, запускаем на выполнение... Нажимаем первую кнопку... Нажимаем вторую... ОШИБКИ НЕТ! ВТОРОЙ ВАРИАНТ ОТОБРАЖАЕТСЯ! А теперь думаем: если в обоих случаях зыпускается одна и та же глобальная процедура, то почему в одном случае она вызывает ошибку, а в другом - нет? Я так и не понял [/b]