Problema con captura de teclas
Publicado por VictorNOB (2 intervenciones) el 02/12/2008 17:59:18
Buenas, ando teniendo un problema al capturar las teclas que apreto en un DataReport, ya que no tiene KeyPress o KeyDown, o sea quiero que al apretar ESC se cierre... ya probe con GetKeyState y GetAsyncKeyState y hace lo mismo...
El problema es que anda lo mas bien... me cierra el reporte, pero al querer abrir cualquier otro reporte o formulario se cuelga el Visual y cierra completamente.
Asi es como lo uso...
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
rptcomandera.Show
Do While rptcomandera.Visible
DoEvents
If GetKeyState(vbKeyEscape) < 0 Then rptcomandera.Hide
Loop
Voy a agredecer mucho la ayuda ya que esto me esta frenando y no conozco otra solucion para cerrar los reportes con el teclado
Saludos
El problema es que anda lo mas bien... me cierra el reporte, pero al querer abrir cualquier otro reporte o formulario se cuelga el Visual y cierra completamente.
Asi es como lo uso...
Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
rptcomandera.Show
Do While rptcomandera.Visible
DoEvents
If GetKeyState(vbKeyEscape) < 0 Then rptcomandera.Hide
Loop
Voy a agredecer mucho la ayuda ya que esto me esta frenando y no conozco otra solucion para cerrar los reportes con el teclado
Saludos
Valora esta pregunta


0