VB - 播放WAV文件

'/＊声明API及常量＊/
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" ( _
    ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
'同步播放，即在播放 WAV 文件时，播放完毕后将控制权转移到当前应用程序
Private Const SND_SYNC = &H0
'异步播放，即在播放 WAV 文件时，不论当前是否播放完毕，立即将控制权转移到当前应用程序
Private Const SND_ASYNC = &H1

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

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