Impedire che cliccando su un tasto della tastiera si produca più volte il medesimo effetto

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 quando 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