我想在程序中计算处理过程用了多少时间,所以就用了一个timer控件,哪知才遇到一个莫名其妙的问题.如下:
public timeused as integer '用于计时
private sub form_load()
……
timer1.enabled =false
timer1.interval=1000
end sub
private sub timer1_timer()
timeused =timeused +1
end sub
private sub command1_click()
……
timer1.enabled=false ’计时停止
msgbox "共用时：" & timeused &" 秒"
end sub
private sub command2_click()
timer1.enabled=true ‘开始计时
timeused=0 '初始化
end sub
这段代码照理说没有错呀。而且在新建一个工程来单独测试timer的时候,也能得到正确的结果，只是在结合到我的程序之后，就不行了，每次都得到："共用时 0秒"的结果 ，不知道问题出在哪里。
在程序的其它地方根本就没有用到timer1以及所涉及到的变量！ 作者:
Nothing 时间: 2006-4-2 20:06
这样不好吧，计算程序用时最好别用Timer控件，使用下面的方法
Dim lngTimer As Long
lngTimer = Timer
'程序运算过程
'你和过程
For i = 0 To 100000
Next i
'运算结束
