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

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"

ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API clearInputs()-JQuery API fieldSerialize(true)-JQuery API 请问这样的SQL语句怎样写?可以实现吗? 帮我解释以下关于‘gdfocused in state’的问题吧! 请教这两个语句不同在哪里??? 送给zhouqingyuan(浪帆)的积分 -2 大家好啊 小女子刚学C语言 还请各位大哥大姐多多关照? 如何自动给表中的数据顺序分配行号? 在VC下非MFC程序里如何使用一个窗口控件 在mapinfo中计算最佳路径 关于文件读写问题--频繁的!!!100分! DNF怎么爆流星就是流光星损刃,怎么爆啊, DNF我短剑白手流星刺后为什么用不了流星跃?我看别 2000字节等于多少个汉字? 一个汉字多少字节?其它字符呢? 一个汉字等于多少Byte,1KB等于多少Byte呢 1kb的等于多少字节?等于多少个汉字? 两个数的差是4,最大公因数与最小公倍数的积是252 怎样计算家中电器的用电度数?中学时理科学得不好,尤 十月八号天龙座流星雨郑州能看到!几点可以看到 淡水河谷40年累计向中国出口铁矿石1安倍希望早日通过新设“国家安全保障会加拿大总督访问蒙古国李克强同蒙古国总理阿勒坦呼亚格举行会上合组织就打击恐怖主义召开研讨会飞虎主帅崔万军接受本网记者专访展望新乌鲁木齐市百家企业进商场“查”火患著名经济学家接受本网记者专访 三中全新疆博乐市建“红色网吧”助农牧民增收新疆维吾尔自治区佛协召开成立30周年纨绔法师武唐攻略权倾大明蜗居冷宫出墙妃杀出个黎明第六海水浴场旅游兴隆塔旅游孔子故里园旅游石屋洞旅游溱湖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘