• Domingo 22 de Diciembre de 2024, 07:37

Autor Tema:  Hacer Que Un Text Acepte Solo Numeros  (Leído 1715 veces)

erick185

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Hacer Que Un Text Acepte Solo Numeros
« en: Martes 28 de Febrero de 2006, 21:54 »
0
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:

Soultaker

  • Miembro HIPER activo
  • ****
  • Mensajes: 972
  • Nacionalidad: pe
    • Ver Perfil
Re: Hacer Que Un Text Acepte Solo Numeros
« Respuesta #1 en: Martes 28 de Febrero de 2006, 22:12 »
0
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:
http]
foros,programacion, c, c++, java,
linux, videojuegos, directX, .NET,
visual basic,robotica,microprocesadores

Para los nuevos usuarios de este Foro, por favor leerse esta discusión.
Cómo Hacer Preguntas De Forma Inteligente

Ojos que no ven... pisan caquita
Camarón que se duerme... muere electrocutado


<<< Harol Moreyra Bendezú >>>

masticor

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Hacer Que Un Text Acepte Solo Numeros
« Respuesta #2 en: Martes 28 de Febrero de 2006, 22:14 »
0
en el evento keypress del textbox deve programas eso
Código: Text
  1.  
  2. Private Sub Text1_KeyPress(KeyAscii As Integer)
  3. If Asc(&#34;0&#34;) &#60; KeyAscii And Asc(&#34;9&#34;) &#60; KeyAscii Then
  4.     MsgBox &#34;SoloNumeros PLZ!!&#34;
  5.     KeyAscii = 0
  6. End If
  7. End Sub
  8.  
  9.  

masticor

  • Miembro activo
  • **
  • Mensajes: 31
    • Ver Perfil
Re: Hacer Que Un Text Acepte Solo Numeros
« Respuesta #3 en: Martes 28 de Febrero de 2006, 22:17 »
0
Cita de: "Soultaker"

Código: Text
  1.  
  2. If Not IsNumeric(TextBox1.Text) Then
  3.    MsgBox &#34;Solo se permiten Numeros&#34;
  4.    Exit Sub
  5. End If
  6.  
  7.  
Esta buena esta nu me la savia GRAX

erick185

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Re: Hacer Que Un Text Acepte Solo Numeros
« Respuesta #4 en: Miércoles 1 de Marzo de 2006, 05:24 »
0
Hola a to2

Gracias por su colaboracion, me ayudo muchisimo.


salu2 :D

erick185

  • Miembro activo
  • **
  • Mensajes: 37
    • Ver Perfil
Re: Hacer Que Un Text Acepte Solo Numeros
« Respuesta #5 en: Miércoles 1 de Marzo de 2006, 05:28 »
0
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: