如果用回车键实现在文本框上按顺序的获得焦点？可避免用光标去点每一个文本框

Question

如果用回车键实现在文本框上按顺序的获得焦点？可避免用光标去点每一个文本框

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text3.SetFocus
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text1.SetFocus
End Sub

Answer 2

Private Sub TxtUrl_KeyPress(KeyAscii As Integer)    If KeyAscii = vbKeyReturn Then
        sendkeys "{tab}" '下一个控件获得焦点
    End If
    
End Sub

Answer 3

'放模块里，只要有KeyPress事件，本模块都可适用'敲Enter键转移焦点
Public Sub FocusNext(KeyCode As Integer)
  If KeyCode = 13 Then
     SendKeys "{tab}"
  End If
  
  If KeyCode = Asc(vbCr) Then
     KeyCode = 0
  End If
End Sub'调用Private Sub TxtUrl_KeyPress(KeyAscii As Integer)
  call FocusNext(KeyAscii )
End Sub

Answer 4

"{tab}" 代表什么，能说详细一下吗？

Answer 5

sendkey "{tab}"的意思就是向键盘缓冲区发去tab键按下的信息
也即是模拟你按下了tab键，这样就能跳到下一个tabindex的控件上了楼上hhjjhjhj(大头)兄因此提醒你要依次设好TabIndex的值，免得跳错了 

Answer 6

知道怎么使用了，还有一个问题，DTPicker控件在KeyPress事件中，日期格式为 2004-08-14,回车后，焦点自动移到2004上，再回车，焦点就不移动了，我想让回车把焦点移到08，然后14，再下一个控件上，这个要怎么实现呢?多谢

Answer 7

把Form的KeyPreview设为真Private Sub Form_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub