Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Combinacion De Teclas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Combinacion De Teclas 
 
Hola a todos.
He estado mirando en el foro y veo casos parecidos pero no iguales.
Trato de establecer en el evento KeyPress de un control (un textbox modificado) que me responda a una combinacion de teclas determinada, en este caso SHIFT+TAB
pero no me funciona. En cambio si utilizo otra tecla en lugar de tab, por ejemplo SHIFT+F10 sí me funciona. Alguien sabe como solucionarlo??

Public Sub MiTexto_KeyPress()
If (Key.Shift = True) And (Key.Code = Key.Tab)  ''--Si cambio key.tab por key.F10 por ejemplo, sí funciona
Message.Info("Hola")
End If
Catch
  Message(Error.Text)
End
 



 
tomas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Combinacion De Teclas 
 
Sin haber mirado nada, a bote pronto, imagino que esa combinación en concreto es interceptada por el evento keypress del propio form, que se procesa antes que el del control.
Prueba en el keypress del form algo así:
Public Sub MiTexto_KeyPress()
If (Key.Shift = True) And (Key.Code = Key.Tab) and last.name="micontroltextbox" then ''--Si cambio key.tab por key.F10 por ejemplo, sí funciona
Message.Info("Hola")
STOP EVENT
End If
Catch
Message(Error.Text)
End
 

 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Combinacion De Teclas 
 
Pues asi, de principio, tampoco funciona.
Lo miraré con calma, de todas formas.
Gracias shordi

shordi escribió: [Ver mensaje]
Sin haber mirado nada, a bote pronto, imagino que esa combinación en concreto es interceptada por el evento keypress del propio form, que se procesa antes que el del control.
Prueba en el keypress del form algo así:
Public Sub MiTexto_KeyPress()
If (Key.Shift = True) And (Key.Code = Key.Tab) and last.name="micontroltextbox" then ''--Si cambio key.tab por key.F10 por ejemplo, sí funciona
Message.Info("Hola")
STOP EVENT
End If
Catch
Message(Error.Text)
End
 

 



 
tomas - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Combinacion De Teclas 
 
Acabo de echar un ojo (que es lo que uno debería hacer antes de contestar una pregunta) y he visto lo que pasa.

la tecla shift + tab tiene su propio código se llama key.backtab y es igual a keytab+1. Es decir que tu problema se soluciona preguntando:
if key.code=key.backtab then ...

 



 
shordi - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Pulsación De Dos Teclas A La Vez [Solucio... Urelio Controles/Librerías/Componentes 5 Martes, 15 Diciembre 2009, 21:24 Ver último mensaje
Urelio
No hay nuevos mensajes Teclas Aceleradoras En Submenu ahtonio General 2 Sabado, 30 Enero 2010, 00:36 Ver último mensaje
ahtonio
No hay nuevos mensajes Simular Pulsación De Teclas aristicol Controles/Librerías/Componentes 4 Miercoles, 08 Diciembre 2010, 18:05 Ver último mensaje
shordi
No hay nuevos mensajes Asignar Teclas A Botones kotonfree Controles/Librerías/Componentes 8 Lunes, 13 Diciembre 2010, 23:04 Ver último mensaje
kotonfree
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron