KeyPress() - KeyRelease() - Key - Cronologia

Vuott il 10:47, 16 lug 2024

2024-07-16T10:47:56Z

← Versione meno recente		Versione delle 04:47, 16 lug 2024
Riga 143:		Riga 143:
	Public Sub Evento_keyPress()		Public Sub Evento_keyPress()

	<FONT color=gray>' ''Se si preme ~~la lettera "R" maiuscola (tasto "Schift" +~~ tasto "R"), lo rileva in console:''</font>		<FONT color=gray>' ''Se si preme il tasto "R" della tastiera, lo rileva in console:''</font>
	If Key.Code = key["R"] Then Print "Evento sollevato: tasto \"R\" premuto !"		If Key.Code = key["R"] Then Print "Evento sollevato: tasto \"R\" premuto !"

	End		End

Vuott il 10:43, 16 lug 2024

2024-07-16T10:43:49Z

← Versione meno recente		Versione delle 04:43, 16 lug 2024
Riga 84:		Riga 84:
	End		End

	===Intercettando la pressione di due tasti combinata in sequenza===		===Intercettando la pressione di due o tre tasti combinata in sequenza===
	====Intercettando il tasto "''Control'' " + un altro tasto====		====Intercettando il tasto "''Control'' " + un altro tasto====
	Qui intercettando il tasto "Control" + il tasto "R":		Qui intercettando il tasto "Control" + il tasto "R":
Riga 96:		Riga 96:
	If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""		If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""

	====Intercettando il tasto "''Shift'' " + un altro tasto====		====Intercettando il tasto "Shift" + un altro tasto====
	Si possono avere due casi:		Si possono avere due casi:
	<BR>'''1''') per intercettare la pressione del tasto "Shift" + un altro tasto è prevista una unica specifica Costante della Classe ''Key''.		<BR>'''1''') per intercettare la pressione del tasto "Shift" + un altro tasto è prevista una unica specifica Costante della Classe ''Key''.
Riga 113:		Riga 113:
	<FONT color=gray>' ''Se viene premuto il tasto "Shift" + il tasto della lettera "R":''</font>		<FONT color=gray>' ''Se viene premuto il tasto "Shift" + il tasto della lettera "R":''</font>
	If Key.Code = Key["R"] And Key<FONT color=red>.Shift</font> Then Print "Hai premuto Shift+R !"		If Key.Code = Key["R"] And Key<FONT color=red>.Shift</font> Then Print "Hai premuto Shift+R !"

			End

			====Intercettando tre tasti: "Control" + "Shift" + un altro tasto====
			In ordine alla pressione di tre tasti nella riga del condizionale va posto <U>prima il riferimento al tasto generico prescelto</u>, dopo vanno posti i riferimenti ai tasti "Control" e "Shift" con i rispettivi operatori ''AND'':
			Public Sub Form_KeyPress()

			<FONT color=gray>' ''Se viene premuto il tasto "Control" + il tasto "Shift" + il tasto della lettera "F":''</font>
			If Key.Code = Key["F"] And Key.Control And Key.Shift Then Print "Hai premuto in modo combinato i tasti: Control+Shift+F !"

	End		End

Vuott il 10:34, 16 lug 2024

2024-07-16T10:34:34Z

← Versione meno recente		Versione delle 04:34, 16 lug 2024
Riga 105:		Riga 105:

	<BR>'''2''') per intercettare la pressione del tasto "Shift" + un altro tasto, bisognerà prendere in considerazione tali ''due'' tasti premuti della tastiera.		<BR>'''2''') per intercettare la pressione del tasto "Shift" + un altro tasto, bisognerà prendere in considerazione tali ''due'' tasti premuti della tastiera.
	In tal caso, per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante "<FONT Color=red>.Shift</font>".		<BR>In tal caso, per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante "<FONT Color=red>.Shift</font>".
	<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":		<BR>In particolare nella riga del condizionale va posto <U>prima il riferimento al tasto generico prescelto</u> e dopo l'operatore ''AND'' va posto il riferimento al tasto "Shift":
			If Key.Code = '''Key["R"] <FONT Color=green>And</font> Key.Shift''' Then ......
			In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

	<FONT color=gray>' ''Se viene premuto il tasto "Shift" + il tasto della lettera "R":''</font>		<FONT color=gray>' ''Se viene premuto il tasto "Shift" + il tasto della lettera "R":''</font>
	If Key.Code = Key["R"] And Key<FONT color=red>.Shift</font> Then Print "Hai premuto Shift+R"		If Key.Code = Key["R"] And Key<FONT color=red>.Shift</font> Then Print "Hai premuto Shift+R !"

	End		End

Vuott il 10:26, 16 lug 2024

2024-07-16T10:26:31Z

← Versione meno recente		Versione delle 04:26, 16 lug 2024
Riga 84:		Riga 84:
	End		End

	===Intercettando la pressione di due ~~o più~~ tasti in sequenza===		===Intercettando la pressione di due tasti combinata in sequenza===
	====Intercettando il tasto "''Control'' " + un altro tasto====		====Intercettando il tasto "''Control'' " + un altro tasto====
	Qui intercettando il tasto "Control" + il tasto "R":		Qui intercettando il tasto "Control" + il tasto "R":

Vuott il 10:23, 16 lug 2024

2024-07-16T10:23:40Z

← Versione meno recente		Versione delle 04:23, 16 lug 2024
Riga 100:		Riga 100:
	<BR>'''1''') per intercettare la pressione del tasto "Shift" + un altro tasto è prevista una unica specifica Costante della Classe ''Key''.		<BR>'''1''') per intercettare la pressione del tasto "Shift" + un altro tasto è prevista una unica specifica Costante della Classe ''Key''.
	<BR>Il caso è ad esempio quello del tasto "BackTab", che si ottiene premendo in sequenza il tasto "Shift" + il tasto "TAB".		<BR>Il caso è ad esempio quello del tasto "BackTab", che si ottiene premendo in sequenza il tasto "Shift" + il tasto "TAB".
	<BR>Ebbene, per intercettare questo effetto in Gambas, basterà impostare la specifica Costante prevista appunto dalla Classe ''Key'': "Key<FONT Color=red~~><B~~>.BackTab~~</b>~~</font>.		<BR>Ebbene, per intercettare questo effetto in Gambas, basterà impostare la specifica Costante prevista appunto dalla Classe ''Key'': "Key<FONT Color=red>.BackTab</font>".
	<BR>Esempio pratico:		<BR>Esempio pratico:
	If Key.Code = Key<FONT Color=red>.BackTab</font> Then Print "E' stato premuto il tasto \"BACKTAB\" ("hift" + "Tab" !"		If Key.Code = Key<FONT Color=red>.BackTab</font> Then Print "E' stato premuto il tasto \"BACKTAB\" ("hift" + "Tab" !"

	<BR>'''2''') per intercettare la pressione del tasto "Shift" + un altro tasto, bisognerà prendere in considerazione tali ''due'' tasti premuti della tastiera.		<BR>'''2''') per intercettare la pressione del tasto "Shift" + un altro tasto, bisognerà prendere in considerazione tali ''due'' tasti premuti della tastiera.
	In tal caso, per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante "<FONT Color=red~~><B~~>.Shift~~</b>~~</font>".		In tal caso, per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante "<FONT Color=red>.Shift</font>".
	<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":		<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

Vuott il 10:22, 16 lug 2024

2024-07-16T10:22:05Z

← Versione meno recente		Versione delle 04:22, 16 lug 2024
Riga 68:		Riga 68:

	End		End

			Qui intercettando il tasto "TAB":
			Public Sub Form_KeyPress()

			If Key.Code = Key.Tab Then Print "E' stato premuto il tasto \"TAB\" !"

			End

	Qui intercettando il numero del codice del tasto premuto:		Qui intercettando il numero del codice del tasto premuto:
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()
Riga 89:		Riga 97:

	====Intercettando il tasto "''Shift'' " + un altro tasto====		====Intercettando il tasto "''Shift'' " + un altro tasto====
	~~Per~~ intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante ".Shift".		Si possono avere due casi:
			<BR>'''1''') per intercettare la pressione del tasto "Shift" + un altro tasto è prevista una unica specifica Costante della Classe ''Key''.
			<BR>Il caso è ad esempio quello del tasto "BackTab", che si ottiene premendo in sequenza il tasto "Shift" + il tasto "TAB".
			<BR>Ebbene, per intercettare questo effetto in Gambas, basterà impostare la specifica Costante prevista appunto dalla Classe ''Key'': "Key<FONT Color=red><B>.BackTab</b></font>.
			<BR>Esempio pratico:
			If Key.Code = Key<FONT Color=red>.BackTab</font> Then Print "E' stato premuto il tasto \"BACKTAB\" ("hift" + "Tab" !"

			<BR>'''2''') per intercettare la pressione del tasto "Shift" + un altro tasto, bisognerà prendere in considerazione tali ''due'' tasti premuti della tastiera.
			In tal caso, per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante "<FONT Color=red><B>.Shift</b></font>".
	<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":		<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()
Riga 99:		Riga 115:


			==Utilizzare la Classe ''Window''==

	===Utilizzare la Classe ''Window''===
	Se non si intende utilizzare il ''Form'', né un controllo specifico insistente sul ''Form'', è possibile servirsi della Classe ''Window'' creando una finestra virtuale, che sarà gestita mediante una variabile:		Se non si intende utilizzare il ''Form'', né un controllo specifico insistente sul ''Form'', è possibile servirsi della Classe ''Window'' creando una finestra virtuale, che sarà gestita mediante una variabile:
	Private w As <FONT color=#B22222>Window</font>		Private w As <FONT color=#B22222>Window</font>

Vuott il 10:05, 16 lug 2024

2024-07-16T10:05:27Z

← Versione meno recente		Versione delle 04:05, 16 lug 2024
Riga 31:		Riga 31:
	E' possibile ovviamente utilizzare gli Eventi "_Keypress()" e "_Keyrelease()" di un Oggetto grafico qualsiasi che li supporti (ad esempio un ''Button''). Anche in questo caso, affinché detti Eventi possano essere sollevati, è necessario che l'Oggetto, ad esso legati, abbia in quel momento il ''Focus''.		E' possibile ovviamente utilizzare gli Eventi "_Keypress()" e "_Keyrelease()" di un Oggetto grafico qualsiasi che li supporti (ad esempio un ''Button''). Anche in questo caso, affinché detti Eventi possano essere sollevati, è necessario che l'Oggetto, ad esso legati, abbia in quel momento il ''Focus''.

	===Altre modalità di utilizzo della funzione ''key''===		==Altre modalità di utilizzo della funzione ''key''==
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

Riga 76:		Riga 76:
	End		End

			===Intercettando la pressione di due o più tasti in sequenza===
	====Intercettando il tasto "''Control'' " + un altro tasto====		====Intercettando il tasto "''Control'' " + un altro tasto====
	Qui intercettando il tasto "Control" + il tasto "R":		Qui intercettando il tasto "Control" + il tasto "R":

Vuott il 09:57, 16 lug 2024

2024-07-16T09:57:56Z

← Versione meno recente		Versione delle 03:57, 16 lug 2024
Riga 11:		Riga 11:
	Dim s as string		Dim s as string

	<FONT color=~~#006400~~>' ''Acquisisce il testo della chiave (il tasto premuto):''</font>		<FONT color=gray>' ''Acquisisce il testo della chiave (il tasto premuto):''</font>
	s = Key.Text		s = Key.Text

Riga 23:		Riga 23:
	Dim s as string		Dim s as string

	<FONT color=~~#006400~~>' ''Acquisisce il testo della chiave (il tasto schiacciato):''</font>		<FONT color=gray>' ''Acquisisce il testo della chiave (il tasto schiacciato):''</font>
	s = Key.Text		s = Key.Text

Riga 34:		Riga 34:
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

	<FONT color=~~#006400~~>' ''Se viene premuto il tasto del carattere “R”:''</font>		<FONT color=gray>' ''Se viene premuto il tasto del carattere “R”:''</font>
	If Key.Code = Key["R"] Then Print "E' stato premuto il tasto della lettera \"R\"."		If Key.Code = Key["R"] Then Print "E' stato premuto il tasto della lettera \"R\"."

Riga 41:		Riga 41:
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

	<FONT color=~~#006400~~>' ''Se viene premuto il tastino della freccia a destra:''</font>		<FONT color=gray>' ''Se viene premuto il tastino della freccia a destra:''</font>
	If Key.Code = Key["Right"] Then Print "E' stato premuto il tasto \"Right\"."		If Key.Code = Key["Right"] Then Print "E' stato premuto il tasto \"Right\"."

Riga 71:		Riga 71:
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

	<FONT color=~~#006400~~>' ''Si prende in considerazione il numero del codice del tasto premuto, che - in questo caso - corrisponde al numero di codice ASCII del carattere collegato al tasto premuto:''</font>		<FONT color=gray>' ''Si prende in considerazione il numero del codice del tasto premuto, che - in questo caso - corrisponde al numero di codice ASCII del carattere collegato al tasto premuto:''</font>
	If Key.Code = 65 then Print "E' stato premuto il tasto con il carattere \"A\"."		If Key.Code = 65 then Print "E' stato premuto il tasto con il carattere \"A\"."

Riga 80:		Riga 80:
	Public Sub Form_KeyPress()		Public Sub Form_KeyPress()

	<FONT color=~~#006400~~>' ''Se viene premuto il tasto "Control" + il tasto della lettera "R":''</font>		<FONT color=gray>' ''Se viene premuto il tasto "Control" ("Ctrl") + il tasto della lettera "R":''</font>
	If Key.Code = Key["R"] And Key.Control Then Print "Hai premuto CTRL+R"		If Key.Code = Key["R"] And Key.Control Then Print "Hai premuto CTRL+R"

Riga 86:		Riga 86:
	Qui intercettando il tasto "Control" + il tasto "!":		Qui intercettando il tasto "Control" + il tasto "!":
	If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""		If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""

			====Intercettando il tasto "''Shift'' " + un altro tasto====
			Per intercettare la pressione combinata del tasto "Shift" con un altro tasto, bisognerà impostare la Costante ".Shift".
			<BR>In questo esempio si intercetta la pressione del tasto "Shift" + il tasto "R":
			Public Sub Form_KeyPress()

			<FONT color=gray>' ''Se viene premuto il tasto "Shift" + il tasto della lettera "R":''</font>
			If Key.Code = Key["R"] And Key<FONT color=red>.Shift</font> Then Print "Hai premuto Shift+R"

			End

Vuott il 09:35, 16 lug 2024

2024-07-16T09:35:29Z

← Versione meno recente		Versione delle 03:35, 16 lug 2024
Riga 87:		Riga 87:
	If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""		If Key.Code = Key["!"] And Key.Control Then Print "E' stato premuto il tasto \"Control\" + il tasto \"!\""

	~~====Intercettando il tasto ''Shift'' + un altro tasto====~~
	~~Qui intercettando il tasto "Shift" + il tasto "Canc":~~
	~~If Key.Code = Key["Delete"] Then Print "E' stato premuto il tasto \"Canc\"."~~
	~~o anche così:~~
	~~If Key.Code = Key.Delete Then Print "E' stato premuto il tasto \"Canc\"."~~


	===Utilizzare la Classe ''Window''===		===Utilizzare la Classe ''Window''===

Vuott il 13:21, 7 giu 2024

2024-06-07T13:21:26Z

← Versione meno recente		Versione delle 07:21, 7 giu 2024
Riga 102:		Riga 102:

	With w = New Window(FMain) As "Evento"		With w = New Window(FMain) As "Evento"
	<FONT color=~~#006400~~>' ''~~Diamo~~ il "focus" alla finestra virtuale:''</font>		<FONT color=gray>' ''Si dà il "focus" alla finestra virtuale:''</font>
	.SetFocus		.SetFocus
	End With		End With
Riga 110:		Riga 110:

	Public Sub Evento_keyPress()		Public Sub Evento_keyPress()

			<FONT color=gray>' ''Se si preme la lettera "R" maiuscola (tasto "Schift" + tasto "R"), lo rileva in console:''</font>
	If Key.Code = key["R"] Then Print "Evento sollevato: tasto \"R\" premuto !"		If Key.Code = key["R"] Then Print "Evento sollevato: tasto \"R\" premuto !"

	End		End