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

2024-12-15 21:39:44

推荐回答（3个）

回答1：

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

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

回答2：

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

回答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分钟一次循环到你停止.