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 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 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 Press "F5 " para ejecutar el programa. Su cuadro de texto sólo aceptará números.
< P > NotANumber Dim As Boolean
3
4
5