如何播放 .wav 聲音檔？

利用多媒體的 mciSendString API 函數， 再搭配 mci(multimedia control interface) 指令， 即可播放 .wav 聲音檔， 細節如下:

1. API 的宣告：

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

註：如果以上的宣告放在「一般模組」底下， 應將 Private 保留字去掉。

2. 程式範例：

' 撰寫播放聲音的一副程式
Sub PlaySound(filename)
    Dim cmd As String
    
    Call mciSendString("close MyWav", 0, 0, 0) ' MyWav 這個名稱可依需要來修改
    
    cmd = "open " & filename & " type WAVEAudio alias MyWav"
    Call mciSendString(cmd, 0, 0, 0)
    
    Call mciSendString("play MyWav", 0, 0, 0)
End Sub

' 假設要撥放 "c:\windows\Tada.wav"
PlaySound "c:\windows\Tada.wav"