Как выгрузить программу без ошибок? - VB
Формулировка задачи:
Раньше я просто закрывал программу 'крестиком'
Потом, когда к проекту добавились некоторые контролы стали возникать ошибки при выгрузке программы. И тогда я в событии unload поставил end. Помогло. А сейчас при добавлении ещё одного контрола, при выгрузки программы возникает похожая ошибка, что была до end. Я где-то видел универсальный код выгрузки программы, но сейчас не могу найти.
Решение задачи: «Как выгрузить программу без ошибок?»
textual
Листинг программы
Private Sub Form_Unload(Cancel As Integer) Dim frm As Form, ctl As Control, obj As Object UnHookForm Me Call Shell_NotifyIcon(NIM_DELETE, nfIconData) On Error Resume Next For Each frm In Forms For Each ctl In frm.Controls Set ctl = Nothing Next ctl For Each obj In frm.Objects Set obj = Nothing Next obj Unload frm Set frm = Nothing Next frm End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д