En la programación de interfaces, a veces solo queremos que el control TextBox reciba entradas numéricas, mientras que otras entradas se ignoran. El código fuente específico se proporciona a continuación:
Agregamos evento KeyPress para TextBox
Subtexto privado1_KeyPress (KeyAscii como número entero)
Si KeyAscii <> 8 y KeyAscii < 48 o KeyAscii > 57 entonces
Bip
ClaveAscii = 0
Terminar si
Subtítulo final
El principio específico anterior es: determinar si el valor KeyAscii de la tecla presionada está entre 48 y 57, si está entre 48 y 57, la entrada es un número; de lo contrario, no lo es. Sin embargo, a veces también podemos usar la tecla Atrás. para facilitar la entrada. Eliminar en caso de error, en este caso, se debe agregar KeyAscii <> 8 para que no se ignore al usar la tecla Atrás.