Differenze tra le versioni di "Chiudere tutte le finestre aperte da un applicativo"
Da Gambas-it.org - Wikipedia.
(Creata pagina con '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ò utiliz...') |
|||
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 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 41: | Riga 39: | ||
w.Close | w.Close | ||
Next | Next | ||
+ | |||
+ | '''End''' | ||
+ | |||
+ | |||
+ | 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> | ||
'''End''' | '''End''' |
Versione delle 09:47, 27 ago 2013
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