excel中用API函数播放声音文件

八月的梦游者

不看不看兄叫我讲一下他发的那个关于声音视频播放的帖子。一直没有时间，拖到现在，

http://www.excelpx.com/forum.php?mod=viewthread&tid=35536

先讲讲PlaySound函数。迟点讲下MCI。
PlaySound API函数可以播放波形声频文件，也就是后缀为WAV的文件，还可以播放系统声音。

PlaySound函数的声明如下：
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
参数lpszName表示声音名，可以是文件名，系统事件名或内存地址，参数hModule只用于播放嵌入资源，其它的时候设置为0。参数dwFlags是各种标志常量的组合，有下面一些常用的常量：
    SND_SYNC=&H0  同步播放，直到指定声音被播放，函数不会返回，不能跟SND_ASYNC一起使用
    SND_ASYNC=&H1  异步播放，不管声音是否播放，函数立即返回程序，不能同SND_SYNC一起使用
    SND_NODEFAULT=&H2 如果指定声音不存在，如未设置此参数，将发出默认Beep声，设置了这个参数的话将不发出任何声音
    SND_LOOP=&H8  循环声音直至下次调用PlaySound函数 
    SND_ALIAS=&H10000 lpszName指向注册表项目，也就是说播放系统声音，不要同SND_RESOURCE或SND_FILENAME一起使用
    SND_FILENAME=&H20000 声频文件的文件名，不要同SND_RESOURCE或SND_ALIAS一起使用
    SND_PURGE = &H40 用来停止当前播放的声音

一般来说最好传递SND_FILENAME,SND_ALIAS或SND_MEMORY标志之一，当然如果不传递任何标志的话，函数自己也会确定lpszName的含义。
如果要停止前面播放的声音（例如使用SND_LOOP），可以设置lpszName参数为空字符串。要注意的是空字符串是vbNullString，而不是""。也可以设置dwFlags为SNR_FURGE来停止当前播放的声音。
也可以使用PlaySound函数播放系统声音（例如XP开机或关机时发出的声音），不需要指定文件名，只要指定用来表示指定系统声音的字符串就可以了。

下面是示范代码：
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ALIAS& = &H10000
Private Const SND_ASYNC& = &H1
Private Const SND_SYNC& = &H0
Private Const SND_NODEFAULT& = &H2
Private Const SND_FILENAME& = &H20000
Private Const SND_LOOP& = &H8
Private Const SND_PURGE& = &H40

Public Const sdDefault = ".Default"
Public Const sdClose = "Close"
Public Const sdEmptyRecycleBin = "EmptyRecycleBin"
Public Const sdMailBeep = "MailBeep"
Public Const sdMaximize = "Maximize"
Public Const sdMenuCommand = "MenuCommand"
Public Const sdMenuPopUp = "MenuPopup"
Public Const sdMinimize = "Minimize"
Public Const sdOpen = "Open"
Public Const sdSystemExclaimation = "SystemExclaimation"
Public Const sdSystemExit = "SystemExit"
Public Const sdSystemHand = "SystemHand"
Public Const sdSystemQuestion = "SystemQuestion"
Public Const sdSystemStart = "SystemStart"
Sub playSystemSound()  '播放系统声音
    Call PlaySound(sdSystemStart, 0&, SND_ALIAS Or SND_ASYNC Or SND_NODEFAULT)
End Sub
Sub PlayWavLoop1()   '使用vbNullString来停止播放
    Call PlaySound(ThisWorkbook.Path & "\trysound.wav", 0&, SND_ASYNC Or SND_LOOP Or SND_NODEFAULT)
    WaitMinorSec 5
    Call PlaySound(vbNullString, 0&, SND_NODEFAULT)
End Sub
Sub PlayWavLoop2()
    Call PlaySound(ThisWorkbook.Path & "\trysound.wav", 0&, SND_ASYNC Or SND_LOOP Or SND_NODEFAULT)
    WaitMinorSec 5
    Call PlaySound("", 0&, SND_PURGE)  '也可以使用SND_PURGE来停止播放
End Sub
Sub PlayWavTest1()  '不会播放声音，异步播放将立即停止当前要播放的声音
    Call PlaySound(ThisWorkbook.Path & "\trysound.wav", 0&, SND_ASYNC Or SND_NODEFAULT)
    Call PlaySound(vbNullString, 0&, SND_NODEFAULT)
End Sub
Sub PlayWavTest2()  '会播放声音，因为""不能用来停止播放的声音
    Call PlaySound(ThisWorkbook.Path & "\trysound.wav", 0&, SND_ASYNC Or SND_NODEFAULT)
    Call PlaySound("", 0&, SND_NODEFAULT)
End Sub
Public Sub WaitMinorSec(ByVal dms As Double)
    Dim sTimer As Date
    sTimer = Timer
    Do
        DoEvents
    Loop While Format((Timer - sTimer), "0.000") < dms
End Sub

 

4bsdcpPm.rar (168.14 KB, 下载次数: 145)

2008-1-27 12:03 上传

点击文件名下载附件
共享---excel中用API函数播放声音文件

uranus1997

[em02]

谢谢楼主，期待后续

[em23][em23]

一剑惊心

多谢分享

不看不看

谢谢八月！！！！！！！！！！！

不看不看

佩服 [em17][em17]

hhzjxss

谢谢了，下载学习中.....

lisachen

excel中用API函数播放声音文件

xdwy81129

收藏，学习。。。。。。。[em01]

zsd5237

学习[em02][em02]

3dmax456789

谢谢分享！学习一下！