Chiudere tutte le finestre aperte da un applicativo

Da Gambas-it.org - Wikipedia.

Se in chiusura di un applicativo si intende chiudere anche tutte le finestre eventualmente, generate dall'applicativo medesimo oltre il suo Form principale, si può utilizzare o la Classe Windows, che ritorna una collezione di tutte le finestre create dall'applicativo principale:

Private w As Window


Public Sub Form_Open()

 With w = New Window
   .W = 100
   .H = 100
   .X = 0
   .Y = 0
   .Show
 End With
 
 With w = New Window
   .W = 100
   .H = 100
   .X = 200
   .Y = 100
   .Show
 End With
 
 With w = New Window
   .W = 100
   .H = 100
   .X = 300
   .Y = 200
   .Show
 End With
 
 Me.Center
 
End


Public Sub Form_Close()

 For Each w In Windows
   w.Close
 Next

End


oppure sarà sufficiente assegnare alla proprietà .MainWindow della Classe Application la finestra principale dell'applicativo:

Public Sub Form_Open()

  Application.MainWindow = Me   ' oppure: = FMain

End