none
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


    Tuesday, June 26, 2012 1:48 PM

Answers

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

    Tuesday, June 26, 2012 2:26 PM

All replies

  • 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

    Tuesday, June 26, 2012 2:23 PM
  • '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

    Tuesday, June 26, 2012 2:26 PM
  • Hola Javier, muchas gracias me sirvio tu aporte

    Pedro Avila

    Tuesday, June 26, 2012 2:53 PM