如何在一个用vb制作的计算器中设置一个键,按键后播放音乐? 25
展开全部
给你一个思路：
引用 windows media player控件
单击一个按钮时同时执行下面语句
app.path 是获取当前工程的路径
如果希望单击每个按钮都播放的话 可以把下面的语句放到一个函数 或过程当中。
If Dir(App.Path & "\music.mp3") <> "" Then
'打开音乐文件
MediaPlayer.URL = App.Path & "\music.mp3"
MediaPlayer.settings.setMode "loop", True '循环播放
MediaPlayer.Controls.play '播放
End If
引用 windows media player控件
单击一个按钮时同时执行下面语句
app.path 是获取当前工程的路径
如果希望单击每个按钮都播放的话 可以把下面的语句放到一个函数 或过程当中。
If Dir(App.Path & "\music.mp3") <> "" Then
'打开音乐文件
MediaPlayer.URL = App.Path & "\music.mp3"
MediaPlayer.settings.setMode "loop", True '循环播放
MediaPlayer.Controls.play '播放
End If
追问
只需要一个键就好。应该怎么编写啊。就在这个图里中Command7，按一下，就播放音乐，再按一下就不播放了。该怎么写这个程序啊。能把你编写的全部复制粘贴在答案里吗？谢谢
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
