vb:如果进度条停在20%超过30秒就提示,怎么写代码?

显示全部楼层 · 2013-3-31 12:12:07

具体代码不写了。思路就是。你设置一个状态位S，一个计数器N, 一个提示文本Text1,增加一个定时器Timer1。如果当前进度为20 ，
S 置1，触发定时器T1, 定时器里的程序是每一秒 N=N+1,
如果 N>=30显示文本Text1。如果当前进度不是20 ，S 置0，禁止定时器T1, N=0....

千问 · 2013-3-31 12:12:07

if ProgressBar1.Value = 20 then Timer1.Enabled = True Timer1里面的代码就是Timer1.Interval = 1000If a < 30 Thena = a + 1ElseMsgBox "30秒啦！"a = 0Timer1.Enabled = False...