Cómo permitir un cuadro de texto para aceptar sólo números en Microsoft Visual Basic

Como programador , que a menudo se tenga que restringir los tipos de caracteres puede introducir un usuario en un control de cuadro de texto. En Visual Basic , puede comprobar fácilmente los caracteres que el usuario está entrando con los KeyDown y KeyPress eventos del control de cuadro de texto. Estos eventos se ejecutará cuando el usuario pulsa una tecla en el teclado , que le da el poder para permitir a los números que se introducen . Instrucciones
1

Haga clic en el cuadro de texto que desea comprobar y seleccione Propiedades. Haga clic en el icono de eventos , que se asemeja a un rayo. Desplácese hasta el evento KeyDown y haga doble clic al lado de él para crear el evento
2

Agregue la siguiente variable global en el área de las declaraciones a continuación Public Class : .
< P > NotANumber Dim As Boolean
3

Copia y pega el siguiente código dentro del evento KeyDown para el control de cuadro de texto :

NotANumber = False

Si e.KeyCode < Keys.D0 OrElse e.KeyCode > Keys.D9 Entonces

Si e.KeyCode < Keys.NumPad0 OrElse e.KeyCode > Keys.NumPad9 Entonces

Si e.KeyCode < > Keys.Back Entonces

NotANumber = True End If

End If End If

Si Control.ModifierKeys = Keys.Shift Entonces

NotANumber = True End If

4

Haga clic en los Eventos cuadro desplegable y seleccione KeyPress para crear el evento procedimiento . Copie el siguiente código dentro de este procedimiento de evento :

Si NotANumber = True Luego

e.Handled = True End If

5

Press "F5 " para ejecutar el programa. Su cuadro de texto sólo aceptará números.