SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Vate en Viernes 5 de Enero de 2007, 18:16

Título: Funcion Solo Numetros O Solo Texto Vb 6.0
Publicado por: Vate en Viernes 5 de Enero de 2007, 18:16
Hola a todos, alguno de uds tiene o conoce alguna funcion que sirva para que en una caja de texto de VB 6.0 solo se puedan ingresar numeros o solo letras?
Gracias de antemano
El vate
Título: Re: Funcion Solo Numetros O Solo Texto Vb 6.0
Publicado por: Mollense en Viernes 5 de Enero de 2007, 18:23
Utiliza el Buscador del Foro. Ya hay varios temas relacionados con esto.

Saludos
Título: Re: Funcion Solo Numetros O Solo Texto Vb 6.0
Publicado por: edu_osqui en Viernes 5 de Enero de 2007, 19:40
la funcion que se utiliza para saber si una variable es numerica o no es "IsNumeric(variable)"
Este es un ejemplo sencillo para que tengas una idea de como se utiliza

Private Sub Text1_Change()
            If IsNumeric(Text1) = False Then
                   MsgBox "Text1 contiene por lo menos 1 letra"
            End If
End Sub
Título: Re: Funcion Solo Numetros O Solo Texto Vb 6.0
Publicado por: Toph en Viernes 5 de Enero de 2007, 21:52
Cita de: "Vate"
Hola a todos, alguno de uds tiene o conoce alguna funcion que sirva para que en una caja de texto de VB 6.0 solo se puedan ingresar numeros o solo letras?
Gracias de antemano
El vate
checa esta discucion ahi aparecen varias formas de como hacer que un textbox solo acepte numeros http://foros.solocodigo.com/index.php?showtopic=24250 (http://foros.solocodigo.com/index.php?showtopic=24250)
para que solo acepte letras solo hay que hacerle una pequeña modificacion




saludos  :hola:
Título: Re: Funcion Solo Numetros O Solo Texto Vb 6.0
Publicado por: supermancito en Lunes 8 de Enero de 2007, 17:39
pues basico man

   :P                                                                           :lol:

solo tienes que validar las cajas de texto para letras o para numeros




Citar
PARA LETRASSS:
Private Sub nom_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65 To 90:
Case 97 To 122:
Case 8:
Case 32:
Case Else
MsgBox ("error solo letras")
End Select
End Sub

 PARA NUMEROS:

Private Sub telf_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57:
Case 32:
Case Else:
MsgBox ("error solo numeros")
End Select
End Sub

solo escrives eso en cada caja de texto que quieras validar y ya


suerte