在VB中毎3秒 自动 运行 ENTER 键

只要将需要跳转的文本框获取焦点即可，如：
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyAscii
Case 13------------------'回车键
Textbox1.SetFocus
Case 38-41---------------'上/下/左/右键
Textbox2.SetFocus
Case else
End Select
End Sub

朋友可能是想做一个自动处理应用软件的小程序吧。

下面的代码，你试试看，看能不能帮你个小忙！

'需要控件：timer1
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub

Private Sub Form_Load()
Timer1.Interval = 3000 '每三秒执行按键
End Sub

Private Sub Timer1_Timer()
Call keybd_event(vbEnter, 0, 0, 0) '按下“Enter”
Call keybd_event(vbEnter, 0, 2, 0) '弹起“Enter”
Call keybd_event(40, 0, 0, 0) '按下“↓”
Call keybd_event(40, 0, 2, 0) '