设为首页收藏本站

融智技术学院

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1670|回复: 2

Access播放wav文件

[复制链接]
meng 发表于 2011-9-7 18:09:57 | 显示全部楼层 |阅读模式
       新建一个模块:
    Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
       (ByVal filename As String, ByVal snd_async As Long) As Long
       Function PlaySound(sWavFile As String)
       If apisndPlaySound(sWavFile, 1) = 0 Then
       MsgBox "The Sound Did Not Play!"
       End If
       End Function
       调用方法:playsound("C:\Documents and Settings\Administrator\桌面\文件名.wav")

coolbei88 发表于 2011-12-12 10:52:07 | 显示全部楼层
回不回呢,思考再三,再三思考。笑了一笑。还是不回了吧。
1005196332 发表于 2013-1-11 07:28:34 来自手机 | 显示全部楼层
过客!!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

新突破电商

小黑屋|手机版|Archiver|融智技术学院 ( 京ICP备09018999号  

GMT+8, 2018-5-21 17:13

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表