TROCAR O TAB PELO ENTER NOS FORMS DE CADASTRO
galera fiz essa sequencia, mais dou um play, ao digitar o textbox qbd aperto o ENTER pula para o outro TExtbox porem nao fica nada no Trexbox anterior, é tipo qnd clico apaga automaticamente e pula pro proximo, usando o ENTER, mais nao fica a informaçao no anterior
link que usei, Tutorial: http://weltonruiz.blogspot.com.br/2010/03/tecla-enter-como-tab.html
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Enter
SendKeys.Send([Ô]{Tab}[Ô])
End Select
End Sub
End Class
link que usei, Tutorial: http://weltonruiz.blogspot.com.br/2010/03/tecla-enter-como-tab.html
Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
Select Case e.KeyCode
Case Keys.Enter
SendKeys.Send([Ô]{Tab}[Ô])
End Select
End Sub
End Class
Esse codigo esta correto, alguma outra coisa esta limpando seu textbox, porem, esse não é o ideal para se trabalhar, da forma que vc esta fazendo vai ter que colocar esse codigo em cada textbox do seu formulario, aumentando o trabalho, alem disso não esta eliminando o beep, ligue o falante de seu pc e observe.
O correto é vc colocar isso aqui no evento keypress do seu formulario, assim não precisara colocar em todos os textbox e elimina o beep.
If e.KeyChar = Convert.ToChar(13) Then
e.Handled = True
SendKeys.Send([Ô]{TAB}[Ô])
End If
O correto é vc colocar isso aqui no evento keypress do seu formulario, assim não precisara colocar em todos os textbox e elimina o beep.
If e.KeyChar = Convert.ToChar(13) Then
e.Handled = True
SendKeys.Send([Ô]{TAB}[Ô])
End If
Isto funciona realmente como se fosse o TAB.
No meu form não funciona totalmente como tab.
Somente em parte.
No meu form não funciona totalmente como tab.
Somente em parte.
GLEDSONGABY, uso esta rotina nos formulários do meu projeto:
[ô]Rotina para botão [ô]Enter[ô] funcionar como Tab
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
End If
End Sub
[ô]Fim da rotina
[ô]Rotina para botão [ô]Enter[ô] funcionar como Tab
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
SendKeys [Ô]{TAB}[Ô]
KeyAscii = 0
End If
End Sub
[ô]Fim da rotina
Tópico encerrado , respostas não são mais permitidas