Comunidad Gambas-es

Versión completa: Evento KeyPress, evitar funciones lógicas
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
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
Mmmm... no veo muy clara la utilidad...

Tongue

Saludos
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