Question

怎么在VB中定时播放音乐文件呢?

想用VB制作一个定时8:00电脑播放闹钟A.mp3
然后定时每一小时播放提醒B.wma
应该怎么做呢?

Answer 1

Step 1可以省略，本来默认就是1
Text1.Text最好改为val(Text1.Text)将值转为数值型

要定时8：00可以用timer控件，每秒获取一次time，if 8：00就执行

Answer 2

VB 工具箱 有一个时间控件 你加入到你的工程, 设置 一分种 运行一次
之后在 事件 加入 时间判断
累计 上次运行时间到现在 为一小时,就
mciSendString "play " & "D:\文档资料\桌面\播放广播\上网太久该休息咯.wma", vbNullString, 0, 0

Answer 3

Private Sub Command1_Click()
Timer1.Enabled = False '关闭timer
Label1.Caption = "停止广播"
End Sub

Private Sub Command2_Click()
Timer1.Interval = 60000 '1000=1秒
Timer1.Enabled = True '开启timer
Label1.Caption = "开始广播"
End Sub
Private Sub Timer1_Timer()
mciSendString "play " & "D:\1.wma", vbNullString, 0, 0
End Sub

按钮1停止2播放,1分钟一次循环到你停止.