Rainbow » 04.03.2004 (Чт) 12:13
У тебя открыто много форм и все их ты хочешь закрыть и выйти из проекта?
Вообще, у приложения есть коллекция Forms. Можно по ней пробежаться и выгрузить все формы.
- Код: Выделить всё
Dim f As Form
For Each f In Forms
Unload f
Next
Только осторожно, в эту коллекцию входят ВСЕ формы. Если выгрузишь главную раньше остальных, то будет нехорошо.
Можно попробовать так:
- Код: Выделить всё
Dim f As Form
For Each f In Forms
If Not f Is frmMain Then Unload f
Next
Unload frmMain
А зачем тебе? Может, опишешь ситуацию, когда тебе это понадобилось? У тебя MDI-приложение?
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)