~~~连续播放*.WAV文件该怎样做呢？

Question

'模块：
Public Declare Function sndPlaySound Lib "winmm.dll" Alias _
  "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public sFlags As Long
Public sWav As String     '在当前文件夹中的*.WAV文件路径
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2'窗体：
sWav = App.Path
sFlags = SND_ASYNC Or SND_NODEFAULT
'播放*.WAV
sndPlaySound sWav & "Loding.wav", sFlags
'播放一遍就完了，连续播放*.WAV文件该怎样做呢？

Answer 1

sndPlaySound 还有一个SND_LOOP参数，用于循环播放。
好象是8，你查一下吧。

Answer 2

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongConst SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_LOOP = &H8Private Sub Command1_Click()
   sndPlaySound "c:\windows\media\logoff.wav", SND_ASYNC Or SND_NODEFAULT Or SND_LOOP
End SubPrivate Sub Form_Unload(Cancel As Integer)
sndPlaySound "", SND_NODEFAULT
End Sub这样就行了。