SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Jueves 2 de Enero de 2003, 16:12

Título: Re: tecla enter
Publicado por: Jorge López en Jueves 2 de Enero de 2003, 16:12

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

Título: Re: tecla enter
Publicado por: SpeedCAD en Jueves 2 de Enero de 2003, 16:26

Título: Re: tecla enter
Publicado por: SpeedCAD en Jueves 2 de Enero de 2003, 16:28

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...

Título: Re: tecla enter
Publicado por: Jorge López en Jueves 2 de Enero de 2003, 16:46

Gracias....colocare este codigo...mil gracias amigo

Título: Re: tecla enter
Publicado por: piluka en Jueves 2 de Enero de 2003, 19:16

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.

Título: Re: tecla enter
Publicado por: Cero Kull en Sábado 4 de Enero de 2003, 07:03

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)

Título: tecla enter
Publicado por: Jorge López en Domingo 5 de Enero de 2003, 14:44

GRACIAS AMIGO...LO APLICARE