Skip Navigation Links
Novas Tecnologias
Ferramentas Adicionais
Ferramentas Adicionais


Dica No :
116
Assunto : Visual Basic
Titulo: Fazendo um TAB automático

Gostou do texto ? Vote e dê sua opinião! Pontuação atual :

Translate this page now :






Adicione aos Favoritos!
BlogBlogs Rec6 Linkk Ueba Technorati Delicious DiggIt! StumbleUpon



Para digitadores, quanto menor o número de toques que precisem dar melhor. Assim sendo é vantajoso para eles que as caixas de texto saltem automaticamente para o próximo campo quando seu tamanho máximo for atingido.

Podemos fazer isso a nível de form, o que automaticamente implementará o TAB automático para todas as textbox do form.

Para isso iremos programar o KeyUp do form. O KeyUp ocorre após o evento Change, permitindo desta forma que realizemos uma ação após o caracter haver entrado na caixa.

Para que o evento KeyUp do form seja disparado para qualquer pressionamento de tecla do form precisaremos setar a propriedade KeyPreview do forma para true.

Vamos ao código :

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
if typeof screen.activecontrol is textbox then
If KeyCode > 47 And KeyCode < 123 Then
If Len(Screen.ActiveControl.Text)=(Screen.ActiveControl.MaxLength) then
SendKeys "{TAB}"
End If
End If
end if
End Sub


O primeiro IF verifica se o controle é realmente uma textbox. Observe a utilização da propriedade Screen.ActiveControl que contém o controle que tem o foco no momento.

O 2o IF verifica se a tecla é valida.

Por fim o 3o IF verifica se o MaxLength foi atingido. Se foi, salta para o próximo campo.

Nome :
E-mail:
Comentarios :
 
 
Os Últimos Comentários
Nenhum comentário foi realizado ainda. Seja o primeiro !
Dicas
Dica do Dia
Receba Dicas Por Email
E-mail :  
 


 (help)
Aceito receber informativos do devASPNet, informações de eventos e treinamentos

Veja Quais Informativos Você Receberá

Pesquisar Dicas
Pesquisar Artigos, Dicas e Noticias

Banco de Dados
Algumas Entrevistas
Links Importantes

Búfalo Informática, Treinamento e Consultoria
R. Alvaro Alvim, 37/920 Centro - Cinelândia - Rio de Janeiro Cep: 20031-010
Tel : (21) 2262-1368 (21) 9240-5134 E-mail : Contato@bufaloinfo.com.br