Programación General > Visual Basic 6.0 e inferiores

 Re: tecla enter

<< < (2/2)

Cero Kull:
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:
GRACIAS AMIGO...LO APLICARE

Navegación

[0] Índice de Mensajes

[*] Página Anterior