在工程——部件里面找到
应该在最下面
方法使用
windowmediaplayer1.url="e:\mp3\1.mp3"
放到form_load事件里面
拖进一个Windows
Media
Player控件,
设置其Visible属性为False
然后在Form_Load中用Windows
Media
Player加载你的背景音乐播放就OK了.
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
就可以了
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)