|
|
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 favor 
"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" 
|
|
|
|
|
|
|
|
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
"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"
|
|
|
|
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
|
|
|
|
|
|
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 |
|
|
|
