vb的问题请教

来源：百度知道 编辑：UC知道 时间：2024/06/03 08:55:20
如何模拟键盘向左向右按键连续不断的交换的按！
谢谢

Private Sub Command1_Click()
Text1.Text = "ABCD"
Text1.SetFocus
For i = 1 To 20
SendKeys "{LEFT}"
SendKeys "{Right}"
Next i
End Sub

'上面左右交换各10次,太快看不清,用下面语句

Private Sub Command1_Click()
Dim s
Text1.Text = "ABCD"
Text1.SetFocus
For i = 1 To 20
s = Timer
Do
Loop Until Timer - s > 0.1
SendKeys "{LEFT}"
DoEvents
s = Timer
Do
Loop Until Timer - s > 0.1
SendKeys "{Right}"
DoEvents
Next i
End Sub