Question

VB中如何设置控件可以使用按下ENTER键改变焦点

比如有text1(0).text和text1(1).text如何可以在text1(0).text输入几个字之后按下ENTER键跳到text1(1).text中.
控件一共七个可是当到第7个再按ENTER的时候就提示出错找不到第八个控件.
可以设置数量吗?

Answer 1

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then Text1(Index Xor 1).SetFocus
End Sub

Answer 2

If KeyAscii = 13 Then Text1((Index + 1) Mod 7).SetFocus