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?

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

timer控件有timer事件，就是周期的产生这个事件，比如代码

private sub timer1_timer

label1.caption = format(now(),"hh:mm:ss")

end sub

就是timer按周期的执行这个，平时常用这个代码做时间的显示。

用api做好像很少，但你可以用的循环做

比如用timer函数，可以得到运行的

dim t as single

t=timer

do until not b 'b做外部变量，用来控制免得进入死循环。

if timer-t>2 then

t=timer

call 其他处理过程

endif

doevents

loop