vba播放声效

方法1.

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub play_wav()

'Call PlaySound("E:\ppt\恭喜喇叭胜利欢呼.wav", 0&, &H1)

'参数lpszName表示声音名，可以是文件名，系统事件名或内存地址，

'参数hModule只用于播放嵌入资源，其它的时候设置为0。

'参数dwFlags是各种标志常量的组合，有下面一些常用的常量：

'SND_SYNC=&H0 同步播放，直到指定声音被播放，函数不会返回，不能跟SND_ASYNC一起使用

'SND_ASYNC=&H1 异步播放，不管声音是否播放，函数立即返回程序，不能同SND_SYNC一起使用

'SND_NODEFAULT=&H2 如果指定声音不存在，如未设置此参数，将发出默认Beep声，设置了这个参数的话将不发出任何声音

End Sub

Sub play_mid()

Dim ReturnValue As Long

ReturnSoundValue = mciExecute("play onestop.mid")

End Sub

Sub play_mp3()

mciSendString "play 倩女幽魂.mp3", 0&, 0, 0