Question

timer控件到时间不执行（VB）

1、将Enabled设置为True，间隔设置为20
2、运行，第一次触发在约3秒之后（在触发Timer_TImer事件前，程序空闲，没有代码执行，且DeBug：Enabled = True；间隔 = 20）
3、第二次、第三次触发都在20毫秒后
4、求解

Answer 1

timer定时器，本来就是非精确的，且最小触发时间不是1毫秒，也做不到20毫秒一触发。

它的最小触发时间大概是10多毫秒。有人说是55毫秒，但可以做以下测试（新建一个程序测试）

设置触发间隔为20毫秒：

Private Sub Timer1_Timer()
Static n As Integer
Print Timer
n = n + 1
If n > 15 Then Timer1.Enabled = False
End Sub

 1427.281 
 1427.328 
 1427.359 
 1427.39 
 1427.421 
 1427.453 
 1427.484 
 1427.515 
 1427.546 
 1427.578 
 1427.609 
 1427.64 
 1427.671 
 1427.703 
 1427.734 
 1427.765

因为事件内包含了简单的计算和打印会占用一定的时间，平均一下大概是30多毫秒。

你要想准确，可以用多媒体定时器，百度一下多媒体定时器（API:GetTickCount），然后试试。

追问

1、第一次触发在约3秒之后

2、触发前似乎没有程序段被执行（F8单步调试）

Answer 2

private sub Form_Load()
Timer1.Enabled = True
Timer1.interval = 20
End sub
private Sub Timer1_Timer()
Static i as integer
on error goto Erri '整数溢出侦错
i = i +1
if i => 150 then '20*150 =3000毫秒之后开始触发有效动作代码
if i <= 152 then
debug.print "触发第 " & Cstr(i - 149) & " 次 " & now
end if
end if
exit Sub
Erri:
err.clear ' 排除溢出错误
i = 0 ' 重置
Resume '跳回原错误点继续运行
End sub

Answer 3

间隔=1000，代表每经过1秒钟发生1次。如果这个没错，可能是Timer处于嵌套中。

追问

没有代码执行。。