本篇文章為大家展示了VB語言中如何進(jìn)行mp3音樂鬧鐘開發(fā)，內(nèi)容簡明扼要并且容易理解，絕對能使你眼前一亮，通過這篇文章的詳細(xì)介紹希望你能有所收獲。
創(chuàng)新互聯(lián)是由多位在大型網(wǎng)絡(luò)公司、廣告設(shè)計公司的優(yōu)秀設(shè)計人員和策劃人員組成的一個具有豐富經(jīng)驗的團(tuán)隊，其中包括網(wǎng)站策劃、網(wǎng)頁美工、網(wǎng)站程序員、網(wǎng)頁設(shè)計師、平面廣告設(shè)計師、網(wǎng)絡(luò)營銷人員及形象策劃。承接：成都網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)站改版、網(wǎng)頁設(shè)計制作、網(wǎng)站建設(shè)與維護(hù)、網(wǎng)絡(luò)推廣、數(shù)據(jù)庫開發(fā),以高性價比制作企業(yè)網(wǎng)站、行業(yè)門戶平臺等全方位的服務(wù)。
mp3音樂鬧鐘開發(fā)
如何播放指定音樂？
VB中播放音樂利用的是window media player
能夠播放mp3、m4a等格式的音頻
如何進(jìn)行音樂控制？
需要使用代碼控制
界面：
項目列表（這里還有一個音樂文件1.m4a）：
源代碼：
Option ExplicitDim startMusictime As DatePrivate Sub Command1_Click()WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End SubPrivate Sub Command2_Click()If Command2.Caption = "重新設(shè)置" ThenOption1.Enabled = TrueOption2.Enabled = TrueOption3.Enabled = TrueCommand2.Caption = "設(shè)置音樂定時"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 = "重新設(shè)置"End SubPrivate Sub Command3_Click()If Command3.Caption = "暫停" ThenWindowsMediaPlayer1.Controls.pauseCommand3.Caption = "繼續(xù)播放"ElseIf Command3.Caption = "繼續(xù)播放" ThenWindowsMediaPlayer1.Controls.playCommand3.Caption = "暫停"End IfEnd SubPrivate Sub Option3_Click()Text1.Text = NowEnd SubPrivate Sub Timer1_Timer()Label1.Caption = "現(xiàn)在時間：" & NowIf Now = startMusictime ThenWindowsMediaPlayer1.URL = App.Path & "\1.m4a"End IfEnd Sub
上述內(nèi)容就是VB語言中如何進(jìn)行mp3音樂鬧鐘開發(fā)，你們學(xué)到知識或技能了嗎？如果還想學(xué)到更多技能或者豐富自己的知識儲備，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道。
重慶分公司
重慶分公司
