劉金玉的零基礎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