Question

请问如何用VB弄循环播放的背景音乐？

Answer 1

简单的方法就是引用Mediaplayer控件

wmp.PlayCount = 0 '循环播放
wmp.FileName = App.Path & "\" & "背景音乐文件名"

Answer 2

Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" _ Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) _ As Long
Private Const SND_ASYNC = &H1& 'Public
Private Const SND_MEMORY = &H4& '²¥·ÅÒôÀÖ
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As _ long
Dim bArr() As Byte
Dim rs
Private Sub playmusic_Click()
bArr = LoadResData(201, "WAVE")
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
playmusic.Visible = False
End Sub

'选折“工具－> 资源管理器 －> 添加自定义资源 －> 将自定义改为：
类型： “WAVE”，标识号： 201 ”

Answer 3

最简单是Mediaplayer控件。在你的windows\system32文件夹里找到msdxm.ocx。

Answer 4

你可以彩用API就可以了
不要用循环