在VB里怎么加背景音乐

1、直接进入VB的相关窗口，选择标准EXE打开。

2、这个时候d出新的对话框，需要找到Windows Media Player并点击确定。

3、下一步如果没问题，就根据实际情况设置其中的参数。

4、在文件那里，选择保存工程。

5、等完成上述 *** 作以后，继续点击确定。

6、这样一来会实现VB按照图示播放背景音乐，即可达到目的了。

1、vb6中有一个多媒体播放控件，Multimedia MCI(MMControl)，利用这个控件能够实现媒体文件的播放，暂停，下一首，上一首等功能。但该控件播放的媒体文件格式只能是 (*.MDI,*.Wav,*.Avi)

所以不知道你用的媒体文件格式？

2、VB6中也可以增加Windows Media Player 控件来实现音乐的播放。

循环的话就是播放完了以后再开始播放下一个就行了

在timer里判断当前已播放的时间是否和总的时间相同，是的话就把下一首歌的路径载入，然后播放

随机的话就是取个随机数，再播放

下面这些程序是我做的播放器里面的

If WindowsMediaPlayer1.playState = 1 And WindowsMediaPlayer1.Controls.currentPosition = 0 And tingzhi = 0 Then

Call bfmod '正常播放完成

End If

Private Sub bfmod() '在歌曲播放结束时根据播放模式决定如何继续播放（私有函数）

If qwedxz = 0 Then

dxz = dxz + 1'播放曲目统计

Call qqq'播放歌曲曲目统计

End If

qwedxz = 0

Form1.Caption = "DXZ Player (已播放" &dxz &"首歌曲)"

Call saveshezhi'保存设置

If bfms <>3 Then songname = ""

If bfms = 2 And nn = n Then Exit Sub'“全部”模式时运行到最后一首歌则停止

If bfms = 4 And nn = n Then n = 0 '“全部循环”播放到最后返回第一首

If bfms = 2 Or bfms = 4 Then

n = n + 1

songname = bflbdz(n)

Call playsong

End If

If bfms = 3 Then WindowsMediaPlayer1.Controls.play'单曲循环时继续播放当前歌曲

If bfms = 5 Then'随机循环实现

n = Int(Rnd * nn) + 1

songname = bflbdz(n)

Call playsong

End If

If n >0 Then List1.ListIndex = n - 1

End Sub

列表的话我没用它默认的，我自己用一个字符串组作为列表的。复制去Google翻译翻译结果

---