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...') |
|||
(2 versioni intermedie di uno stesso utente non sono mostrate) | |||
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 | |
− | |||
− | |||
Riga 34: | Riga 32: | ||
'''End''' | '''End''' | ||
− | |||
'''Public''' Sub Form_Close() | '''Public''' Sub Form_Close() | ||
Riga 43: | Riga 40: | ||
'''End''' | '''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 |
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