VB中如何停止timer控件
来源:百度知道 编辑:UC知道 时间:2024/05/15 10:51:54
本人请教各位高手,VB程序中,如何可以停止timer控件,就是说让timer控件中的代码只执行一遍,或N遍,就自动跳出timer,不在执行timer
本人初学者,请高手详细讲解一下,谢谢
本人初学者,请高手详细讲解一下,谢谢
'首先要定义一个全局变量来控制执行Timer的次数
dim c as Integer
'在Timer1开始运行的地方给c赋初始值,假设是窗体载入的时候就执行Timer
Private Sub Form_Load()
c = 0 ’给次数赋值为0次
Timer1.Enable=True '开启计时器可用
Timer1.Interval=1000 '这时候计时器开始运行,每1秒执行一次
End Sub
Private Sub Timer1_Timer()
...
'执行主要的函数功能过程(假设是打印当前次数)
print c
...
'运行完之后给次数变量加1
c=c+1
'开始判断是否次数是否满足你的次数要求(假设运行了5次之后不再运行)
if c>=5 then
Timer1.Enable=False '计时器不可用,下次就不会再继续运行了
End if
End Sub
这里有个倒计时的程序,你可以参考一下它的原理
http://jingyan.baidu.com/article/b87fe19e95fd92521935685b.html
timer.Enabled=false
Enabled 属性
返回或设置一个值,该值用来确定一个窗体或控件是否能够对用户产生的事件作出反应。
语法
object.Enabled [= boolean]
Enabled 属性的语法包含下面部分:
部分
描述
obj