Question

vb 用playsound播放的背景音乐，只放一次，能不能让它循环播放啊

Answer 1

'/＊声明API及常量＊/
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
'循环播放常量
Private Const SND_LOOP = &H8

'/＊定义通用过程＊/
Private Sub PlayWav(sFileName As String)
Call sndPlaySound(sFileName, SND_LOOP)
End Sub

'/＊调用示例＊/
Private Sub Command1_Click()
PlayWav ("C:\WINDOWS\Media\ding.wav")
End Sub