发表评论(0)作者：, 平台：, 阅读：19890, 日期：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"