Question

怎么在VB中添加背景音乐

我做了一个下雪的程序现在想添加背景音乐，添加了Mediaplayer控件了，代码是这个
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.stop
WindowsMediaPlayer1.Controls.pause
End Sub
我不知道为什么运行之后没有声音，只有定位，静音和音量调节按钮可以按，但是也是什么反应也没有，希望高手指点！
（不是非得把音乐放到VB那个文件夹里吧？我放了效果是一样的）

Answer 1

WindowsMediaPlayer1.Controls.play'播放
WindowsMediaPlayer1.Controls.stop'停止
WindowsMediaPlayer1.Controls.pause'暂停
你这样连续让它播放\停止\暂停,它最后就是停止了,当然没有声音啦
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
WindowsMediaPlayer1.URL = "e:\wj\j.mp3"
WindowsMediaPlayer1.Controls.play
End Sub
就可以了

Answer 2

是用windowmediaplayer空间 在工程——部件里面找到 应该在最下面
方法使用
windowmediaplayer1.url="e:\mp3\1.mp3"
放到form_load事件里面 拖进一个Windows Media Player控件,
设置其Visible属性为False
然后在Form_Load中用Windows Media Player加载你的背景音乐播放就OK了.

Answer 3

同上，别的代码不需要