VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用API播放 .wav 声音文件
发表评论(0)作者:, 平台:, 阅读:19514, 日期:2000-03-12
用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"