Закрытие всех форм

[Rodos]

Такая ситуация: открыв несколько форм из программы, я закрываю основную форму, а открытые остаются. Как сделать, чтобы при закрытии основной формы, закрывались вместе с ней все остальные.

[BV]

End, For Each hForm... В поиск по форуму.

[GLEB]

End - закроет все сразу

[Rodos]

To GLEB:
Неа, End не все закрывает, иначе бы я не спрашивал.

To BV:

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

Private Sub mnuExit_Click()
Dim hForm As Variant
For Each hForm In VB.Forms
Unload hForm
Next
End Sub

Заработало! А как-нибудь можно сделать, чтобы при нажатии на крестик (закрыть) происходило тоже самое?

[CORBA]

может тебе использовать MDI окно?
А вообще у формы есть обработчик Unload, вот туда и впихни свой код.

[Rodos]

Thanks COBRA!