Как выгрузить программу без ошибок? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы