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

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

Soultaker

Hay varias formas de hacer esto, ahi dejo una

Código: Text

 
If Not IsNumeric(TextBox1.Text) Then
   MsgBox &#34;Solo se permiten Numeros&#34;
   Exit Sub
End If

masticor

en el evento keypress del textbox deve programas eso

Código: Text

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Asc(&#34;0&#34;) &#60; KeyAscii And Asc(&#34;9&#34;) &#60; KeyAscii Then
    MsgBox &#34;SoloNumeros PLZ!!&#34;
    KeyAscii = 0
End If
End Sub
 
 

masticor

Cita de: "Soultaker"

Código: Text

If Not IsNumeric(TextBox1.Text) Then
MsgBox "Solo se permiten Numeros"
Exit Sub
End If

Esta buena esta nu me la savia GRAX

erick185

Hola a to2

Gracias por su colaboracion, me ayudo muchisimo.

salu2

erick185

Ah se me olvidaba

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

SoloCodigo

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

erick185

Hacer Que Un Text Acepte Solo Numeros

Soultaker

Re: Hacer Que Un Text Acepte Solo Numeros

masticor

Re: Hacer Que Un Text Acepte Solo Numeros

masticor

Re: Hacer Que Un Text Acepte Solo Numeros

erick185

Re: Hacer Que Un Text Acepte Solo Numeros

erick185

Re: Hacer Que Un Text Acepte Solo Numeros