vb 用时钟控件的问题

来源：百度知道 编辑：UC知道 时间：2024/06/14 20:00:17
vb 用时钟控件给sendkeys 做延时1000毫秒，如果我需要4条sendkeys那么就需要4个时钟控件吗？用一个时钟控件可以解决吗？

画一个Timer1
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
SendKeys "A"
SendKeys "B"
SendKeys "C"
SendKeys "D"
End Sub
上面是是一次执行四条
下面是每秒执行一条
dim i as integer
Private Sub Form_Load()
Timer1.Interval = 1000
i=0
End Sub

Private Sub Timer1_Timer()
i = i + 1
If i = 1 Then SendKeys "A"
If i = 2 Then SendKeys "B"
If i = 3 Then SendKeys "C"
If i = 4 Then SendKeys "D":i=0
End Sub

建Timer1,代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
SendKeys "K"
If i = 4 Then Timer1.Enabled = False
End Sub

写在一个timer事件中就可以了
加上条件判断就行

Dim i As Integer

Private Sub Form_Load()
i = 1
E