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

VB中播放WAV文件

HTML文档下载 WORD文档下载 PDF文档下载
VB中播放WAV文件
作者:赵鹏
在多媒体软件的开发设计中,声音是一个相当重要的多媒体元素,优秀的声音设计会为多媒体软件增色不少。而WAV格式的声音文件是一种最常用的声音文件格式,也最容易得到,比如通过Win 95中的“录音机”程序,利用麦克风就可以非常简单地录制WAV文件。VB是一个相当经典的多媒体开发的工具,在VB中播放WAV文件的方法主要有这样几种。

一、利用OLE控件
建一窗体,用鼠标选择OLE控件,在窗体上拖出OLE区域,在图一的窗口中选择新建和声音然后按确定键就完成了在窗口中添加OLE控件,如图二。
这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件,程序运行时双击OLE控件即可。
在实际的程序设计当中,往往需要单击某个图标或按钮来控制声音的播放,其实现方法是这样的:首先将OLE控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Contol_Click()
OLE1.Action = 7
End Sub
二、利用MMControl控件
VB5.0提供了许多设计多媒体的控件,在PROJECT/COMPENENTS/CONTROLS中选择MMControls 控件,窗体上就出现了多媒体控件对象,在这个对象上有不同的图形功能标识,其名称从左到右分别是Pre、Next、Play、Pause、Back、Step、Stop、Record 、Eject 如图三。
这个多媒体控件可以播放多种格式的声音,播放WAV格式声音文件的程序代码
Private Sub form_load()
MMControl1.DeviceType = "waveaudio"
MMControl1.filename = "c:\win95\media\ding.wav"
MMControl1.Command = "open"
End Sub
'以下是为图形标识Play事件编写的代码
Private Sub MMControl_playclick(cancel As Integer)
MMControl1.Command = "play"
End Sub
当运行这个程序时,MMControl控件中的Play键被激活,点取此按钮即可播放ding.wav文件。
在实际的软件设计当中,更多的情况是鼠标点击按钮或图标来控制声音的播放, 其实现方法是这样的:首先将MMControl控件的VISIBLE属性设置为FALSE,然后在图标或按钮的单击事件中编写如下的程序:
Private Sub Control1_Click()
MMControl1.Command = "play"
End Sub
运行程序时单击相用的按钮或图标,WAV文件照样可以播放。用自行设计的按钮或图标取代多媒体控件中的固定按钮,可设计出更加灵活方便的用户界面。
三、利用VB的API函数
在窗体的DECLARATIONS(声明)中输入如下代码:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal_lpszSoundName As String, ByVal uFlags As Long) As Long
'lpszSoundName是一个字符串变量,表示一个WAV格式的文件名。
'uFlags 用于设定播放状态的各种选项。参数值为0X00时,实现同步播放,参数值为0X01时实现非同步播放。
在命令按钮的单击事件中输入如下代码:
Private Sub Command1_Click()
Dim plays As Long
plays = sndPlaySound(“E:\WINDOWS\MEDIA\DING.WAV", &H0)
End Sub
运行时单击命令按钮即可播放WAV文件。

中国云计算大会PPT集萃(一):众多名家分享技术挑战与行业趋势 速度是现在的10000倍,出自物理学家之手的新型电脑 逗你玩?淘宝开放平台从4月1起开始全面收费 出现编程疲劳?千万别纠结 “编程竞赛界王子”教你更好的招聘程序员 SA:三星全球智能电视市场份额达26% Cocos2d-x 3.0分语言包发布 最新进展即将披露 友盟:社会化分享成为APP开发“标准配置” 从“简单”的封面设计剖析Netflix背后的数据哲学 与Linus Torvalds“并列”,虚拟化天才程序员法布里斯贝拉 让超级计算机和数据中心“飞”,Intel推800Gbps神器MXC 【OSTC讲师专访】Debian开发者李道兵:平静地理解开源 红帽推出开源业务流程管理套件:JBoss BPM Suite 6 科学研究证明:程序员快乐才能更好的工作 ChocolateChip-UI:能“逆转”的跨平台应用开发框架 分享12款最佳的Bootstrap设计工具 Apache Flex 4.12发布,支持iOS 7 智能手机应用挑战Web平台,看W3C如何反击? 电信级数据流量与监控系统部署案例分享 TCL联手Mozilla,HTML5智能电视真的要来了! 先睹为快:Unity亚洲开发者大会虚拟游览展示 OSTC&#183;2014 演讲日程出炉,Perl创始人来了! Unity将收购Applifier,并引入Everyplay和GameAds两大平台 《近匠》从Cubieboard到radxa:汤亮的第二次硬件创业 九头蛇与大象之争,Hydra或将取代Hadoop 喜讯:中国安全团队Keen成功在Pwn2Own 2014黑客大赛上攻破64位Mac上的Safari OCP黑客马拉松冠军:24小时头脑风暴背后 新时代应用程序设计及MongoDB的十个深入理解 借助“开源”东风 英特尔打造卓越“软实力” 深圳综合交通设计研究院张鹍鹏:智能交通设备领域已成红海 信息化是发展趋势 25个可遇不可求的jQuery插件 CRecordSet可以执行SQL语句吗 >>>>>超难度问题<<<<<怎样在屏幕上锁定一个移动的物体并得到它的x,y坐标 用ADO访问数据库时,如何拼写动态SQL 麻烦给发个Jbuilder7的注册机,注册码不会用不要!急! 请问在ASP中调用DLL到底需不需要注册,我怎么看有的需要注册,有的不需要! ASP 0115 ??错误,怎么办?急 OLE 文档序列化!请大虾指教! 双硬盘????,郁闷中。。。在线等 批量数据写入,是否有简捷的方法 请问谁有1、美达S693A2主板光盘;2、还有美达p4vad主板,是什么显卡? 用java weblogic.ejbc编译时为何总报找不到.xml文件 ftp的问题 请问各位:如何在ASP.NET中打开一个现有的或一个新的WORD文档? 讨论怎么发财 关于查询系统的需求分析怎么写?用触摸屏实现 如何把一个文件保存到数据库中? 耦合 哪里有WEB合同管理代码?或资料?演示?急!!!谢谢!有人知道吗?? 谁能把这段代码破解 求一函数,在线等....... 剛&#24478;vb轉delphi,&#24171;我看一看!結貼&#24456;&#24555;! 如何可在WINXP中改MAC?? sprintf(a,"%2X",b)问题 关于简单的access查询 java字符转换问题!!! 请教一个Struts标记问题! 一个cab下载的错误信息解读,请教高人。 OutLook?怎么用它发邮件,经常提示错误? 帮看这段删除纪录代码有什么问题?三层结构oracle 本人要做一个WEB合同管理平台,由于以前没做过,请大家指示? Web Application 中怎么来调用 Web Server?谢谢! DataGrid中模板列嵌套的DataGrid怎样相应其事件 [调查]程序员证在你们公司里到底有多大的作用?有多少人有证?希望有没有证的都进来说一下。 怎样把字符串"C;\aaa\bbb"变成字符串"C:\aaa\ccc\dd"?用什么函数,操作? 我的SQL Server 装好后,出现下面的错误 这个文件查找真是怪!......msdn源代码居然有问题, 进来看看... 请问在TreeView控件中如何通过光标的上下移动获得光标所在项在数据库中的ID值 對掌上電腦Sony Peg-TG50和ACER N10怎麼看??? 使用SOAP协议传递服务器端查询结果容量问题? 菜鸟问题:数据窗口怎么设置检索参数?急!!在线等 ****入门提出的问题****,请各位高手指教! 很简单的一个问题。 这个问题怎么处理? vb如何调用一个组件?? 一个小问题,可不简单哦! 应聘CMM时,会被问到什么有关CMM的问题? 调用servlet出现这个错误HTTP method POST is not supported by this URL 在公网上如何连接远程数据库啊。。 这算不算bcb的bug?关于Image控件的使用。 使用 GDI 函数画直线时,如何同时在该直线的两端画出箭头来? 怎样改变网卡的工作模式???~~ 给下列广告消毒 恢复这些成语的原貌1、某消炎广告词:快治人口【 】2、某止咳广告词:咳不容缓【 】3、某自行车广告词:骑乐无穷【 】4、某保温杯广告词:有口皆杯【 】 对于参数已定的微分或耦合电路,当矩形脉冲频率改变时,输出信号波形是否也改变?为什么? 如果湖泊与你钱,为什么溶解氧会增加是湖泊淤泥浅 活的大闸蟹如何保鲜 鲁滨逊做成这只大型独木舟真是费尽了心血,他总花了( )个月的时间! 关于天体运动的一道题~一颗人造地球卫星发射前在地球表面时所受地球引力为2.0*10六次方 牛,当它运行于高度等于地丢半径的轨道时所受地球引力为 牛) 如何把长气球弄成动物造型 鲁滨逊为了做好这只大型独木舟,共花了几个月的时间 3个数最大公约数算法请用高中必修3的语言来写,C++,JAVA等不适宜.我就是说只有INPUT PRINT IF WHILE那些来写 大闸蟹怎么保鲜 鲁滨逊做木栅栏花了多长时间? 关于求最大公约数算法的问题书上是说:1.输入m、n(m为被除数,n为除数)2.m/n得余数r.3.判断r=0?是的话n为最大公约数.4.否则讲n赋给m,r赋给n,循环2.我想问为什么能这么做?(为什么能用除数除 大闸蟹怎样保鲜 亲本基因型的判断一雄蜂和一雌蜂交配后产生F1雄蜂的基因型为Ab,aB,AB,ab四种,雌蜂的基因型为AaBb,Aabb,aaBb,aabb则亲本基因型是什么? 请指出电熨斗的各个部件哪些是导体,哪些是绝缘体,哪些是热的良导体,哪些是热的不 关于大闸蟹保鲜问题我想邮寄给朋友大闸蟹,朋友在上海,我在常熟,如何才能使大闸蟹不死亡 事件发生的可能性不管有多小,但是都一定会发生.这是什么定理 最大公约数 算法求正求两个数:m,n的就大公约数算法为:t=1;while(t){t=m%n;m=n;n=t;}结果n为最大公约数!~!请问能用数学证明它的正确性吗?这题的意思是..m/n得到的余数为t,如果t不等于0,则把n的值 求歌词:歌词oh wa ou sister oh oh oh 歌名 新闻的客观主义理论? 请问有木有关于数学运算的英文文献啊?急啊!最好还有中文翻译哦 罗西尼的机械表怎么样罗西尼的这款表怎么样7419W03C 我们这2300元 机芯好么 是这个好 还是西铁城的光动能好呢 想买个两千多的 化学方程式的书写和计算 求一篇5到6页的数学英文文献,需要中文翻译, 请问罗西尼的机械表怎么样啊?走时准确吗? 质量为m的小球由高为H的、倾角为θ光滑斜面顶端无初速滑到底端过程中,重力、弹力、合力的冲量各是多大? 秦始皇的历史作用?秦始皇是怎样的一个人?他在影视剧中与历史上的有没有差别? 一年之计在于春这句话的含义 两个一样的物体分别放在倾角不一样但一样高的两个光滑斜面上..它们重力的冲量一样吗. 电火花成型机 工作液为什么要用煤油? 即墨实验高中高一语文课本里都有什么需要背的课文? 八七会议确定的党的总方针是?急要.有人知道么 我画了一个长方形,为了好看,90度角画弧,如何画 功w=fs,s是时间还是距离?w有用=fs,s是时间还是距离?晕了 请问“纯电能”有用吗 亚硫酸钠与硫反应 关于W=FS的问题.请问一下F等于啥? 纯电能汽车还不能大量应用的主要技术或资源困难是什么. 硫和酒精反应生成什么 在水平匀速拉动物体,η=W有用÷W总=fs物÷Fs绳×100%,这里的摩擦力f和拉力F相同吗?为什么? 黄金杠杆比例是什么意思.如果亏了是怎么算的. 红豆打了绿豆一拳 绿豆打了红豆两拳 打一动物 如何提高油分离器的效率 醉汉骑驴,颠头簸脑算酒帐.艄公摇橹,打躬()()讨船钱----- 在摆动导杆机构中,若取曲柄为原动件时,机构的最小传动角γmin=90°.请问是为什么,我觉得是0°请好好讲下,感激! 构成胃蛋白酶分子的基本单位是? 天通金是什么 判断:曲柄滑块机构处于传动角最大位置时的机械效率最低.( )关键词:机械原理 四杆机构 曲柄滑块机构 传动角 机械效率 八七会议总方针内容 天通金怎么样 4.76克硫酸钠,亚硫酸钠,亚硫酸氢钠的混合物和足量的硫酸作用逸出气体672ML(标准状态),同样的混合物和24.04ml3.2%的氢氧化钠溶液(密度为1.04g/ml)反应,试计算在混合物中亚硫酸钠的质量分数. 优点和缺点分别是什么? 手机淘宝秒杀出现3个方框和几行文字如图要填什么才对,应该怎么填 锌和氧化锌粉末的混合物34.1g,通入足量的氢气,在高温下使氧化锌全部还原,将所得的全部固体加入20%的稀硫酸245g,恰好完全反应,求原混合物中锌和氧化锌各多少克 什么时候进行的?有什么优点,有什么弊端? 淘宝上秒杀东西时跳出来的3个方格要填什么 下列是ES-156型多功能蒸汽电熨斗说明书的部分内容:产品特点:具有干湿两用功能.干用功能是指在无水状态下,通过电加热管加热底板,底板温度上升,直接压烫衣物;湿用功能是指在蒸汽 某同学在做电解食盐水的实验时,误用铜棒作两极材料,请判断下列说法正确的是( ).A.完全电解后,得到CuCl2溶液B.电解完全并放置一段时间后,得到蓝色沉淀和NaCl溶液C.电解一段时间后NaCl浓度可 单基因遗传病患者体内都有一对异常基因这句话对不对 江、河、湖泊水中的溶解氧少会发臭,而地下水中的溶解氧少,为什么不会发臭呢? 西湖国际马拉松周日开跑 周边公交线路中国100大最佳市政府出炉 浙江9个近二成美国人称见过鬼 女性比男性更易默克尔遭美国监听 德议员称斯诺登愿协美墨边境现毒品走私隧道 地下10米深新书披露奥巴马曾很怕应酬克林顿 不愿会议记录爆奥巴马医改网站开通首天仅6斯诺登与德议员会面三小时 向德联邦政俄方建议在莫斯科与叙利亚政府和反对派黑客因不满新加坡媒体局规定威胁将发动加拿大女子相亲网站“钓男人”吃免费餐新加坡两名少年不满被人抱怨挥棍打人被新加坡公共交通“有人味儿”国际新闻早报:美国总统与伊拉克总理谈韩国将重组国军网络司令部 以提高工作克里急赴中东安抚沙特 美沙关系因叙问土耳其4名女议员戴头巾出席会议 打破梅德韦杰夫谈监听丑闻:美国不能这样厚俄“彼得大帝”号核动力巡洋舰进入地中英国检方称《世界新闻报》曾窃听哈里王泰国机长驾照过期在南京被停飞 乘客机中国加大对中西部贫困地区水利扶贫力度新华时评:坚决遏制“号贩子”猖獗势头世界新闻摄影大赛无声震撼 难民题材《全国绿化委员会:加强古树名木保护管理国务院办公厅印发《关于加强旅游市场综财政部等三部门发文调整房地产交易环节日本15岁男孩考试受挫 母亲与他一同月老定三生,牵手到白头!这样的中式婚重磅消息:下周主力或有更大动作!买居家使用汽车,省油应该放首位冠城大通被严重低估,近期有望成为暴涨西班牙足球系列二西班牙足球俱乐部全球“最拥挤交易”排行榜:谨防原油“美国准备制裁朝鲜近期核试验活动!中国海军成功试射海红旗10导弹美国愤布局机器人产业,意味着什么?GIF-盘点足坛的放弃射门时刻,彰显财政部:个人购买家庭唯一住房90平米巴西为石油弃用美元“伊朗解“禁或成美美联储主席:渐进升息为最佳路径”原油【新春寄语】开工了,这些话总该有人和
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘