UC知道VB生成后播放音频的问题！高手帮帮我！
来源：百度知道 编辑：UC知道 时间：2024/07/03 03:26:51
我是新手，自己摸索出了一点，用VB做个小程序，因为是送给朋友做生日礼物的，所以里面添加了生日歌，我生成EXE文件后，可以正常播放，我把那个生日歌移走后就不行了，我知道是因为做程序时添加的是链接地址，我应该怎么样才能把那个音频和EXE捆在一起呢？因为我是要把这个程序发给她的电脑上的，到时就又不能播放音频了啊！只有几天时间了,我还要上学，求求各位哥哥姐姐帮帮我啊！还有啊，怎么才能让添加的下拉条有 用啊？就是怎么才能让那个下拉条能把东西拉动啊？帮我解决了我加分
谢谢你，我用的是“工程”——“部件”——“控件”里添加的“WINDOWS MEDIA PLAYER”，然后在窗体上画出一个WMP的播放框，双击这个播放框后是“Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
”
你写的那个代码我该怎么加？加在哪啊？我没学过VB，只是自己摸索的，所以能在详细点吗？
如果你这周三早上和上午有时间的话，能在线帮我吗？谢谢！
谢谢你，我用的是“工程”——“部件”——“控件”里添加的“WINDOWS MEDIA PLAYER”，然后在窗体上画出一个WMP的播放框，双击这个播放框后是“Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
”
你写的那个代码我该怎么加？加在哪啊？我没学过VB，只是自己摸索的，所以能在详细点吗？
如果你这周三早上和上午有时间的话，能在线帮我吗？谢谢！
捆绑……你说到点子上了 我给你一个方法：
假设播放器名称是wmp，调用文件是wmp.media = "xxx"，你的歌曲名字叫“123.wma”
1.将123.wma复制到你的程序所在的目录下（如果还没有编译就是VBP文件目录下）；
2.代码：
Private Sub form_load()
wmp.media = app.path & "\123.wma"
end sub
3.以上代码就是窗体启动时候将播放的目标设置在app.path(程序所在文件夹路径)下的123.wma
然后将你的程序连同媒体文件一起打包成一个rar，这样别人只要打开rar，然后双击你的程序就可以了。
当然也可以创建winrar自解压文件
这个代码你双击窗体加入即可
比如加入好以后所有的代码是这样：
Private Sub form_load()
wmp.media = app.path & "\123.wma"
end sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
即可 因为VB是过程都放在一起的 你只要保证不重叠即可