vb 要用到时间控件的~~

显示全部楼层 · 2009-9-3 22:35:20

Dim n as integerPrivate Timer1_Timer()n=n+1Label1.caption="已经过了" & n "秒".BeepEnd Sub

千问 · 2009-9-3 22:35:20

Dim n as integerprivate sub form_load()timer1.interval=1000n=0timer1.enable=tureend subPrivate Timer1_Timer()n=n+1Label1.caption="已经过了" & n "秒".BeepEnd Sub

千问 · 2009-9-3 22:35:20

如果你程序不卡死,CPU不上升还好,否则你的timer就会显得很差劲.我在2台电脑上用过某个程序,一个cpu经常高,导致2台计算机时间统计差既然超过20分钟.程序是我用timer来进行统计写出来的.