Unload všech formulářů při ukončení aplikace

Stalo se ván někdy, že jste zapomněli zrušit nějakou instanci formuláře a aplikace i po vypnutí zůstávala v paměti? Já používám jednoduchou funkci, odstraňující všechny formuláře, kterou volám při ukončení aplikace.

Ukázka použití. (Krok za krokem)
  1. Založte nový Projekt ve VB
  2. Vložte 3 formuláře (Form1, Form2, Form3)
  3. Vložte Modul (Module1)
  4. Ve vlastnostech projektu nastavte Startup Object na Sub Main
  5. Vložte příslušné kódy popsané níže
  6. Spusťte a kochejte se


Do modulu vložte tento kód:

Option Explicit

Public Sub main()
  Form1.Show
  Form2.Show
  Form3.Show
End Sub

Public Sub EndApp(EndForm As Form)
  Static Unloaded As Boolean
  If Unloaded Then Exit Sub
  Unloaded = True
  Dim i As Integer
  While Forms.Count > 1
    'Ukonci postupne ostatni (mimo form volajici funkci)
    i = 0
    While Forms(i).Caption = EndForm.Caption
         i = i + 1
    Wend
    Unload Forms(i)
  Wend
'Naposledy formular z nehoz se ukoncuje ...
Unload EndForm

End Sub

Private Sub Form_Unload(Cancel As Integer)
  'Zavola ukoncujici funkci s parametrem volajiciho formulare  
  Module1.EndApp Me
End Sub