问专家：在VB中，使用Text控件时，若窗体中有多个Text时，怎样才能作到敲击回车键时焦点会移到下一个Text？一定给分

Question

TabIndex依次排列 然后
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
End If
End Sub

Answer 1

可以建立一个text的控件数组,在text的keypress事件里面,检测是否输入回车键,是则使当前text控件失去焦点,则可使下一个text获得焦点,前提是设置好tabindex啦.

Answer 2

使用sendkeys时容易死机！怎样解决 ？

Answer 3

代码在这里：
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
    Text1(Index + 1).SetFocus
End If
End Sub
我要你给分。

Answer 4

用sendkeys不可能容易死机，除非是你的系统有问题！
不过楼上代码放错了位置
应该放在Form_KeyDown事件里
应该这样：
先排好TextBox的Tab顺序后在Load事件加这一句：Private Sub Form_Load()
                                               Me.KeyPreview = True
                                          End Sub
然后:Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         If KeyCode = vbKeyReturn Then
              SendKeys "{Tab}"
         End If
    End Sub
这样就可以啦，试试吧