简单问题!关于移动焦点

[ladofwind]

我一个form里有n多 textbox ,怎么让用户第一个textbox输入完后回车就入第二个里面,第二个回车
就入第三个里面................

[tztz520]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
End If
End Sub

[ladofwind]

那要n多次?

[leolan]

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn
SendKeys "{Tab}"
KeyAscii = 0
End If
End Sub

[pweixing]

楼上的方便， form 的 keypreview 属性可以在form的属性里面设置。

[lyxhappy]

leolan(史留香) 这个方便些！