停止所有计时器的方法?

passby12 2006-06-20 08:19:04
请问如何停止form1窗体上所有的计时器?
好像是使enabled=false吧?
...全文
440 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2006-06-21
  • 打赏
  • 举报
回复
Dim tm As Control

For Each tm In Me.Controls
If TypeOf tm Is Timer Then tm.Enabled = False
Next
passby12 2006-06-21
  • 打赏
  • 举报
回复
但是怎么取得所有计时器啊?
每个的名字都不一样啊,一个一个写太麻烦啦!
passby12 2006-06-21
  • 打赏
  • 举报
回复
谢谢of123的方法!
rypgood 2006-06-21
  • 打赏
  • 举报
回复
你还可以用控件数组,把所有记时器设置为一个控件数组,然后用for next结束如有7个记时器

for i= 0 to 6
timer(i).enabled=false
next
或者
for i= 0 to 6
timer(i).interval=0
next
imafool 2006-06-21
  • 打赏
  • 举报
回复
先定义一个公共变量:
public timerStop as bollen

再在所有定时器里使用:
if timerStop then
timer?.enabled=false
end if
junki 2006-06-20
  • 打赏
  • 举报
回复
YES.

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧