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