本篇文章为大家展示了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 Sub
Private Sub Command2_Click()
If Command2.Caption = "重新设置" Then Option1.Enabled = True Option2.Enabled = True Option3.Enabled = True Command2.Caption = "设置音乐定时" Picture1.Cls Exit SubEnd 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 SubEnd If
Option1.Enabled = FalseOption2.Enabled = FalseOption3.Enabled = FalseCommand2.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 IfEnd Sub
Private Sub Option3_Click()Text1.Text = NowEnd Sub
Private Sub Timer1_Timer()Label1.Caption = "现在时间：" & NowIf Now = startMusictime Then WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End IfEnd Sub
上述内容就是VB语言中如何进行mp3音乐闹钟开发，你们学到知识或技能了吗？如果还想学到更多技能或者丰富自己的知识储备，欢迎关注创新互联行业资讯频道。
名称栏目：VB语言中如何进行mp3音乐闹钟开发
分享链接：
http://cdkjz.cn/article/jjidid.html
