如何在一个用vb制作的计算器中设置一个键,按键后播放音乐?
如何在一个用vb制作的计算器中设置一个键,按键后播放音乐?
日期:2013-05-24 10:20:03 人气:1
给你一个思路:
引用 windows media player控件
单击一个按钮时同时执行下面语句
app.path 是获取当前工程的路径
如果希望单击每个按钮都播放的话 可以把下面的语句放到一个函数 或过程当中。
If Dir(App.Path & "\music.mp3") "" Then
'打开音乐文件
MediaPlayer.URL = App.Path & "\music.m