Differenze tra le versioni di "Individuare l'ID di un Balloon"
Da Gambas-it.org - Wikipedia.
| (8 versioni intermedie di uno stesso utente non sono mostrate) | |||
| Riga 1: | Riga 1: | ||
| − | Anche il ''Balloon'' è una finestra, e come tale possiede un proprio | + | Anche il ''Balloon'' è una finestra, e come tale possiede un proprio numero identificativo (ID), che potrà essere individuato con le sole funzioni di Gambas adottando adottare almeno un paio di modalità, per le quali si dovranno attivare anche i Componenti "gb.desktop" e "gb.desktop.x11". |
| + | 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: | ||
| − | + | ====1° esempio==== | |
| − | + | Public Sub Button1_Click() | |
| − | |||
| − | |||
| − | |||
| − | + | Print Hex(Desktop.Windows[Desktop.Windows.Count - 1].Id) | |
| − | + | End | |
| − | + | ====2° esempio==== | |
| − | + | Qui si farà uso anche della Classe ''DesktopWindows''. | |
| − | + | <BR>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 | Dim dw As DesktopWindow | ||
| − | |||
For Each dw In Desktop.Windows | For Each dw In Desktop.Windows | ||
| − | If dw.Name | + | If IsNull(dw.Name) Then dw = New DesktopWindow(dw.Id) |
Next | Next | ||
| − | + | Print Hex(dw.Id) | |
| − | + | End | |
Versione attuale delle 04:47, 18 nov 2023
Anche il Balloon è una finestra, e come tale possiede un proprio numero identificativo (ID), che potrà essere individuato con le sole funzioni di Gambas adottando adottare almeno un paio di modalità, per le quali si dovranno attivare anche i Componenti "gb.desktop" e "gb.desktop.x11".
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:
1° esempio
Public Sub Button1_Click() Print Hex(Desktop.Windows[Desktop.Windows.Count - 1].Id) End
2° esempio
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 IsNull(dw.Name) Then dw = New DesktopWindow(dw.Id) Next Print Hex(dw.Id) End
