溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
本篇文章為大家展示了VB語言中如何進行mp3音樂鬧鐘開發，內容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細介紹希望你能有所收獲。
mp3音樂鬧鐘開發
如何播放指定音樂？
VB中播放音樂利用的是window media player
能夠播放mp3、m4a等格式的音頻
如何進行音樂控制？
需要使用代碼控制
界面：
項目列表（這里還有一個音樂文件1.m4a）：
源代碼：
Option ExplicitDim startMusictime As DatePrivate Sub Command1_Click()WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End SubPrivate Sub Command2_Click()If Command2.Caption = "重新設置" ThenOption1.Enabled = TrueOption2.Enabled = TrueOption3.Enabled = TrueCommand2.Caption = "設置音樂定時"Picture1.ClsExit SubEnd IfIf Option1.Value ThenstartMusictime = DateAdd("s", 5 * 60, Now)Picture1.Print startMusictime & "開始播放音樂"ElseIf Option2.Value ThenstartMusictime = DateAdd("s", 10 * 60, Now)Picture1.Print startMusictime & "開始播放音樂"ElseIf Option3.Value ThenstartMusictime = CDate(Text1.Text)Picture1.Print startMusictime & "開始播放音樂"ElseMsgBox "請選擇時間"Exit SubEnd IfOption1.Enabled = FalseOption2.Enabled = FalseOption3.Enabled = FalseCommand2.Caption = "重新設置"End SubPrivate Sub Command3_Click()If Command3.Caption = "暫停" ThenWindowsMediaPlayer1.Controls.pauseCommand3.Caption = "繼續播放"ElseIf Command3.Caption = "繼續播放" ThenWindowsMediaPlayer1.Controls.playCommand3.Caption = "暫停"End IfEnd SubPrivate Sub Option3_Click()Text1.Text = NowEnd SubPrivate Sub Timer1_Timer()Label1.Caption = "現在時間：" & NowIf Now = startMusictime ThenWindowsMediaPlayer1.URL = App.Path & "\1.m4a"End IfEnd Sub
上述內容就是VB語言中如何進行mp3音樂鬧鐘開發，你們學到知識或技能了嗎？如果還想學到更多技能或者豐富自己的知識儲備，歡迎關注億速云行業資訊頻道。
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
