Como desactivar la tecla TAB

Question

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 Sub

En 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

Answer 1

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 validation 

Pones 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

Answer 2

'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 Sub

---

Saludos, Javier J

Answer 3

Hola Javier, muchas gracias me sirvio tu aporte

---

Pedro Avila