Humberto
|
PATOS DE MINAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2004 20:27 hs
Olá Pessoal... Como fazer para o cursor voltar para o componente anterior ao invés de ir para o próximo quando aperto ENTER? GRATO!!! T+ |
|
|
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2004 23:04 hs
dá para fazer isso sim, mas vai dar um trabalho enorme
coloque o codigo abaixo em cada evento keydown do text
if keycode=vbkeyreturn then txtAnterior.SetFocus
Roberto
|
|
|
|
Blade
|
IPATINGA
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2004 23:21 hs
Olá Humberto, se eu não me engano eu peguei estes códigos aquí neste site. Obs: A opção do formulário Keypreview dever estar como true (Keypreview=true) Private Sub Form_KeyPress(KeyAscii As Integer) 'Função para fazer o "Enter" VOLTAR alcontrário do "TAB"
If KeyAscii = vbKeyEscape Then
KeyAscii = 0: SendKeys "{tab}"
End If End Sub Espero ter ajudado, Walace Dias |
|
|
|
|
|
Postada em 27/05/2004 01:31 hs
Blade acho que vc não entendeu a pergunta do Humberto Roberto |
|
|
|
Tekki
|
UBERLÂNDIA
MG - BRASIL
|
|
Postada em 27/05/2004 13:02 hs
Humberto, veja se é isto o que você quer: Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "+{TAB}"
End If
End Sub |
|
TÓPICO EDITADO
|
|
|
|
HadesLgc
|
PINDORAMA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/05/2004 14:00 hs
eu costumo usar assim o enter pra ir pra frente e o Esc pra voltar if keyascii = vbkeyreturn then sendkeys "{tab}" elseif keyascii = vbkeyescape sendkeys "+{tab}" end if |
|
|
|
