Выгрузить все формы приложения

[Lumen]

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

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

...
Unload Form1
Unload Form2
Unload Form3
...
И так далее до бесконечности...


Но может быть есть более красивое решение этой проблемы. Заранее благодарен за ответ.

[Хакер]

Есть такая коллекция называется Forms.

Но вот вопрос. Чем End тебя не устраивает.

[keks-n]

Хакер
При вызове End не происходит событие Unload... А если нужно освободить некий ресурс, который ExipProcess'ом не освобождается автоматически, End не подходит.

[Хакер]

Я ведь кажется сказал про Forms.

[Lumen]

Хакер
За Forms ОГРОМНОЕ спасибо. Я про неё и забыл... А End не устраивает, потому что в событии Unload каждой формы выполняется код (сохраняет обработанные значения на диск). То есть закрыли одну форму - она сохранила свои данные, закрыли другую - она - свои... Закрыли все формы - сохранили все данные. А End аварийно завершает прогу, не выполняя никакого сохранения... Можно было бы и с ним конечно поизвращаться, но уже найдено другое решение. Ещё раз спасибо...

[XPAHuTEJIb]

а не пробовал перед эндом reset делать

[RayShade]

XPAHuTEJIb

Какой reset? Тот что кнопкой на системнике?

[hCORe]

Команда такая есть. Закрывает все файлы с записью данных.

Например, в данной программке при закрытии хоть "нормальном", хоть через даблклик, данные в файл запишутся.

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

Option Explicit

Private Sub Form_DblClick()
    Reset
    End
End Sub

Private Sub Form_Load()
    Open "C:\abcd.dat" For Output As #1
    Print #1, "he-he!";
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Close #1
End Sub

[Хакер]

XPAHuTEJIb
А ты не думал что при unload-е нужно выполнять более серьёзные задачи чем закрытие файлов... например снятие с сабклассинга?

[XPAHuTEJIb]

2xakep:
меня вообще не волнует что делает система при анлоаде, главное чтоб программа завершилось не аварийно

2hCore: немного не точно:
Инструкция Reset закрывает все активные файлы, открытые с помощью инструкции Open, и записывает содержимое всех буферов файлов на диск.

[Хакер]

Ну она как раз таки завершится аварийно (с крахом IDE) если форма с сабклассингом неправильно закроется (т.е. end-ом)

[keks-n]

Это вы сабклассите неправильно-у меня ничего не падает, даже при нажатии Stop

[Хакер]

keks-n, ну мы не изобретаем там всякие хитромудрые сабклассинги с использованием PB и прочей нечести...

[Twister]

некий ресурс, который ExipProcess'ом не освобождается автоматически

Интересно, какие это такие ресурсы в процессе не освобождаются после его завершения?

[Viper]

Ресурсы то освободяться, но ведь может быть необходимость какие-нить действия сделать перед их осовбождением

[Amed]

Уже в первом ответном посте был дан правильный ответ. Все прочие считаю флудом.