Differenze tra le versioni di "Chiudere tutte le finestre aperte da un applicativo"
Da Gambas-it.org - Wikipedia.
Riga 3: | Riga 3: | ||
− | + | Public Sub Form_Open() | |
With w = New Window | With w = New Window | ||
Riga 31: | Riga 31: | ||
Me.Center | Me.Center | ||
− | + | End | |
− | + | ||
+ | Public Sub Form_Close() | ||
For Each w In Windows | For Each w In Windows | ||
Riga 39: | Riga 40: | ||
Next | Next | ||
− | + | 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() | Public Sub Form_Open() |
Versione attuale delle 15:30, 25 giu 2024
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