Validar Números
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 laplantilla 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) AsShort
If InStr("1234567890", Chr(Keyascii)) = 0 Then
SoloNumeros = 0
Else
SoloNumeros = Keyascii
End If
Select Case KeyasciiCase 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 deVariable
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 AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim KeyAscii As Short = CShort(Asc(e.KeyChar))
keyascii = CShort(SoloNumeros(keyascii))
If keyascii = 0 Then...
Regístrate para leer el documento completo.