说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB用API播放 .wav 声音文件

HTML文档下载 WORD文档下载 PDF文档下载
VB用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"

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘