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

视频讲解 https://v.qq.com/x/page/j0942xw12wy.html

文字讲解

刘金玉的零基础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 ---来自腾讯云社区的---刘金玉编程