Visual Basic Enter como TAB - VB6

[james.moreno]

Olá pessoal, alguém sabe me dizer como posso fazer com que quando eu dê ENTER no VB6 a seleção vá para o próximo campo. É como usar o ENTER como TAB. Agradeço contribuições dos colegas programadores.

[AlyssonMaster]

Tem um tempo que não mexo com VB e também to sem o Studio aqui, mas é mais ou menos assim:

Para verificar a tecla ENTER pressionada é usado o código dela em ASCII que é 13.

TextBox1.Keypress.Char("13")

Para passar para a TextBox2:

TextBox2.Focus

Para implementar isso dentro do código, pode ser colocado dentro de um Private para a função KeyPress, assim:

Private Sub TextBox1_KeyPress (by Val ... não lembro dessa parte ... ) Handles TextBox1.KeyPress.Char("13")

TextBox2.Focus

End Sub

Assim quando a tecla enter fosse pressionada na TextBox1 o foco é passado para a TextBox2

Tenho quase certeza que o código está todo errado pois não tenho o Studio e tenho pouca prática com VB, mas por aí dá pra você ver como funciona mais ou menos. Pesquise na internet sobre o que te passei.

Até

[Ruteglan Lima Alves]

Private Sub Form_KeyPress(KeyAscii As Integer)
On Error Resume Next 'por via das dúvidas
   
    If KeyAscii = 13 Then DarTAB
    If KeyAscii = 39 Or KeyAscii = 34 Then KeyAscii = 0
 
End Sub

 

so usa este codigo no fomulario