Differenze tra le versioni di "Individuare l'ID di un Balloon"

Da Gambas-it.org - Wikipedia.
Riga 10: Riga 10:
  
  
<FONT color=#B22222><B>2 - </b></font>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:
+
<FONT color=#B22222><B>2 - </b></font>Qui si farà uso anche della Classe ''DesktopWindows''; pertanto bisognerà attivare anche i Componenti ''gb.desktop'' e ''gb.desktop.x11''.
 +
<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()
 
  Public Sub Button1_Click()
 
   
 
   
Riga 16: Riga 17:
 
    
 
    
 
   For Each dw In Desktop.Windows
 
   For Each dw In Desktop.Windows
     If dw.Name = Null Then dw = New DesktopWindow(dw.Id)
+
     If IsNull(dw.Name) Then dw = New DesktopWindow(dw.Id)
 
   Next
 
   Next
 
   
 
   

Versione delle 19:58, 17 nov 2023

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; pertanto bisognerà attivare anche i Componenti gb.desktop e gb.desktop.x11.
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 dw.Id
 
End