Sendkeys

[Asso79]

I have a problem when i press enter i want that execute tab, but not work

Private Sub TextBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyData = Keys.Return Then
            SendKeys.Send("{TAB}")
End If

End Sub

[code]

 

[dynamic_sysop]

Private Sub TextBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

shouldnt it be Handles TextBox7.KeyDown not "1"

 

[JABE]

I tried it and got it working. Just noticed though that Textbox7_KeyDown Handles Textbox1.KeyDown. Is this correct?

 

[Asso79]

Excuse me:

Private Sub TextBox7_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox7.KeyDown

 

[mutant]

Its KeyCode, not KeyData.

 

[rustyd]

Doesn't e.handled = True need to be there also?

If e.KeyChar = Chr(Asc(vbCr)) Then
SendKeys.Send("{Tab}")
e.Handled = True
End If