PROXIMO CAMPO VB6
Boa noite,
Tenho uma tela com o campo Código, Preço, Quantidade, Total.
Quando informo o Código e pressiono enter o cursor vai direto para o campo quantidade.
Preciso que o cursor pare no campo Preço.
Altere o valor do TabIndex, por exemplo:
Código -> Tabindex=0
Preço -> Tabindex=1
Quantidade -> Tabindex=2
Total -> Tabindex=3
Para alterar esta propriedade, você deve usar as propriedades de cada controle. Lembre-se que se você tem Label, com tecla de atalho para cada controle, você deverá colocar o valo de cada Label uma a menos do que o campo a ele atrelado.
Código -> Tabindex=0
Preço -> Tabindex=1
Quantidade -> Tabindex=2
Total -> Tabindex=3
Para alterar esta propriedade, você deve usar as propriedades de cada controle. Lembre-se que se você tem Label, com tecla de atalho para cada controle, você deverá colocar o valo de cada Label uma a menos do que o campo a ele atrelado.
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.Text.SetFocus
End If
End Sub
If KeyAscii = 13 Then
txtPreco.Text.SetFocus
End If
End Sub
retificando:
veja que este código deve ser inserido no evento KeyPress do textbox onde vc preciona o enter
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.SetFocus
End If
End Sub
veja que este código deve ser inserido no evento KeyPress do textbox onde vc preciona o enter
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.SetFocus
End If
End Sub
Alterando o tabindex tenho receio que irá corromper o software.
O sistema está rodando, desconfio que esses tabindex esteja informado em outros locais, será que não existe algo mais fácil ?
O sistema está rodando, desconfio que esses tabindex esteja informado em outros locais, será que não existe algo mais fácil ?
mais facil que isso eu desconheço:
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.SetFocus
KeyAscii = 0
End If
End Sub
tentou isso?
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.SetFocus
KeyAscii = 0
End If
End Sub
tentou isso?
Citação:SUPORTESIS :
Alterando o tabindex tenho receio que irá corromper o software.
O sistema está rodando, desconfio que esses tabindex esteja informado em outros locais, será que não existe algo mais fácil ?
Corromper? De forma alguma.
Mais fácil? Seria o TabIndex... Mas, a dica do colega FABAO resolve seu problema.
Private Sub txtCodigo.Text_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtPreco.SetFocus
KeyAscii = 0
End If
End Sub
Fabão acertou,
Obrigado.
Obrigado.
Tópico encerrado , respostas não são mais permitidas