vb中如何添加背景音乐？

来源：百度知道 编辑：UC知道 时间：2024/07/07 06:40:06
我是个新手，做了个管理系统，想在界面上添加背景音乐，mp3格式的，就是窗口一点开音乐就可以循环播放，请问具体该怎么做？我要具体的方案哦，谢谢啦~~

'下面仅以播放背景音乐为例
'在窗体代码中复制以下代码，并改变歌曲名称，运行后就会听到美妙的音乐了。
'====窗体代码部分====
Option Explicit
Dim a

Private Sub Form_Load()
Set a = CreateObject("wmplayer.ocx")
a.url = "E:\mp3\花好月圆.mp3" '你可在此改成你的乐曲
a.settings.playCount = 99999
End Sub

Private Sub Form_Unload(Cancel As Integer)
a.Controls.stop
a.Close
Set a = Nothing
End Sub

Private Sub Form_Load()
Me.WindowsMediaPlayer1.URL = App.Path & "\背景.wav"
Me.WindowsMediaPlayer1.settings.Volume = 5'这里是设置音量
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then
Me.WindowsMediaPlayer1.Controls.play
End If
End Sub