刘金玉的零基础VB教程080期：mp3音乐闹钟开发

• 2020 年 4 月 7 日
• 筆記

文字讲解

刘金玉的零基础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