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

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"

自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 VB中随机图像的魅力 VB中位图旋转的实现 Visual Basic设计图形浏览器示例 捕捉屏幕图象 -VB资料 放置“透明”的图片-VB资料 分割图像的方法-VB资料 如何将整个画面暗下来,如同关机前一般-VB资料 VB获取桌面图象 简单介绍透明位图的实现方法 -VB资料 将图片「非重叠显示」填满整个表格视窗 -VB资料 将英文字母及阿拉伯数字旋转任意角度 -VB资料 将真彩色图像变为256色灰度(BIG5码):-VB资料 VB利用Image控件实现图形浏览程序 利用VB捕捉并保存屏幕图象 切割一个Container中的图片 -VB资料 VB如何改变桌面的图片? VB如何实现“百叶窗”的图形特效? VB如何实现霓虹灯效果 VB如何在VB中用API获得EXE文件图标并显示在Picture控件里 VB如何在VB中直接显示无格式256灰度级图像 谁有系统开发的功能定义(function spec.)样例? SB其实是外来语 数据表里的数据排序问题。(ADO) 谁知道怎样进入 WWW.MICROSOFT.COM 的原代码区? 我想学vc++请问我该看什么书? 读密码(*****)的软件有哪些?(答对就有分) 如何重复使用自己以前开发的库文件*.pbl文件? 关于用DELPHI6的WebSnap开发网络应用程序的讨论 为什么在线程里,在以CString做为返回值的函数总出错? 哪位大哥能指点迷津? 采用中文变量名或者过程名或者函数名有没有什么副作用? 怎么用udp协议发送信息? bdk1.1 WinXp和Win2000对等网的连接 前两年做的软件,竟然出现在D版盘里面,觉得跟高兴。 如何将实数转化为字符串? 求助!!有谁用过LINUX下的UCD-SNMP? jBuilder6 for windows的注册码 winsocket的简单问题 [Linker Fatal Error]Fatal:Expected a file name:这个错误怎么解决? 大家都来看看怎么实现这个效果。。。 关于cscrollview 我下载了delphi6的补丁2,还未安装是否要先装补丁1。要如何?? 数字签证的问题 关于cscrollview 使用专利技术是什么概念啊?高手指点。 vb6.0中如何将dbgrid里的内容添加到数据库里? 谁能告诉我哪里有第三方控件下载吗?高分相送 游戏编程是否要用到物理知识? 数据库启动时出现错误"Cannot mount database in exclusive mode" 也许这个问题很无聊! 这个连接有实时错误为什么呢 请高手指点 我想用VB+SQL 做一个数据库 什么样的delphi能进深圳?? HELP 找几个做过行业应用软件测试的朋友兼职~~ 寻觅UNIX高手 一个专科生想考研,大家出出主义,有没有 过来人? 哎,VC版两个月前的问题,三次回复都是自己,那位水友版忙gz一下,100分专家分到手>>> water_j(jxp),有事? 请问如何在线程中启动对话框? 关于Java的疑惑?? 为什么在打印预览时,一点一行数据就看不见了啊? 推荐一本好书《.NET框架精髓》 vxworks中的定时器 关与表更新的问题! 在线急等! 推荐一本好书《.NET框架精髓》 如何编辑和得到属性文件? 请问大家都用什么操作系统?!?急!!经常用winme的进来! 求历年高程考试试题 紧急求救! BCB6光盘中有没有压缩控件?如有,谁寄给我送分100。 有一条长1800米的公路,在公路的一侧从头到尾每隔6米栽一棵树,一共需要准备多少棵树苗? 一篇科技小论文600字关于科技的论文 看不清楚问我用方程解 关于家庭热闹的作文 写《过年》的作文. = 为什么白酒质量的表达式 m=πmd²h/4v 中有个4····小翔的爸爸在某酒厂上班,酒场内有一个巨大的圆柱形酒池.周末爸爸给小翔布置了一个实践任务:如果在酒池内装该厂生产的52度白酒 某班同学小明身高约1.6m,小强身高约1.60m,小亮身高约1.600m,这里的近似数1.6,1.60,1.600有无区别? 5397除以一个质数,所得的余数是15,这个质数是多少?求把算式列出来. 翻译成英语.你所浪费的今天是昨天死去的人所向往的明天 如果用边长30厘米的方砖给一个房间铺地,需要800块.如果改用边长50厘米的方砖铺地,需多少块?用比例解 用一个质数去除5397,得到的余数是15.这个质数是什么?是“除”不是“除以” 一个数除以100,商是10,余数是整数,这个数最大是多少?(应该不难吧~有木有人知道答案) 小明所在班级的学生平均身高是1.4m,小鹏所在班级的学生的平均身高为1.5m,小鹏一定比小明高吗?你能说出其道理吗? 我荒废的今日,正是昨日殒身之人祈求的明日 急求这句话的读后感我荒废的今日,正是昨日殒身之人祈求的明日.急求我对这句话的感受 根据这句名言写一篇800字的读后感 有家真好作文100字,20字开头,80字文章关于童年作文100字,20字开头,80字文章关于读书作文100字,20字开头,80字文章关于动物作文100字,20字开头,80字文章 植树问题的“只有一端种树是什么意思?” 我荒废的今日,正是昨日殒身之人祈求的明日.我的成功来自马上行动!我的未来不是梦!自信乐观一定会成功翻译成英文 怎么么翻译啊?要标准的 新海实验中学80年校庆作文800字左右急用! 作文 关于热闹、有趣场景的 5397除以一个质数,所的的余数是十五,这个质数是多少 我很幼稚,我应该看什么书或者是什么电影呢 能让我的情商提高点.我现在已经25了希望能对自己有帮助的我很幼稚,我应该看什么书或者电影呢 能让我的情商提高点.我现在已经25了希望能对自 用边长是20厘米的方砖铺一间房间要1500块,若改用边长50厘米的方砖来铺,需要几块?(比例解) 205除以一个质数,余数为15,这个质数为( ) 已陪伴为题的作文的开头,不超过80字! 一房间用面积16平方分米的方砖铺底需要540块,如果改用边长是6分米的方砖需要多少块?用比例解 用方砖给教室铺地.用边长为4分米的方砖,需要500块,改用边长为8分米的来铺,要用多少块?(用比例解) 求以勇气为题目的作文开头,30到80字,不要复制的啊! 一间房子要用地砖铺底,用边长3dm的方砖需要96块.如果改用边长为2dm的方砖,需要多少块?(解比例) 用方砖给一间教室铺地.如果用边长为4分米的方砖,需500块,如果改用边长为8分米的方砖来铺,需要多少块用比例解客车和货车同时从甲乙两地的中点向反方向行驶,5小时后,客车到达甲地,货车离 因为陈翔我懂得了坚强(作文、500字) 急.明天就要交差了.若4x-3y-6z=0,x+2y-7z=0(xyz不等于0),则x:y:z=( ) 用方砖给一间教室铺地.如果用边长4分米的方砖铺,需要500块.如果改用 边长5分米的方砖来铺,需方砖多少块 我是男生,今年16岁了,身高170cm,还能长多少很郁闷啊 我爱我家手抄报要陪什么名人作家的文章题目是我爱我家,想写一篇名作家的文章,文章题目什么都可以,只要是关于我爱我家就行! 525除以314= 读书手抄报资料内容不要读书名言,诗句.少一点,35个字左右 AB是圆O的直径,M是劣弧AC的中点,玄AC与BM交D,角ABC=2角A,证AD=DC 怎样理解这句话“我荒废的今日,正式昨天殒身之人祈求的明日. cos20/(cos10+sin10)+sin10 已知AB是圆O的直径,M为劣弧AC的中点,弦AC交MB于D,且角ABC=2角A,求证,AD=2DC 记得一次有意义的事作文350字 最先为昌黎韩愈所知 翻译 (-354)×(-3)+(-354)×(-2)怎么算 小红和小军住在一栋楼的同一单元,小红住在5楼,小军住在3楼.小红每天回家要走72级台阶,小军回家要走多少 房间.用边长5分米的方砖铺地,需128块,如过改成边长8分米的方砖铺地,需几块?比例解 请帮我算算343+345+347+349+351=( )x( ) 谢谢!顺便说说怎么算的?谢谢! 一篇作文《一件有意义的事》350字 韩愈故乡所在的昌黎是不是河北昌黎 有关科学小实验的这篇作文怎么写?马上要 记一件感情亲身经历经历作文350字 一间房间,用边长5分米的方砖铺地,需要128块,如果改用边长为8分米的方砖铺,需要多少块?(用比例解)用比例解! 5397除以一个素数,所得的余数是15,这个素数为什么是23? 记一件事作文 用上象声词 350个字 韩愈是河北昌黎人吗? 作文《生活需要坚强》600字 不明白到底怎么写 用方程做有答案的 一个房间,用边长为五分米的方砖铺地,需要128块,如果用边长是8分米的方砖,要多少块?(用比例知识解) 科学实验作文550字到600字字数要准确 假设int a=1,b=2;则表达式(++a/b)*b--的值是多少? 韩愈祖籍昌黎,这个“昌黎”现在是哪个地方
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘