百年牛栏山白酒珍品:VB中如何停止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 属性的语法包含下面部分：

部分
描述

object
对象表达式，其值是“应用于”列表中的一个对象。如果 object 被省略，则与活动窗体模块相联系的窗体被认为是 object。

boolean
一个用来指定 object
是否能够对用户产生的事件作出反应的布尔表达式。

设置

boolean 的设置为：

设置
描述

True
（缺省）允许 object 对事件作出反应。

False
阻止 object
对事件作出反应。

说明

Enabled 属性允许在运行时使窗体和控件成为有效或无效。例如，可以使对象成为不能用于应用程序的当前状态的无效状态。也可以使之纯粹用来显示，比如一个提供只读信息的文本框的控件无效。

通过把 Enabled 设置为 False 来使 Timer 控件成为无效，将取消由控件的
Interval 属性所建立的倒计数。

对于 Menu 控件，Enabled 在运行时可正常地读/写。但是对于那些被 Visual Basic
的加载宏遗弃或提供的菜单项来说，Enabled 是只读的，例如在“外接程序”菜单中的“外接程序管理器”命令。

VB中停止timer控件，只要使用下面的代码即可。
示例(停止Timer1控件)：
Timer1.Enabled = False

重新启动：
Timer1.Enabled = True

Dim Times As Long

Private Sub Form_Load()
Times = 0
End Sub

Private Sub Timer1_Timer()
Times = Times + 1
If Times > 10 Then Timer1.Enabled = False
\'能看懂吧
End Sub

关掉程序