导航
  • 主页
会员中心
收藏
消息
创作中心

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

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

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

让你更快，更爽，更方便地上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...
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

社区成员

19.7w+

社区内容

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