USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Forms/MDI)

Título da Dica:  Impedindo o desligamento de NumLock ao tabular usando Enter.
Postada em 22/8/2007 por ChicoVieira            
Olá.
Somente por conta desse problema com a desativação da tecla NumLock, já entrei diversas vezes, neste e noutros foruns, pedindo ajuda. Usei diversas rotinas disponibilizadas, mas sempre sem solução prática.
É que sempre coloco a propriedade KeyPreview do form como true, utilizando a rotina KeyPress, para tabulação entre os campos, usando a tecla Enter e não somente TAB, conforme abaixo:

If KeyAscii = vbKeyReturn then
SendKeys "{TAB}"
KeyAscii = 0
End If

Bastava entrar no form, ou tabular pelo primeiro campo, para desativar NumLock.
Daí, descobri uma solução bem simples, que mantém todo o tempo ativada NumLock.
Basta substituir, na rotina Private Sub <textbox, combo, etc> _KeyPress(KeyAscii As Integer), a linha <SendKeys "{TAB}"> por <Próximo_Campo.SetFocus>, na ordem de tabulação. Resolveu todo o problema. Sem módulo, sem função...
t+
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página