刘金玉的零基础VB教程080期：mp3音乐闹钟开发
如何播放指定音乐？
VB中播放音乐利用的是window media player
能够播放mp3、m4a等格式的音频
如何进行音乐控制？
需要使用代码控制，详见视频操作。
课堂总结
1、学会使用音乐播放控件
2、综合使用各个控件的功能
3、实战
界面：
项目列表（这里还有一个音乐文件1.m4a）：
源代码：
Option Explicit Dim startMusictime As Date Private Sub Command1_Click() WindowsMediaPlayer1.URL = App.Path & "\1.m4a" End Sub Private Sub Command2_Click() If Command2.Caption = "重新设置" Then Option1.Enabled = True Option2.Enabled = True Option3.Enabled = True Command2.Caption = "设置音乐定时" Picture1.Cls Exit Sub End If If Option1.Value Then startMusictime = DateAdd("s", 5 * 60, Now) Picture1.Print startMusictime & "开始播放音乐" ElseIf Option2.Value Then startMusictime = DateAdd("s", 10 * 60, Now) Picture1.Print startMusictime & "开始播放音乐" ElseIf Option3.Value Then startMusictime = CDate(Text1.Text) Picture1.Print startMusictime & "开始播放音乐" Else MsgBox "请选择时间" Exit Sub End If Option1.Enabled = False Option2.Enabled = False Option3.Enabled = False Command2.Caption = "重新设置" End Sub Private Sub Command3_Click() If Command3.Caption = "暂停" Then WindowsMediaPlayer1.Controls.pause Command3.Caption = "继续播放" ElseIf Command3.Caption = "继续播放" Then WindowsMediaPlayer1.Controls.play Command3.Caption = "暂停" End If End Sub Private Sub Option3_Click() Text1.Text = Now End Sub Private Sub Timer1_Timer() Label1.Caption = "现在时间：" & Now If Now = startMusictime Then WindowsMediaPlayer1.URL = App.Path & "\1.m4a" End If End Sub
