Comunidad Gambas-es
Evento KeyPress, evitar funciones lógicas - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: General (https://gambas-es.org/forum-4.html)
+--- Tema: Evento KeyPress, evitar funciones lógicas (/thread-1007.html)

Evento KeyPress, evitar funciones lógicas - Shell - 31-08-2022

Buenas!.

En este caso existe un evento que cumple una tarea y se llama al evento KeyPress del formulario.
Normalmente usamos sentencias de comparación o varias para saber si se ha pulsado una tecla.
A ver que os parece la forma de evitarla.

Código:
Public Sub Form_KeyPress()
 
  Dim teclas As Integer[] = [Key.Enter, Key.Return]

  'If Key.Code = Key.Enter Or Key.Code = Key.Return Then Button1_Click
 
  If teclas.Exist(Key.Code) Then Button1_Click

End

Como son constantes no puedo usa sus valores al comienzo del código y declarar teclas como pública.

Saludos

RE: Evento KeyPress, evitar funciones lógicas - Shordi - 31-08-2022

Mmmm... no veo muy clara la utilidad...

Tongue

Saludos

RE: Evento KeyPress, evitar funciones lógicas - Shell - 31-08-2022

Va ser que no. Ya que en caso de un movimiento con cursores se puede comprobar que todas las teclas de los cursores estén
dentro de un grupo, limitar si, pero a cada una le corresponde una instrucción, al final, sentencias condicionales, ya se está imponiendo
unos limites.  Tongue
 
Cita:Mmmm... no veo muy clara la utilidad...

 Big Grin