Na programação de interface, às vezes queremos apenas que o controle TextBox receba entradas numéricas, enquanto outras entradas são ignoradas. O código-fonte específico é fornecido abaixo:
Adicionamos o evento KeyPress para TextBox
Sub Text1_KeyPress privado (KeyAscii como inteiro)
Se KeyAscii <> 8 E KeyAscii <48 Ou KeyAscii > 57 Então
Bip
ChaveAscii = 0
Terminar se
Finalizar sub
O princípio específico acima é: determine se o valor KeyAscii da tecla pressionada está entre 48-57. Se estiver entre 48 e 57, a entrada é um número, caso contrário, às vezes também podemos usar a tecla Voltar. para facilitar a entrada. Delete em caso de erro, neste caso, então KeyAscii <> 8 deve ser adicionado para que não seja ignorado ao usar a tecla Voltar.