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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  COMO DESABILITAR A TECLA "TAB" ???????????????????
DCM
GOIÂNIA
GO - BRASIL
Postada em 18/05/2007 11:34 hs            
Blz Galera?
 
Alguem sabe como DESABILITAR a tecla TAB??? E no lugar da TAB ativar o ENTER???
Explico: em um Textbox o usuario aperta TAB mais não vai funcionar, no caso so funcionará pra esta ação a tecla ENTER....
 
Por favorEmoções

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" Emoções
     
Evertooon
PARANAGUÁ
PR - BRASIL
ENUNCIADA !
Postada em 18/05/2007 11:40 hs         
Pode fazer assim:
 
Coloca um evento KeyPress no Form:
 
Private Sub Form_KeyPress(KeyAscii As Integer)
'Primeiro para eliminar o evento do TAB
If KeyAscii = 9 Then '9 é a tecla ASCII do TAB
    KeyAscii = 0
End If
'Depois para ativar o Enter, enviando pelo SendKeys o evento TAB
If KeyAscii = 13 Then '13 é a tecla ASCII do Enter
    SendKeys "{Tab}"
    KeyAscii = 0
End If
End Sub
 
Não esqueça de ativar nas propriedades do Form, o KeyPreview para True.
 
T+
   
DCM
GOIÂNIA
GO - BRASIL
ENUNCIADA !
Postada em 18/05/2007 11:50 hs            
vou tentar....

"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" Emoções
   
JSFF
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/05/2007 11:52 hs            
Bom dia, amigos.
 
Bom, minha sugestão para o problema é a seguinte:
 
1. Criar uma sub-rotina genérica:
 
Public Sub myKeyEnter(iKeyAscii As Integer)
         If (Not (iKeyAscii = vbKeyReturn)) Then Exit Sub
         iKeyAscii = 0
        SendKeys "{TAB}"
End Sub
 
2. E utilizá-la assim:
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
        myKeyEnter KeyAscii
End Sub
...
Private Sub TextN_KeyPress(KeyAscii As Integer)
        myKeyEnter KeyAscii
End Sub
 
 
JSFF
TÓPICO EDITADO
 
Evertooon
PARANAGUÁ
PR - BRASIL
ENUNCIADA !
Postada em 18/05/2007 12:03 hs         
É, dessa forma vc desabilitaria somente no campo desejado...
Legal!
   
JSFF
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 18/05/2007 12:03 hs            
Correção:
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
        If (Not (KeyAscii = vbKeyReturn)) Then Exit Sub
        KeyAscii = 0
        SendKeys "{TAB}" 
End Sub
...
Private Sub TextN_KeyPress(KeyAscii As Integer)
        If (Not (KeyAscii = vbKeyReturn)) Then Exit Sub
        KeyAscii = 0
        SendKeys "{TAB}" 
End Sub
 
Deve ser assim, porque o uso da sub-rotina genérica não convém aqui. 
 
 
JSFF
 
   
Página(s): 1/3      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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