Differenze tra le versioni di "Individuare l'ID di un Balloon"
Da Gambas-it.org - Wikipedia.
| Riga 1: | Riga 1: | ||
| − | Anche il ''Balloon'' è una finestra, e come tale possiede un proprio ID. Per individuare tale numero identificativo (''ID'') con le sole funzioni di Gambas potremo adottare almeno un paio di modalità | + | Anche il ''Balloon'' è una finestra, e come tale possiede un proprio ID. Per individuare tale numero identificativo (''ID'') con le sole funzioni di Gambas potremo adottare almeno un paio di modalità, le quali richiedono che siano attivati anche i Componente "gb.desktop" e "gb.desktop.x11". |
| − | |||
| − | |||
| − | |||
| Riga 8: | Riga 5: | ||
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
| − | + | Print Desktop.Windows[Desktop.Windows.Count - 1].Id | |
'''End''' | '''End''' | ||
| − | |||
| Riga 18: | Riga 14: | ||
Dim dw As DesktopWindow | Dim dw As DesktopWindow | ||
| − | |||
For Each dw In Desktop.Windows | For Each dw In Desktop.Windows | ||
| Riga 24: | Riga 19: | ||
Next | Next | ||
| − | + | Print dw.Id | |
'''End''' | '''End''' | ||
Versione delle 22:40, 26 dic 2021
Anche il Balloon è una finestra, e come tale possiede un proprio ID. Per individuare tale numero identificativo (ID) con le sole funzioni di Gambas potremo adottare almeno un paio di modalità, le quali richiedono che siano attivati anche i Componente "gb.desktop" e "gb.desktop.x11".
1 - Se si intende ottenere l'ID del "Balloon" immediatamente dopo la sua apertura, allora si farà riferimento all'ultimo numero di "indice", il quale è relativo appunto alla finestra del "Balloon", essendo stata ovviamente l'ultima in ordine di apparizione:
Public Sub Button1_Click() Print Desktop.Windows[Desktop.Windows.Count - 1].Id End
2 - Qui si farà uso anche della Classe DesktopWindows. Poiché la finestra del "Balloon" non possiede un nome, allora, per individuare questa finestra, si farà riferimento a tale circostanza:
Public Sub Button1_Click() Dim dw As DesktopWindow For Each dw In Desktop.Windows If dw.Name = Null Then dw = New DesktopWindow(dw.Id) Next Print dw.Id End
