Impedire che cliccando su un tasto della tastiera si produca più volte il medesimo effetto
Da Gambas-it.org - Wikipedia.
Versione del 1 dic 2015 alle 12:27 di Vuott (Discussione | contributi)
Sappiamo che, utilizzando l'evento _KeyPress(), allo scatenarsi di tale evento un comando presente nelle sua routine si scatena ripetutamente sino a quando il tasto non verrà rilasciato.
Per ovviare a questo problema, e quindi per far produrre solo una volta l'effetto di quanto previsto nella routine dell'evento _KeyPress(), possiamo adottare un codice come il seguente:
Private status As Byte Public Sub Form_KeyPress() If status = 0 Then Print "Produzione effetto" status = 1 Endif End Public Sub Form_KeyRelease() Print "Tasto rilasciato" status = 0 End