Enlaces patrocinados:

Trucos de Visual Basic.NET Caja de Texto sólo valores numéricos

Crearemos una función llamada soloNumeros

Private Function soloNumeros(ByVal KCode As Int16) As Boolean

If (KCode >= 48 And KCode <= 57) Or KCode = 8 Then
Return False
Else
Return True
End If

End Function

En la caja de texto, en el evento KeyPress

Private Sub TextBox1_KeyPress(ByVal sender As Object _
, ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBox1.KeyPress

e.Handled = soloNumeros(System.Convert.ToInt16(Asc(e.KeyChar)))

End Sub
NUEVO: Si tienes dudas de informática pregunta en nuestros foros

Comentarios sobre Caja de Texto sólo valores numéricos

Francisco dice:

Muy bueno el codigo, los felicito tienen una pagina de muy buena ayuda para nosotros los que tamos aprendiendo a programar. Thx.
Comentario publicado 26/03/2010 1:39:00
Camilo Garcia dice:

Dan muy Buenas Respuestas
Comentario publicado 02/07/2010 21:27:00
ENRIQUE dice:

Excelente. funcion sensilla y aplicable. gr.
Comentario publicado 12/10/2010 3:30:00
Victor dice:

excelente codigo, es muy funcional. me ha ayudado un monton para mis proyectos muchas de las funciones que tienen publicadas. Mil gracias. felicitaciones
Comentario publicado 18/04/2011 0:51:00
Dejar un comentario
Nombre:

Mail:

Web:

Comentario:

Código de seguridad

Captcha

Inserta el código de seguridad