怎么让vb播放当前文件夹的声音？

想让exe在另一台机子上也可以播放 用Windowsmediaplayer控件的话换台机子url就变了 不能放了 （建个文件夹 把exe 歌曲放进去）如果可以把声音整合到exe文件最好了 是VB

楼主的要放的歌曲不知道是固定的一首歌还是可以选择性的播放，如果是固定的一首，楼上的可以达到你的要求，如是可以像QQ音乐或酷狗一样，可以选择歌曲的话，建议添加一个commondialog控件，再添加一个按钮或菜单,按钮的单击事件如下：

  Dim fn As String
CommonDialog1.Filter = "MP3文件(*.mp3)|*.mp3"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
fn = CommonDialog1.FileName
If Len(fn) > 0 Then
    WindowsMediaPlayer1.URL = fn
End If

使用代码之前请选添加commondialog控件，如有红得疑问，请追问。

Windowsmediaplayer1.url=app.path & "\" & "这里填写你声音的名字(比如a.mp3)"

当然你的声音文件要和生成的exe文件在同一个目录！

把他们合起来！点击拉合就行了！

注意用app.path +" \声音文件名"

这样就是程序所在路径下的了