Differenze tra le versioni di "Chiudere tutte le finestre aperte da un applicativo"

Da Gambas-it.org - Wikipedia.
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 1: Riga 1:
 
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:
 
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
+
  Private w As Window
 
   
 
   
 
   
 
   
Riga 32: Riga 32:
 
    
 
    
 
  '''End'''
 
  '''End'''
−
 
 
   
 
   
 
  '''Public''' Sub Form_Close()
 
  '''Public''' Sub Form_Close()
Riga 41: Riga 40:
 
   
 
   
 
  '''End'''
 
  '''End'''
−
 
+
oppure sarà sufficiente assegnare alla Proprietà ".MainWindow" della Classe ''Application'' la finestra ''principale'' dell'applicativo:
−
 
+
  Public Sub Form_Open()
−
oppure sarà sufficiente assegnare alla proprietà ''.MainWindow'' della Classe ''Application'' la finestra principale dell'applicativo:
 
−
  '''Public''' Sub Form_Open()
 
 
   
 
   
−
  Application.MainWindow = Me  <FONT color=gray>' ''oppure: = FMain''</font>
+
  Application.MainWindow = Me  <FONT color=gray>' ''oppure: = FMain''</font>
 
   
 
   
−
  '''End'''
+
  End

Versione attuale delle 18:12, 22 giu 2023

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
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Chiudere_tutte_le_finestre_aperte_da_un_applicativo&oldid=34266"