Un textBox que acepte solo N�meros en VB .NET
[Donde est� Keyascci
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 Variable
Public KeyAscii As Short
 
Ahora en el evento KeyPress del textBox1 copie y pegue este c�digo
 
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
        keyascii = CShort(SoloNumeros(keyascii))
        If keyascii = 0 Then
            e.Handled = True
        End If
 
Quedar�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 Sub
 
Ahora ejecute su aplicaci�n presionando F5.

ir al índice

Fichero con el c�digo de ejemplo, (ar_SoloNumeros.zip - 20,8 KB)