Un
textBox que acepte solo N�meros en VB .NET
Fecha: 20/Mayo/2003 (Publicado 29/Jun/03) Autor: Angel Enrique Ruiz Pastor (Vzla), [email protected] |
. |
Es te c�digo nos muestra como validar un texbox que acepte solo n�meros, En Visual Basic .NET
Abra un nuevo proyecto, En Proyectos de Visual Basic seleccione la plantilla Aplicaci�n para Windows.
En la Barra de Herramientas Seleccione Proyecto se le desplegara una lista seleccione Agregar M�dulo.
Agregue un Textbox al Formulario y no le cambie el Nombre, D�jelo como textbox1
En el Modulo copie y pegue este c�digo:
'****************************************************************************************
'* C�digo realizado por Angel Ruiz � (Venezolano) *
'****************************************************************************************
Function SoloNumeros(ByVal Keyascii As Short) As Short If InStr("1234567890", Chr(Keyascii)) = 0 Then SoloNumeros = 0 Else SoloNumeros = Keyascii End If Select Case Keyascii Case 8 SoloNumeros = Keyascii Case 13 SoloNumeros = Keyascii End Select End Function ------------------------------------------------------------------------------------------------ Ahora valla al Formulario y haga doble click sobre el:
Despu�s de la l�nea:
Inherits System.Windows.Forms.Form
Copie y pegue esta Declaraci�n de VariablePublic KeyAscii As ShortAhora en el evento KeyPress del textBox1 copie y pegue este c�digoDim KeyAscii As Short = CShort(Asc(e.KeyChar)) keyascii = CShort(SoloNumeros(keyascii)) If keyascii = 0 Then e.Handled = True End IfQuedar�a de la siguiente forma:Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress Dim KeyAscii As Short = CShort(Asc(e.KeyChar)) keyascii = CShort(SoloNumeros(keyascii)) If keyascii = 0 Then e.Handled = True End If End SubAhora ejecute su aplicaci�n presionando F5.
Fichero con el c�digo de ejemplo, (ar_SoloNumeros.zip - 20,8 KB)