DCM
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2007 12:15 hs
Agradeço a todos q estão me ajudando de coração.... mas...JSFF, dessa forma o ENTER está agindo como TAB, na verdade eu quero ao contrario, ou seja, QUANDO O USUARIO APERTAR TAB, O TAB TERÁ A AÇÃO DO ENTER.  |
|
|
|
|
|
JSFF
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2007 12:25 hs
Certo, amigo. Então, façamos assim: Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Not (KeyAscii = vbKeyTab)) Then Exit Sub
KeyAscii = 0
SendKeys "{ENTER}"
End Sub Teste e nos diga em que resultou. Estamos aí! JSFF |
|
TÓPICO EDITADO
|
|
|
|
DCM
|
GOIÂNIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2007 12:45 hs
JSFF, dentro do textbox não funciona mais no envento Keypress do FORM funciona... Na teoria a rotina abaixo teria q funcionar não é: Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then 'onde 9 é a tecla tab
KeyAscii = 0 Exit sub End if
End Sub teria q no minimo desabilitar a tecla tab não é??????? Mas no Textbox não funciona, JÁ NO FORM FUNCIONA...... NÃO ESTOU ENTENDENDO PQ????? 
"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 13:01 hs
Ácho q não funciona pq o Tab é tecla padrão da tabulação. São todos os textboxs q vc quer fazer esse prcedimento? Pra habilitar o enter nesse caso vc teria q fazer assim: Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 9 Then 'onde 9 é a tecla tab KeyAscii = 13 Exit sub End if
End Sub |
|
|
|
DCM
|
GOIÂNIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/05/2007 13:43 hs
Evertooon, nao funcionou cara!!!! Galera ainda não consegui!!!!
"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 14:16 hs
DCM, meu amigo, Isso agora ficou confuso... Como você quer fazer, não faz sentido, posto que a tecla TAB é a tecla de mudança de foco de um componente de tela para outro. Normalmente, simulamos a tecla ENTER usando a tecla TAB, como já foi sugerido. Agora, fazer o contrário, é meio sem sentido, porque a tecla ENTER não fará essa mudança de foco, a menos, é claro, que você tencione outra "ação" quando do pressionamento dessa tecla. Vejamos uma idéia: Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKeyReturn) Then Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKeyReturn) Then Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If (KeyAscii = vbKeyReturn) Then Text1.SetFocus
End Sub Configurando-se a propriedade TabStop de todos os TextBoxes como False, o código acima diz que somente passará o foco para o próximo componente de tela quando for pressionada a tecla ENTER. Isso é bem trabalhoso, e talvez seja a única solução... JSFF |
|
TÓPICO EDITADO
|
|
|
|
