Limitando a entrada de dados
Neste exemplo vamos limitar a entrada de dados via teclado , permitindo que o usuário informe apenas valores que desejamos em um controle TextBox . Usaremos o evento KeyPress do controle TextBox para realizar nossa tarefa. Demos ao nosso controle TextBox o nome de txtNumeros . Permitindo somente a entrada de números: Private Sub txtNumeros_KeyPress(KeyAscii As Integer) Dim strValid As String strValid = "0123456789" If InStr(strValid, Chr(KeyAscii)) = 0 Then KeyAscii = 0 End If End Sub Outra forma de fazer esta restrição pode ser feita com os seguintes códigos equivalentes: Private Sub Text1_KeyPress(KeyAscii As Integer) 'so permite valores numericos If KeyAscii < 48 Or KeyAscii > 57 then Then KeyAscii = 0 endif End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) 'so permite valores numericos Select Case KeyAscii case 48 to 57 'ok case else KeyAscii = 0 E...