Passar para outra text.Box teclando ENTER

[Jucla]

Tenho um formulário que tem 2 Text.box, e eu queria que ao apertar ENTER, o cursor passassa para a outra.

o Codigo é o seguinte:

Private Sub Form_KeyPress(KeyAscii As Integer)
    
     If KeyAscii = vbKeyReturn Then
        
           SendKeys "{Tab}"
           
           KeyAscii = 0
    
     End If

End Sub

OBS: tenho esse mesmo código em outro formulário (esse tem mais TEXT.box), e está funcionao normalmente.

[Danleonhart]

Olá Jucla...

Não é no evento KeyPress...mas nos eventos KeyDown ou KeyUp:

Usando a estrutura Select Case:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
   Case vbKeyReturn
       Text2.SetFocus
End Select
End Sub

Com If Then:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
       Text2.SetFocus
End If
End Sub

Ambos funcionam.

[Jucla]

Obrigado danleonhart, realmente funcionou direitinho...Então se eu tiver mais de 2 text.box no form, é só adicionar comandos Case no código?

Mas ainda fico na dúvida porque nesse mesmo projeto, tenho o código no KeyPress em outro formulário e funciona normalmente...

Mas mesmo assim valeu pela ajuda.

[Danleonhart]

Obrigado danleonhart, realmente funcionou direitinho...Então se eu tiver mais de 2 text.box no form, é só adicionar comandos Case no código?

Para cada TextBox você terá de colocar o código no KeyDown...e definir para qual componente irá o foco.

Mas ainda fico na dúvida porque nesse mesmo projeto, tenho o código no KeyPress em outro formulário e funciona normalmente...

Nunca havia feito no KeyPress...mas funciona também:

Private Sub Text1_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
   Case 13: Text2.SetFocus
 End Select
End Sub

OBS:

13 = vbKeyReturn

Uma constante do VB-6

se quiser ver mais constantes faça o seguinte:

- Com o VB aberto clique em "F2";

- Depois digite: KeyCodeConstants

- Depois aperte "ENTER"...

O Object Browser é de grande ajuda para entender a funcionalidade de diversas bibliotecas e componentes da IDE.

Edited April 1, 2012 by Danleonhart

[aleprans]

Boa noite, alguém pode me ajudar? O que esta errado nesse código:

Private Sub Form_KeyPress(KeyAscii As Integer)
    
    If KeyAscii = 13 Then
       SendKeys "{Tab}"
       KeyAscii = 0
       
    End If
    
End Sub
 

Da erro de run-time error '70'

permission denied 

Valeu.

[Danleonhart]

Olá...

Essa informação é insuficiente...você quer realmente usar o evento "KeyPress" do formulário ?! Poderia dizer qual a finalidade ?!

[aleprans]

A finalidade é usar o enter no lugar do Tab para navegar entre os campos.

Edited November 14, 2016 by aleprans
erro de digitação