Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongsndPlaySound32 "c:\123.wav", &H1 &H1为可选,程序不用等待sndPlaySound函数返回,在播发音乐过程中 可以做其他比如键盘,鼠标事件响应
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long' 异步播放 Private Const SND_ASYNC = &H1 ' 同步播放 Private Const SND_SYNC = &H0Public Function PlayWAV(WAVFile As String) sndPlaySound WAVFile, SND_ASYNC ' 异步播放音频文件,即未播放完即执行下一步代码 ' 同步播放音频文件时,更改为 SND_SYNC End Function
&H1为可选,程序不用等待sndPlaySound函数返回,在播发音乐过程中
可以做其他比如键盘,鼠标事件响应
Private Const SND_ASYNC = &H1
' 同步播放
Private Const SND_SYNC = &H0Public Function PlayWAV(WAVFile As String)
sndPlaySound WAVFile, SND_ASYNC
' 异步播放音频文件,即未播放完即执行下一步代码
' 同步播放音频文件时,更改为 SND_SYNC
End Function