Prof. Eng. Geraldo Fernandes

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...

Mudar o foco de um controle para outro quando o usuário pressionar a tecla ENTER. Podemos fazer isto da seguinte maneira: Insira o código abaixo no evento KeyPress do formulário e defina a propriedade KeyPreview do formulário para True . Quando o usuário pressiona uma tecla ela é enviada para o controle que tem o foco , a menos que você defina propriedade KeyPreview do formulário como True , isto permite que coloquemos o tratamento para o teclado no Evento KeyPress do formulário ao invés de colocar em cada controle usado no formulário. Private Sub Form_KeyPress(KeyAscii As Integer) 'Esse código permite a mudança de quadro de 'texto através do Enter If KeyAscii = 13 Then 'Se o tipo do controle ativo for TextBox If TypeOf Screen.ActiveControl Is TextBox Then 'Simula o pressionamento da tecla TAB SendKeys "{tab}" 'A linha a seguir evita ouvir um bip KeyAscii = 0 End If End If End Sub O código acima intercepta ...