Differenze tra le versioni di "Individuare l'ID della finestra dell'InputBox"

Da Gambas-it.org - Wikipedia.
(Creata pagina con "Per individuare il numero identificativo della finestra dell'InputBox, aperta dal programma Gambas, poiché essa in un determinato momento è l'ultima finestra a essere aperta...")
 
 
(Una versione intermedia di uno stesso utente non è mostrata)
Riga 5: Riga 5:
 
   
 
   
 
   
 
   
  '''Public''' Sub Form_Open()
+
  Public Sub Button1_Click()
 
   
 
   
 
   With Timer1 = New Timer As "Timer1"
 
   With Timer1 = New Timer As "Timer1"
Riga 12: Riga 12:
 
   End With
 
   End With
 
   
 
   
'''End'''
+
  InputBox("Testo qualsiasi", "Titolo dell'InputBox")
 
'''Public''' Sub Button1_Click()
 
 
   
 
   
  InputBox("Testo qualsiasi", "Titolo dell'InputBox")
+
End
 
   
 
   
'''End'''
 
 
   
 
   
  '''Public''' Sub Timer1_Timer()
+
  Public Sub Timer1_Timer()
 
   
 
   
 
  <FONT Color=gray>' ''Il "Timer" consente di verificare l'attuale finestra attiva e posta al di sopra delle altre.''
 
  <FONT Color=gray>' ''Il "Timer" consente di verificare l'attuale finestra attiva e posta al di sopra delle altre.''
  ' ''Fintanto che non è stato aperto l'InputBox, la finestra rilevata sarà quella del Form principale; ma quando sarà stato aperto l'InputBox, il Metodo "Desktop.ActiveWindow" individuerà la finestra dell'InputBox:''</font>
+
  ' ''Quando sarà stato aperto l'InputBox, il Metodo "Desktop.ActiveWindow" ne individuerà la finestra e quindi il suo ID:''</font>
 
   Print Hex(Desktop.ActiveWindow, 6)
 
   Print Hex(Desktop.ActiveWindow, 6)
 
   
 
   
  '''End'''
+
  Timer1.Stop
 +
 +
  End

Versione attuale delle 04:08, 18 nov 2023

Per individuare il numero identificativo della finestra dell'InputBox, aperta dal programma Gambas, poiché essa in un determinato momento è l'ultima finestra a essere aperta, si utilizzerà la Proprietà ".ActiveWindow" della Classe statica Desktop, di cui si potrà disporre attivando il Componente "gb.desktop".

Mostriamo un semplice esempio usando anche l'Oggetto "Timer", il quale consentirà di verificare ogni 100 millisecondi la finestra corrente "attiva" sulla Scrivania:

Private Timer1 As Timer


Public Sub Button1_Click()

 With Timer1 = New Timer As "Timer1"
   .Delay = 100
   .Start
 End With

 InputBox("Testo qualsiasi", "Titolo dell'InputBox")

End


Public Sub Timer1_Timer()

' Il "Timer" consente di verificare l'attuale finestra attiva e posta al di sopra delle altre.
' Quando sarà stato aperto l'InputBox, il Metodo "Desktop.ActiveWindow" ne individuerà la finestra e quindi il suo ID:
 Print Hex(Desktop.ActiveWindow, 6)

 Timer1.Stop

End