Differenze tra le versioni di "Chiudere tutte le finestre aperte da un applicativo"
Da Gambas-it.org - Wikipedia.
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 | |
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: | 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 |
Versione delle 18:11, 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