Individuare l'ID della finestra dell'InputBox - Cronologia

Vuott il 11:08, 18 nov 2023

2023-11-18T11:08:41Z

← Versione meno recente		Versione delle 05:08, 18 nov 2023
Riga 5:		Riga 5:


	~~'''~~Public~~'''~~ Sub Button1_Click()		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~~'''~~		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.''
Riga 22:		Riga 23:
	Print Hex(Desktop.ActiveWindow, 6)		Print Hex(Desktop.ActiveWindow, 6)

	~~'''~~End~~'''~~		Timer1.Stop

			End

Vuott il 23:01, 29 dic 2021

2021-12-29T23:01:55Z

← Versione meno recente		Versione delle 17:01, 29 dic 2021
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 11:		Riga 11:
	.Start		.Start
	End With		End With

	~~'''End'''~~

	~~'''Public''' Sub Button1_Click()~~

	InputBox("Testo qualsiasi", "Titolo dell'InputBox")		InputBox("Testo qualsiasi", "Titolo dell'InputBox")
Riga 23:		Riga 19:

	<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'''		'''End'''

Vuott: 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..."

2021-12-29T22:11:06Z

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

Nuova pagina

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 Form_Open()

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

'''End'''

'''Public''' Sub Button1_Click()

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.''
' ''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>
Print Hex(Desktop.ActiveWindow, 6)

'''End'''