• Martes 12 de Noviembre de 2024, 20:38

Autor Tema:  Re: tecla enter  (Leído 2293 veces)

Jorge López

  • Miembro MUY activo
  • ***
  • Mensajes: 118
    • Ver Perfil
Re: tecla enter
« en: Jueves 2 de Enero de 2003, 16:12 »
0
hola a todos ....


Tengo un formulario de productos, los que quiero es que al darle enter se pase al siguiente textbox o campo en el formulario..

saludos
Un fracasado es un hombre que ha cometido un error pero que no es capaz de convertirlo en experiencia.

SpeedCAD

  • Miembro activo
  • **
  • Mensajes: 76
    • Ver Perfil
    • http://webcindario.com/speedcad
Re: tecla enter
« Respuesta #1 en: Jueves 2 de Enero de 2003, 16:26 »
0
Un saludo de SpeedCAD... \":)\"
CHILE
http://webcindario.com/speedcad

SpeedCAD

  • Miembro activo
  • **
  • Mensajes: 76
    • Ver Perfil
    • http://webcindario.com/speedcad
Re: tecla enter
« Respuesta #2 en: Jueves 2 de Enero de 2003, 16:28 »
0
Hola...

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
    KeyAscii = 0
    Text2.SetFocus
  End If
End Sub

Con esto del Text1 salta al Text2 al darle enter...
Un saludo de SpeedCAD... \":)\"
CHILE
http://webcindario.com/speedcad

Jorge López

  • Miembro MUY activo
  • ***
  • Mensajes: 118
    • Ver Perfil
Re: tecla enter
« Respuesta #3 en: Jueves 2 de Enero de 2003, 16:46 »
0
Gracias....colocare este codigo...mil gracias amigo
Un fracasado es un hombre que ha cometido un error pero que no es capaz de convertirlo en experiencia.

piluka

  • Nuevo Miembro
  • *
  • Mensajes: 7
    • Ver Perfil
Re: tecla enter
« Respuesta #4 en: Jueves 2 de Enero de 2003, 19:16 »
0
sería más útil establecer la propiedad KeyPreview del formulario a True y poner el código en el evento KeyPress del propio formulario, es decir:

Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        sendkeys "{TAB}", True
    End If
End Sub

lo que se consigue con esto es reemplazar la pulsación del Enter por la Tabulación, no siendo necesario establecer código para cada una de las cajas de texto.

un saludo.

Cero Kull

  • Miembro activo
  • **
  • Mensajes: 33
    • Ver Perfil
Re: tecla enter
« Respuesta #5 en: Sábado 4 de Enero de 2003, 07:03 »
0
Amigo jorge!!

Esta es para validar los text que solo entren letras!! me ayudomucho un amigo del foro...

Pruebalo en otro proyecto.. pera que veas como funciona...

<<Pega esto en el form. y crea a las ves los controles que te pide o que estan el la codificacion me imagino que entiendes!!!

Codigo del Form.....
Private cancelar As Boolean
Private Sub Command1_GotFocus()
    cancelar = True
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    cancelar = True
End Sub
Private Sub Text1_KeyPress(Keyascii As Integer)
    ProcesarKeyPressTextSoloTexto Keyascii, Text1
End Sub
Private Sub Text1_LostFocus()
    If Not cancelar Then ProcesarLostFocusText Text1
End Sub
Private Sub Text2_KeyPress(Keyascii As Integer)
    ProcesarKeyPressTextSoloTexto Keyascii, Text2
End Sub
Private Sub Text2_LostFocus()
    If Not cancelar Then ProcesarLostFocusText Text2
End Sub
Private Sub Command1_Click()
    MsgBox "hola se termino el programa", vbCritical
End Sub
Fin del codigo del Form.......

Codigo del Modulo.bas.........

Public Sub ProcesarKeyPressTextSoloTexto(Keyascii As Integer, txt As TextBox)
    If Asc(UCase(Chr(Keyascii))) < Asc("A") Or Asc(UCase(Chr(Keyascii))) > Asc("Z") Then
        If Keyascii <> 8 And Keyascii <> 13 And Keyascii <> 209 And Keyascii <> 241 And Keyascii <> 34 And Keyascii <> 225 And Keyascii <> 233 And Keyascii <> 237 And Keyascii <> 32 And Keyascii <> 243 And Keyascii <> 250 Then
            Keyascii = 0
            Beep
        End If
        If Keyascii = 13 Then
            SendKeys "{TAB}"
        End If
    Else
        Keyascii = Asc(UCase(Chr(Keyascii)))
    End If
End Sub
Public Sub ProcesarLostFocusText(txt As TextBox)
Static Procesando As Boolean

    If Procesando Then Exit Sub
        Procesando = True
        txt.Text = Trim(UCase(txt.Text))
        If txt.Text = "" Then
        MsgBox " Ingrese datos pedidos ", vbExclamation
        txt.SetFocus
        DoEvents
    End If
    Procesando = False
End Sub



Ojala te sirva es muy util lo...

chau chau y saludos...B)

Jorge López

  • Miembro MUY activo
  • ***
  • Mensajes: 118
    • Ver Perfil
tecla enter
« Respuesta #6 en: Domingo 5 de Enero de 2003, 14:44 »
0
GRACIAS AMIGO...LO APLICARE
Un fracasado es un hombre que ha cometido un error pero que no es capaz de convertirlo en experiencia.