Differenze tra le versioni di "Individuare l'ID della finestra dell'InputBox"
Da Gambas-it.org - Wikipedia.
| Riga 5: | Riga 5: | ||
| − | + | Public Sub Button1_Click() | |
With Timer1 = New Timer As "Timer1" | With Timer1 = New Timer As "Timer1" | ||
| Riga 14: | Riga 14: | ||
InputBox("Testo qualsiasi", "Titolo dell'InputBox") | InputBox("Testo qualsiasi", "Titolo dell'InputBox") | ||
| − | + | End | |
| − | + | ||
| + | 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.'' | ||
| Riga 22: | Riga 23: | ||
Print Hex(Desktop.ActiveWindow, 6) | Print Hex(Desktop.ActiveWindow, 6) | ||
| − | + | Timer1.Stop | |
| + | |||
| + | End | ||
Versione attuale delle 05: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
