Надо закрыть дочернюю форму, оставив родительскую в покое ..

[Slavicos]

Предположим

if a=1 then
<что-то там>
else if a=2 then
<что-то там>
<выгрузить дочернюю форму>
else
<что-то там>
end if

<еще какие-то строки>

Вопрос, собственно, про <выгрузить дочернюю форму>:
- если использовать unload me - форма выгружается, но продолжает работать (выполняются <еще какие-то строки>).
- если использовать end - закрывается даже родительская форма - а не надо.
Так что делать-то? Надо дочернюю форму закрыть и удалить все, что было с ней связано (то есть переменные), а родительскую оставить.

Заранее благодарен за умные мысли.

[Antonariy]

Что значит

продолжает работать (выполняются <еще какие-то строки>).

Какой-то цикл гоняется?
И что значит дочерняя? MDI?

[Slavicos]

Что значит

продолжает работать (выполняются <еще какие-то строки>).

Какой-то цикл гоняется?
И что значит дочерняя? MDI?

Да, в еще <каких-то строках> есть пара-другая циклов.
Именно MDI.

[Zoomie]

А MDI формам Unload не подходит?

[Slavicos]

- если использовать unload me - форма выгружается, но продолжает работать (выполняются <еще какие-то строки>).

Конечно чушь, я согласен, но почему-то именно так:-(
Где я не прав?

[alibek]

Поискать на форме таймеры, места с DoEvents, циклы с задержкой и все потенциально рекурсивные события (типа TextBox_Change) и искать баги в них.

[Rainbow]

Господа, а вы не перемудрили? Когда это Unload me останавливал выполнение процедуры?

На всякий случай еще вопрос: Этот код "if a=1 then " - в дочерней форме?

Если код не должен дальше выполняться, то должно быть

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

else if a=2 then
    <что-то там>
    Unload me
    Exit sub
else
    ....

[Slavicos]

Всем спасибо за поддержку.
Попробую вариант с exit sub
Можно еще попробовать с goto

[Slavicos]

Этот код "if a=1 then " - в дочерней форме?

Yes!

Если код не должен дальше выполняться, то должно быть

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

else if a=2 then
    <что-то там>
    Unload me
    Exit sub
else
    ....

Если так сделать появится сообщение об ошибке типа if без endif.
Пришлось воспользоваться goto (а как не хотелось:-(

[Rainbow]

Если так сделать появится сообщение об ошибке типа if без endif.
Пришлось воспользоваться goto (а как не хотелось

Чего? Не в этом дело. У тебя где-то ошибка в другм. Покажи свой оператор целиком.

Предположение:
Нельзя писать "else if" - есть оператор elseif

if (a > 2) then
elseif (b > 1)
end if

Правда, если ты оставил "else if" - то и goto не должно было скомпилиться.

[Slavicos]

Ну да, конечно, пишеться слитно - elseif.
А ошибка в "еще какие-то строки" появляется именно потому, что кое-какие переменные не существуют, если форма выгружается (точнее они пропадают, т.к. выгружается еще три дочерние формы).
Ох, как там все запущено.
В любом случае, подошла конструкция

.................
.................
GoTo END_WORK
.................
.................
.................
END_WORK:
End Sub

Хотя лично мне этот вариант не нравится (эстет, млин), поэтому еще не полностью закончил поиски, хотя уже и делаю дальше.

"Нет предела совершенству" и в тоже время "Лучшее враг хорошего"