VB如果播放音乐
我用VB做一个游戏. 用户边玩游戏边听游戏的背景音乐. 我用的API
Private Declare Function sndPlaySound Lib "winmm.dll " Alias "sndPlaySoundA " (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Function sound(n As Integer) As Integer
Dim x As Integer
Select Case n
Case 1
fil = "c:\sound\beep3.wav "
x = sndPlaySound(0, 0)
x = sndPlaySound(music(0).path, &H1 Or &H2)
sound = x
Case 2
fil = "c:\sound\hit8.wav "
x = sndPlaySound(0, 0)
x = sndPlaySound(music(1).path, &H1 Or &H2)
sound = x
Case 3
fil = "c:\sound\net7.wav "
x = sndPlaySound(0, 0)
x = sndPlaySound(music(2).path, &H8 Or &H2)
sound = x
Case Else
sound = 0
End Select
End Function

游戏一开始就调用 l = sound(3)
现在是可以播放音乐.但在播放音乐时候.其他的东西不能动了.只有等音乐播放完成后才能继续下一步动作.能否同时播发音乐同时玩游戏吗? 并且我是定义成循环播放模式.但实际上只播放一遍就完了

[解决办法]
直接用playsound函数
[解决办法]
学习
[解决办法]
那最好用多媒体控件，可以手动添加播放列表
[解决办法]
'循环播放音乐
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT= &H2
Const SND_NOSTOP = &H10

call sndPlaySound(SoundFile, SND_ASYNC Or SND_LOOP)

[解决办法]
sndPlaySound和PlaySound 函数只支持波形文件，如果你只是播放设定好的几首歌那就多用几次这个函数。