关于定时器的问题。向高手们求助。急!在线等待!

podotdian 2003-01-16 09:46:42
我要用VB做个定时器,一共是八分钟的演讲倒计时,剩下一分钟和结束时分别有声音提示,哪位高手帮着指点一下吧!多谢了!
...全文
8 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
chinawzg 2003-01-17
interval的值是以毫秒为单位的,所以1分钟是60000

—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢CSDN◣|使♂        ▲自由保存帖子,浏览,关注检测
┃迎|◥论坛助手◤|用┃        ▲完善的CSDN客户端工具
┗━☆━━◇━━━☆┛       ▲自动添加签名......

让你更快,更爽,更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
回复
fling_boy 2003-01-17
确实 interval=60000
不过private 是窗体私有变量,在窗体内有效的,这个你应该明白吧。
我一般把dim写在过程里用做临时变量。
回复
chinawzg 2003-01-17
DIM lTime as long

private sub form_load()
ltime=8
end sub

private sub tim_timer()
ltime=ltime-1
if ltime=2 then
'play music last one
endif
if ltime=1 then
'play music end
end if
end sub

'把timer的enable设置成true,interval=60000


你用的private 用得不对,这样的话,他不能被其它的函数所引用了
还有 timer的interval的值是60000

—————————————————————————————————
┏━★━━◆━━★━┓
♂欢|◢CSDN◣|使♂        ▲自由保存帖子,浏览,关注检测
┃迎|◥论坛助手◤|用┃        ▲完善的CSDN客户端工具
┗━☆━━◇━━━☆┛       ▲自动添加签名......

让你更快,更爽,更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip
回复
podotdian 2003-01-16
好的,我试试!
回复
fling_boy 2003-01-16
private lTime as long

private sub form_load()
tim.enabled=false
end sub
private sub cmdStart_Click()
ltime=8
tim.enabled=true
end sub
private sub tim_timer()
ltime=ltime-1
if ltime=2 then
'play music last one
endif
if ltime=1 then
'play music end
tim.enabled=false
end if

end sub

'把timer的enable设置成true,interval=60
'这样更好一些.
回复
fling_boy 2003-01-16
private lTime as long

private sub form_load()
ltime=8
end sub

private sub tim_timer()
ltime=ltime-1
if ltime=2 then
'play music last one
endif
if ltime=1 then
'play music end
end if
end sub

'把timer的enable设置成true,interval=60
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告