Question

VB timer执行过程

Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim aa1 As Long
Dim aa2 As Long
Dim aa3 As Long
Label9.Caption = "已开始自动押注"
'''''''''''''''''''''''''''''''''''''''''''''''''''
hw = FindWindow(vbNullString, "ha40 build11") '获取句柄
Dim rc As RECT
If GetWindowRect(hw, rc) Then
aa = rc.Left
tt = rc.Top
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''
GetCursorPos p
AutoRedraw = True
dc = GetDC(0)
GetCursorPos p
aa1 = GetPixel(dc, aa + 50, tt + 188) '''''''''''''''''''颜色值
aa2 = GetPixel(dc, aa + 650, tt + 650)
aa3 = GetPixel(dc, aa + 500, tt + 400)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If aa1 = 8385 Then
'统计''''''''''''''''''''''''''''''''''''''我想问的是子过程运行执行完才继续timer,还是怎样
End if

End Sub

我想问的是子过程运行完了才继续timer,还是怎样的,同时运行
我想问的是:timer的程序运行到"子过程(统计)"了,是把"子过程(统计)"运行完再运行 timer,还是同时运行,或终止子程序运行 timer?

Answer 1

运行完当前过程后才相应timer事件，如果你需要程序在一个运行时间很长的循环中响应其他事件，可以在循环里面加上 doevents。

追问

请问:如何加 doevents。

追答

这个要根据你代码来加了。下面是个例子。你试试加不加doevents 的区别，可能就可以理解这个是什么意思了。只有理解它的意思后你才能加对地方。

Dim i As Long
Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
For i = 1 To 9999999
'DoEvents
Next
MsgBox "完成"
End Sub

Private Sub Timer1_Timer()
MsgBox i
Timer1.Enabled = False
End Sub

Answer 2

是把"子过程(统计)"运行完再运行 timer
timer运行时间包含子程序运行时间，不受Timer的周期限制，实际比所定的时间间隔长些。