SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: erick185 en Martes 28 de Febrero de 2006, 21:54

Título: Hacer Que Un Text Acepte Solo Numeros
Publicado por: erick185 en Martes 28 de Febrero de 2006, 21:54
Hola de nuevo

Quisiera saber si se puede hacer que un text acepte solo numeros, pues ya intente cambiarle el formato y nada, de ante mano gracias


Salu2 :hola:
Título: Re: Hacer Que Un Text Acepte Solo Numeros
Publicado por: Soultaker en Martes 28 de Febrero de 2006, 22:12
Hay varias formas de hacer esto, ahi dejo una
Código: Text
  1.  
  2. If Not IsNumeric(TextBox1.Text) Then
  3.    MsgBox "Solo se permiten Numeros"
  4.    Exit Sub
  5. End If
  6.  
  7.  

 :comp:
Título: Re: Hacer Que Un Text Acepte Solo Numeros
Publicado por: masticor en Martes 28 de Febrero de 2006, 22:14
en el evento keypress del textbox deve programas eso
Código: Text
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3. If Asc("0") < KeyAscii And Asc("9") < KeyAscii Then
  4.     MsgBox "SoloNumeros PLZ!!"
  5.     KeyAscii = 0
  6. End If
  7. End Sub
  8.  
  9.  
Título: Re: Hacer Que Un Text Acepte Solo Numeros
Publicado por: masticor en Martes 28 de Febrero de 2006, 22:17
Cita de: "Soultaker"

Código: Text
  1.  
  2. If Not IsNumeric(TextBox1.Text) Then
  3.    MsgBox "Solo se permiten Numeros"
  4.    Exit Sub
  5. End If
  6.  
  7.  
Esta buena esta nu me la savia GRAX
Título: Re: Hacer Que Un Text Acepte Solo Numeros
Publicado por: erick185 en Miércoles 1 de Marzo de 2006, 05:24
Hola a to2

Gracias por su colaboracion, me ayudo muchisimo.


salu2 :D
Título: Re: Hacer Que Un Text Acepte Solo Numeros
Publicado por: erick185 en Miércoles 1 de Marzo de 2006, 05:28
Ah se me olvidaba :lol:

Aqui les dejo un code corto, que tambien no permi letras!

Private Sub Text1_KeyPress(KeyAscii As Integer)

    If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
        KeyAscii = 0
    End If

End Sub

de ante mano gracias por su aportacion.
 

 Salu2  :hola: