63(1).txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 24 行

用API播放 .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"