VB语言中如何进行mp3音乐闹钟开发

发布时间：2022-01-14 19:47:00 阅读：158 作者：柒染栏目：大数据

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

本篇文章为大家展示了VB语言中如何进行mp3音乐闹钟开发，内容简明扼要并且容易理解，绝对能使你眼前一亮，通过这篇文章的详细介绍希望你能有所收获。

mp3音乐闹钟开发

如何播放指定音乐？

VB中播放音乐利用的是window media player

能够播放mp3、m4a等格式的音频

如何进行音乐控制？

需要使用代码控制

界面：

VB语言中如何进行mp3音乐闹钟开发

项目列表（这里还有一个音乐文件1.m4a）：

VB语言中如何进行mp3音乐闹钟开发

源代码：

Option ExplicitDim startMusictime As DatePrivate Sub Command1_Click()WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End SubPrivate Sub Command2_Click()If Command2.Caption = "重新设置" Then    Option1.Enabled = True    Option2.Enabled = True    Option3.Enabled = True    Command2.Caption = "设置音乐定时"    Picture1.Cls    Exit SubEnd IfIf 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 IfOption1.Enabled = FalseOption2.Enabled = FalseOption3.Enabled = FalseCommand2.Caption = "重新设置"End SubPrivate Sub Command3_Click()If Command3.Caption = "暂停" Then    WindowsMediaPlayer1.Controls.pause    Command3.Caption = "继续播放"ElseIf Command3.Caption = "继续播放" Then    WindowsMediaPlayer1.Controls.play    Command3.Caption = "暂停"End IfEnd SubPrivate Sub Option3_Click()Text1.Text = NowEnd SubPrivate Sub Timer1_Timer()Label1.Caption = "现在时间：" & NowIf Now = startMusictime Then    WindowsMediaPlayer1.URL = App.Path & "\1.m4a"End IfEnd Sub

上述内容就是VB语言中如何进行mp3音乐闹钟开发，你们学到知识或技能了吗？如果还想学到更多技能或者丰富自己的知识储备，欢迎关注亿速云行业资讯频道。

亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>

向AI问一下细节

VB语言中如何进行mp3音乐闹钟开发

猜你喜欢

最新资讯

相关推荐

开发者交流群：

相关标签