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

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文件。

Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware Cortana与Siri、Google Now的较量:支持功能更多 代码面试最常用的10大算法 “颠覆医疗” 时云医疗推三款硬件产品 华为章宇:如何学习开源项目及Ceph的浅析 EMC:大数据时代中对于数据保护的重新定义 Google Glass于4月15日在美对外开放购买,售价为1500美元 电脑上的网址怎么样复制到手机 创客天下——《Make》及Maker Faire创办人、O'Reilly Media创始人Dale Dougherty专访 《近匠》aGlass团队:透析眼控技术的价值 一周消息树:超级充电器来袭,30秒可为手机充满电 北森CTO张庆化:利用Spark实现数据驱动价值 大公网冯咀志:站内搜索系统的PowerLinux迁移实践 2014移动开发者必备的十大应用测试工具 怎样改变当前窗口的大小,是当前窗口最大化? 高手争峰 如何把一个log文件读到数据结构中去 请教一个很菜的问题:) 这个程序有什么问题? 怎样做???? 简单问题,可就是搞不定!! 请问jsp中servelet在win2000中的设置方法,需要下载什么类库文件么? 一个新问题,那就是点击工具栏的退出按钮以后只退出当前打开的窗口,而不是整个应用! 如何在 index.htm 中引用 count.asp ? 远程数据库访问的问题--亟待高手们解答 王国荣的电子信箱是哪里? 我的程序生活 先给50分,稍后在加:我正在做一个系统,需要做到每次开机时提醒用户有哪些事情要做! [Tips]获取Memo&Richedit中光标坐标的最简单方法! 急急,如何才能把图片的底色与窗口的底色自然地融为一体? 如何改变按钮的颜色? 在mtml help workshop 中如何制作带上下文关联ID的帮助 调试程序时,控制台程序与直接建立的C++程序有区别吗? 给菜鸟推荐本书 VB调用外部DLL问题 【洗心革面,重新做人,割发断指,庄严声明】 从今以后 kook 不近女色,不灌疯水,以 panda_w 为榜样,苦练VC,研习汇编,做一个 CSDN 的正面典型! 谁有ULTRAEDIT 的注册码 能否推荐几本关于VB提高和关于VB数据库的书 紧急问题,关于SSL通过MS PROXY String类的问题 连接数据库的东东真是奇怪! 如何打开pdm格式文件 ===========灌水传说=========== 奇怪的问题,怎么办? 呵呵,初学者,请多多指教 剖 尸 小问题:自定义组件的显示 怎样打印picturebox中的内容??? 关于Datawindow的Group的问题 谁能告诉我 Delphi6的序列号 紧急问题,关于SSL通过MS PROXY! 请问,如果用ASP作邮件发送,接收的功能,win2k怎么设置????????? 各位大侠,谁用visual age for java3.5 开发过 ejb呀,发个例子及过程给我好吗?没例子,有过程也可以!以分做谢! 哪位大哥能将解一下notify()和wait()的用法 我用delphi做的工程是一个exe+n个DLL的,请问datamodule放哪里合适;请高手们详细讲讲. 如何除去这可恶的标题? 请问如何取得动态数组的维数,换言之如何取得动态数组的值? 1000M,一会儿就满了,怎么回事? 求助!数据管道问题 砌码者最悲惨的事 哪有CISCO WORK2000下载?(5CD的) 有没有具有代码自动提示的WIN32汇编IDE? 软件发布:完整版通讯录 中国软件企业需要的是程序蓝领还是程序天才,借借人气? 软件发布:超级信封打印工具商业版 有一种植物的茎是红色的,叶子是绿色的,请问是什么花啊 小红的明明带着同样多的钱去买大数学本..小红花光了自己的钱,并向明明借了1元,刚好买了8本数学本,明明剩下的钱恰好还可以买4本数学本.那么数学本的单价是多少?用方程解 寒冷的冬天,玻璃窗上常常会有冰花( ) 1、冰花是一种凝固现象 2、冰花一般结在玻璃窗外面 3、冰寒冷的冬天,玻璃窗上常常会有冰花( )1、冰花是一种凝固现象2、冰花一般结在玻璃窗外 一种红色的花 花朵像纸做的,谢了以后变成暗紫色.叶子有点像南瓜的叶子. 数学知识竞赛共20题,小红做对了总题数的4分之3,明明做对的题数是小红做对题数的5分之4.明明做对几题?急急急! 玻璃窗上的冰花,在里还是在外?以及形成的原因 有绿叶子,还有红叶子,红叶子中间长着黄色的长长的棒棒,是什么花啊? 小红和明明带着同样多的钱去买大数学本.小红花光了自己的钱,并向明明借了1元刚好买了8本数学本.明明剩下的钱恰恰可以买4本数学本.那么数学本的单价是多少? 为什么冬天窗上结冰 透过红色玻璃看黄色的花绿色的叶呈什么颜色 数学分式方程,就1题 冬天,窗户上的水珠在窗外还是窗内?为什么 春天来了 我的月季花叶子由绿变黄了就4月份,原本刚刚全部变绿的叶子开始慢慢变黄,现在全都蔫了.阳光都很好,也不缺水,为什么会这样?该怎么补救?需要加什么肥料?现在的样子就像冬天的那 数学分式方程 练习题1、2都要过程.急 冬天窗内结冰怎么办东北天气很冷,我家厨房的窗户又结冰了,很严重,窗子是里外两层,冰积在中间,上面还滴水,但同样是客厅的窗子就很好啊,怎么处理?请高人指教.谢谢! 这是什么花?特征是:五片黄色的花瓣、喇叭型的样子,花蕊的底是红色;绿色叶子好像小枫叶型. 一道数学分式方程题有一市政府改建工程,若由甲乙两工程队合作,24天可完成,需费用120万元,若甲单独做20天后,剩下的工程由乙做,还需20天完成,这样需要费用110万元求甲乙两队单独完成此工程 为什么墙壁会流汗 绿宝石花叶子黄了 数学的分式方程题900/X+30=600/X方程两边都乘多少? 冬天天气很冷,早晨在窗玻璃上往往结一层冰,判断冰花在室内还是室外,为什么? 粉掌的花叶怎么变绿了 初二数学分式方程一题(不难)过程我忘了怎么写,请自己写出来,不要打在上面.把“火”字去掉 严冬的早晨,我们经常看到窗玻璃上凝结的冰花是在室内一面,在室外一面还是两面都有? 叶子由红变绿的是啥花?请问这是什么花 小红和明明带着同样多的钱去买数学本,小红花光了钱,并向明明借了1元,刚好买了8本数学本,明明剩下的钱还可以买4本数学本.那么数学本的单价是多少?(用方程解) 寒冷的冬天,在窗玻璃上会有冰花.那些冰花是在室内还是室外的? 请问大绿叶/红色花朵的花是什么花?(有图)很绿很绿的叶子,叶片比较大 ,高有40厘米左右,开的花是红色的,如图所示.请问这是什么花?该如何培养?昨天在空调房放了一晚第二天早上起来还没 数学活动课上,韩老师给同学们出了一道题,规定一种新运算,若对于任意数有理数a和b,有ab=a-b-1,则2(-3)=? 早晨在窗玻璃上往往结上了冰花,请问是室外的还是室内的为什么 绿叶慢慢变红的是什么花怎么繁殖? 老师在数学课上出了两道题,规定每道题做对得2分,没做得1分,做错的0分.老师说:可以肯定全班同学中至少有6名老师出了两道题,规定每道题做对得2分,没做得1分,做错的0分.老师说:可以肯定全 冬天窗户上有冰花,但室外的水蒸气温度早已降到很低了,为什么没结冰?冬天窗户上有冰花,但室外的水蒸气温度早已降到很低了,为什么没在室外形成冰花? 《黄冈小状元》的问题:小明买了2kg梨,共22个;小莉买了3kg梨,共24个,两个人买的梨平均每个各是多少千克?谁买的梨大些? 绿叶黄色花通过红色玻璃滤镜是什么颜色 王老师在一次数学课上出了两道题,规定每道题做对得2分,没做得0分,做错扣2分,李老师说:可以肯定全班同学中至少有5名同学各题得分相同,那么这个班最少有多少名同学?A.15 B .16 C .29 D.31原书 【急】小明和小丽出生于1999年12月份,他们的出生日不是同一天,但都是星期五,且小明比小莉出生早,两人出生日期之和是22,那么小莉的出生日期是?(一元一次方程解) 什么花在春天开花 一次数学课,老师出了两道题让全班50名同学解.老师发现做对第一题的有42人,做对第二题的有29人 刚买了一盆花,不知道是什么花,请问谁知道这是什么花? 颐和园中大海棠树争奇斗艳地开满了密密层层的淡红的花.缩句为海棠开满了花.还是海棠树开花? 数学课上李老师给同学们出了一道整式求值练习题 这两盆花是什么花 什么花秋天、冬天、春天、都可以开花?还适合在班级开的,不容易死…… 一个初二数学二次根式题已知X=2根号2+1 求(X的平方-2X-9)除以(X的三次方-11X-15)急用 再线等好的+分 我有一盆花,但是不知道什么名字,请问下这是什么花, 四季海棠花怎么养 关于二次根式,化简:(√6+4√3+3√2)÷(√18+√12+3+√6) 中间叶子是红色的周围是绿色的一年四季都是这样是什么花?中间叶子是红色的周围是绿色的一年四季都是这样!买时老板说是叫富贵什么?不记得了,不知道哪位朋友知道是什么花,知道他的养 四季海棠的叶子打卷这盆花刚买来没多久,开始有花,我买来后花和花骨朵全都掉了.有人说是因为浇水浇多了.后来我3天浇一次水.现在两个月了,终于又开花了.可是它下面的叶子又打卷了.而且 为什么冬天玻璃窗上有冰花? 花像叶子一样是红色的,叶子是绿色的是什么植物,适合什么样的环境生存, 四季海棠花落了,下面的根怎么办 寒冷的冬天,房间的玻璃窗上常常会有冰花.你注意过吗?玻璃上的窗花的图案各不相同,有的像兰花、有的像马尾松,还有的像一朵朵的梅花.这到底是怎么一回事呢?原来玻璃窗上的冰花是房间里 这是什么树?绿色树叶,红色的花 我的日本海棠花的叶子一片片枯萎了并都掉光了,我该怎么办呢? 为什么冬天早晨玻璃窗上的冰花或有各种各样的形状? 绿色花叶还带红色花叶是什么花? 栀子花的叶子黄了我是河南郑州的,上个星期买了一盆栀子花,但是一个星期,就开始有黄叶的情况,我发张照片,请高手来看下最近又开始掉花蕾了,郁闷了 寒冷的冬天,玻璃窗上的冰花是凝固现象吗?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn