vb背景音乐使用相对路径
如题,我首先把我做好的没有音乐文件的程序板寸工程在“E:\例题”的目录下,然后在打开该工程,音乐文件也放在这里,加入wp控件,代码如下PrivateSubWindowsM...
如题,我首先把我做好的没有音乐文件的程序板寸工程在“E:\例题”的目录下,然后在打开该工程,音乐文件也放在这里,加入wp控件,代码如下
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
End Sub
没提示有语法错误,或者缺少对象,刚才我在属性面板换了一首歌曲使用绝对路径测试可以正常播放,可是用这个相对路径就没声音了,生成的程序也没声音,哪里错了?求解答,我想问问wmp属性面板那些设置标胶重要的,都是怎么设置的,打得好加分,折腾了一天 展开
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
End Sub
没提示有语法错误,或者缺少对象,刚才我在属性面板换了一首歌曲使用绝对路径测试可以正常播放,可是用这个相对路径就没声音了,生成的程序也没声音,哪里错了?求解答,我想问问wmp属性面板那些设置标胶重要的,都是怎么设置的,打得好加分,折腾了一天 展开
1个回答
展开全部
你在下面这个语句设置一个断点,然后程序运行到这里的时候会自动中断:
WindowsMediaPlayer1.URL = App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
然后你在立即窗口输入
?App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
看看显示的是什么,是不是和你这个Mp3文件的实际路径一致。
补充一句:当你的工程是新建的还没有存盘的时候,App.Path实际上是VB开发环境所在的安装路径,并不是你的工程文件所在路径,只有当你的工程文件存盘了,再重新打开的时候,App.Path才是你的工程文件所在的实际路径!
WindowsMediaPlayer1.URL = App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
然后你在立即窗口输入
?App.Path & "\理查德克莱德曼 - 天空之城钢琴曲.mp3"
看看显示的是什么,是不是和你这个Mp3文件的实际路径一致。
补充一句:当你的工程是新建的还没有存盘的时候,App.Path实际上是VB开发环境所在的安装路径,并不是你的工程文件所在路径,只有当你的工程文件存盘了,再重新打开的时候,App.Path才是你的工程文件所在的实际路径!
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询