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
    End Select
End Sub 

Usamos Códigos ASCII (onde 0 "zero" é o código para NULL) , ao pressionar uma tecla o evento Keypress é acionado e permite somente que sejam entrados os códigos maiores que 48 (0) e menores que 57 ( 9) . Para ver os códigos ASCII de 0 a 128 clique AQUI.