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

[podotdian]

我要用VB做个定时器，一共是八分钟的演讲倒计时，剩下一分钟和结束时分别有声音提示，哪位高手帮着指点一下吧！多谢了！

[fling_boy]

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

[fling_boy]

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
'这样更好一些.

[podotdian]

好的，我试试！

[chinawzg]

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

[fling_boy]

确实 interval=60000
不过private 是窗体私有变量，在窗体内有效的，这个你应该明白吧。
我一般把dim写在过程里用做临时变量。

[chinawzg]

interval的值是以毫秒为单位的，所以1分钟是60000

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

让你更快，更爽，更方便地上CSDN...
http://www.csdn.net/expert/topic/573/573604.xml
http://www.chinaok.net/csdn/csdn.zip