SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: shekina en Jueves 22 de Enero de 2004, 05:07

Título: Validacion Del Keypress
Publicado por: shekina en Jueves 22 de Enero de 2004, 05:07
:hola: Hola a todos .....como puedo validar que en un texbox al momento de introducir los datos, solo pueda aceptar Letras y no número muy agradecida :rolleyes:
Título: Re: Validacion Del Keypress
Publicado por: juanjo en Jueves 22 de Enero de 2004, 06:07
ojala te sirva esto:

private sub text1_keypress(keyascii as integer)
if keyascii=13 then
     if isnumeric(text1) then
        msgbox "solo letras"
        text1.setfocus
     end if
end if
Título: Re: Validacion Del Keypress
Publicado por: QliX=D! en Jueves 22 de Enero de 2004, 13:55
No el texto de arriba no sirve porque si te introducen A11 en el texbox lo tomaria como valido ya uqe A11 no es numerico.

tenes que hacer algo con like como esto:

Código: Text
  1.  
  2. private sub text1_keypress(keyascii as integer)
  3.   if keyascii=13 then
  4.     if text1 like "*[0-9]*" then
  5.       msgbox "Hay por lo menos un numero en el cuadro de texto&#59;)"
  6.       text1.setfocus
  7.     end if
  8.   end if
  9. end sub
  10.  
  11.  
B)
Título: Re: Validacion Del Keypress
Publicado por: cpmario en Viernes 23 de Enero de 2004, 04:56
Hay formas más precisas de limitar los caracteres a escribir, este ejemplo solo permite que escribas letras mayúsculas en un textbox, también puedes escribir letras acentuadas.

Private Sub txtNombre_KeyPress(KeyAscii As Integer)
    Dim letters As String
    Dim strChar As String
    letters = "ABCDEFGHIJKLMNOPQRSTUVWXYZÑÁÉÍÓÚÜ "
    strChar = UCase(Chr$(KeyAscii))
    If KeyAscii = 8 Then
    ElseIf InStr(letters, strChar) Then
        KeyAscii = Asc(strChar)
    Else
        KeyAscii = 0
    End If
End Sub

---------------------
"Corrector Ortográfico de Notas", útil para revisar los textos en los programas.
Escrito en Visual Basic, con diccionario propio.

http://geocities.com/igmario/index2.html (http://geocities.com/igmario/index2.html)
Título: Re: Validacion Del Keypress
Publicado por: Jose Arriagada en Viernes 23 de Enero de 2004, 14:42
Para que tanta complicacion, si existe el control Masked, que te permite configurar tu entrada de datos en el diseño de tu programa.
Solo basta indicar que reciba caracteres y punto.
Título: Re: Validacion Del Keypress
Publicado por: shekina en Viernes 23 de Enero de 2004, 19:20
:hola: Hola a todos, les agredezco mucho sus repuestas pero...  :whistling:  estuve tan ocupada ke olvide revisar en internet las respuesas,  sin embargo encontre otra solucion, pues solo hice funciones en un modulo y  cuando valido solo las llamo a cada una de ellas.


Public Function Numeros(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 13 Then KeyAscii = 0
End Function

Public Function Letras(KeyAscii As Integer)
If (KeyAscii < 65 Or KeyAscii > 90) And (KeyAscii < 97 Or KeyAscii > 122) And KeyAscii <> 8 And KeyAscii <> 32 And KeyAscii <> 13 Then KeyAscii = 0
End Function


Bueno solo eso kiero agregar, gracias por todos  :P