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

Da Gambas-it.org - Wikipedia.
(Creata pagina con '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 a...')
 
 
(10 versioni intermedie di uno stesso utente non sono mostrate)
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 numero identificativo (ID), che potrà essere individuato con le sole funzioni di Gambas adottando adottare almeno un paio di modalità.
  
 +
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:
  
I seguenti algoritmi, utilizzando la classe ''Desktop'', richiedono che sia attivato anche il componente ''gb.desktop''.
+
====1° esempio====
 
+
In questo esempio è necessario attivare anche il Componente ''gb.desktop'':
 
+
  Public Sub Button1_Enter()
<FONT color=#B22222><B>1 - </b></font>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
+
  Balloon.Info("Testo qualsiasi", Button1)
 +
  Wait 1
 +
  Print Hex(Desktop.Windows[Desktop.Windows.Count - 1].Id)
 
   
 
   
  '''End'''
+
  End
 
 
 
 
  
<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:
+
====2° esempio====
  '''Public''' Sub Button1_Click()
+
Qui si farà uso anche della Classe ''DesktopWindows''; pertanto si dovrà attivare anche il Componente ''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_Enter()
 
   
 
   
 
   Dim dw As DesktopWindow
 
   Dim dw As DesktopWindow
    
+
    
+
   Balloon.Info("Testo qualsiasi", Button1)
 +
   Wait 1
 +
 
   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
 
   
 
   
    Print dw.Id
+
  Print Hex(dw.Id)
 
    
 
    
  '''End'''
+
  End

Versione attuale delle 17:20, 31 mag 2024

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à.

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

In questo esempio è necessario attivare anche il Componente gb.desktop:

Public Sub Button1_Enter()

 Balloon.Info("Testo qualsiasi", Button1)
 Wait 1
 Print Hex(Desktop.Windows[Desktop.Windows.Count - 1].Id)

End

2° esempio

Qui si farà uso anche della Classe DesktopWindows; pertanto si dovrà attivare anche il Componente 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_Enter()

 Dim dw As DesktopWindow

 Balloon.Info("Testo qualsiasi", Button1)
 Wait 1

 For Each dw In Desktop.Windows
   If IsNull(dw.Name) Then dw = New DesktopWindow(dw.Id)
 Next

 Print Hex(dw.Id)
 
End