Principales respuestas
Como desactivar la tecla TAB

Pregunta
-
Hola a todo una consulta tengo una caja de texto que la uso en el evento keypres en el cual cuando preciono enter me hace una busqueda a la db pero al momento que el usuario precione TAB quiero que se desabilite les muestro el código:
Private Sub txtCedula_KeyPress(KeyAscii As Integer)
Numeros KeyAscii
If KeyAscii = 13 Then
KeyAscii = 0
If txtCedula.Text <> "" Then
ValidarCedula
End If
End If
End SubEn este código tendría que agregarle algo para desactivar la tecla TAB, tab en keyacci es 29 como puedo hacer
Select Case KeyAscii
Case 48 To 57, 8, 13
Case Else: KeyAscii = 0
End Select
Anticipadamente gracias por su ayuda
Pedro Avila
- Editado Pedro Ávila martes, 26 de junio de 2012 13:50 faltaba datos
Respuestas
-
'Declaracion del Api en un modulo
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer
Private Sub Text1_Validate(Cancel As Boolean)
If (GetKeyState(vbKeyTab) < 0) Then
MsgBox "Se preciono el Tab"Cancel=True
End If
End SubSaludos, Javier J
- Marcado como respuesta Pedro Ávila martes, 26 de junio de 2012 14:52
Todas las respuestas
-
Lo que puedes hacer es poner en el evento lostfocus, que por ejemplo si el control esta vacío si es un textbox,que vuelva el foco al textbox
O sino también puedes poner
enable en false de los otros objetos para que no puedan recibir el control
O con el evento validationPones que si esta vacío ... le vuelves a setear el foco arriba del control
Ok, checalo y nos comentas vlae?
saludos
Si mi respuesta te sirvio, votala como util XD
-
'Declaracion del Api en un modulo
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer
Private Sub Text1_Validate(Cancel As Boolean)
If (GetKeyState(vbKeyTab) < 0) Then
MsgBox "Se preciono el Tab"Cancel=True
End If
End SubSaludos, Javier J
- Marcado como respuesta Pedro Ávila martes, 26 de junio de 2012 14:52
-