کلید enterبه جای کلیدtab

[fp-1388]

سلام
درvb وقتی بخوایم کلید enterکار کلیدtabرا انجام دهد چیکار کنیم؟

[parselearn]

Private Sub EnToTab(KeyCode As Integer)
If KeyCode = 13 Then
SendKeys ("{TAB}")
End If
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
EnToTab KeyCode
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
EnToTab KeyCode
End Sub

[torshizi]

در پراپرتی فرم keypreview=true قرار دهید و کد زیر را استفاده کنید به همین راحتیPrivate Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys (Chr(9))