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

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

Netflix基于AWS的大数据平台Hadoop架构解析 微软开始提供Windows Embedded测试版系统 Aaron Swartz自杀原因存疑 引发互联网连锁反应 重金吸引开发者 BlackBerry10应用36小时增1.5万 把数据中心搬入“空间站” Dell和Intel对OpenStack新兴公司Mirantis投资 快讯:马云自5月10日起不再担任CEO职务 Web工程师必备的43款可视化工具 中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 Facebook社交视觉搜索分析:引入“竞价排名”? 移动广告现状5大问题解析 Google将于月底举行Google Glass开发者大赛 分享29个超赞的响应式Web设计 Facebook图谱搜索和谷歌搜索有何不同? Facebook向美国iPhone用户提供免费电话 VMware CTO Steve Herrod离职 加盟风险投资公司 维基百科基金会推出众包旅游项目Wikivoyage 最舒适程序员:工作外包给中国 自己却偷懒 Evernote正在与苹果联合开发硬件记忆工具,未来两年公司上市 Fusion-io发布ioScale 全闪存数据中心时代到来? Agent Dash游戏设计之美:如何用2D打造3D体验? 开源项目文档应规避的13处“硬伤” 李开复:Graph Search将可与谷歌搜索媲美 月成本3500美元 如何在AWS上实现BBVA信用卡低延时分析 外媒眼中的国内互联网巨头:服务器集群庞大但缺乏创新 在ASP.Net中,用VB.net写代码,怎么取得到的记录集中的记录个数啊? pb中有没有与或操作符?就象VB中的Xor这类操作符? 如何从一个单一的JSP程序员迈进J2EE的世界--请高手指点迷津 第一次来csdn,请各位多多关照。随便问一个巨傻的关于BDE的问题。 离职,却被原来公司经理阴了一下 求AutoResize控件(分不够可加) 谁做过远程代理的程序(急,100分求助,不够再给) mm不让我去接她 树形菜单的问题 如何限制对SQLSERVER的请求访问数? 各位,跪谢了!不能见死不救啊! session 问题 我的服务器 无法更改 session值了 有没有好的远程服务器监控软件 主细表类型的报表问题,希望有人帮我!先谢谢了!(急) 大家救救我得机子吧~~ 极度深奥的问题!!有没有谁知道“xp_logattach ”这个存储过程的实际作用与用法。 ADO 错误代码 (能否置顶啊..斑主) ini文件的保存 智能卡读写设备(成熟技术)== 想借鉴请进 提问?关于用DreamweaverMX处理网页参数问题? ping命令的奇怪问题,你遇到过没? 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 初学者,请教小问题~~~ 用opengl写的一个屏保,有些问题想和大家讨论 帮我看看 有谁知道windows一共出了多少版本(包括不同语言,不同版本) 想暴力解决点问题,大家给点意见! 熟悉J2EE和Web,但是英语四级没过,郁闷呀!散分讨论 怎样使用一个窗体总是显示在最后面和怎样在windows桌面上写上文字。 如果全世界只有一个男人... .net组件有没有对象池的功能? 编程男友和淘气女友!绝配!!!! 企业管理器很慢? 关于窗体的问题 我明年打算考中程,到底难吗? 网络编程 为什么我的mdb数据库不能设置对象指针可以移动啊? 急啊!!!有没有做过论坛发帖机啊能否帮我一下就是怎样提交CSDN论坛的注册信息然后得到左边的树列表和右边的列表 本人做系统时有一个操作员列表,为使每个操作员的密码保密,想在数据表据中将密码用*号代替,怎么办? 怎么檢測一個線程是否已經創建? 解密软件,哪里找 美萍VOD是怎么实现不用网络共享而完成点播的呢? com入门问题2 jb8+Weblogic配置后,在jb8中不能编译jsp文件,但java文件可以编译 哪里有好的控件下载,介绍几个好的网站!!! 一个很久没有解决的问题,请各位指教。 高分求救程序 我装RASPPP软件的时候,他要我的数字签名怎么办? javaBean 是否能在应用程序里面调用??怎么调用?? 企业管理器很慢? 月下独酌中 1)“-----------------------------,-------------------------”两句,间接写出了诗人对自月下独酌中 1)“-----------------------------,-------------------------”两句,间接写出了诗人对自己目前处境的 in four years 现在完成时时间状语是in four years 用现在完成时 还是用一般过去时tianliang,a famous diver on the chinese diving team,____two olympic gold medals in 4 years.A.won B.has won C.had won D.will won during 后能不能加现在完成时 英语单词many美国英语的many快读是读成mane?还是这是另外一个单词? Lucy and her sister have (d ) hobbies 月下独酌描写了怎样的场面 月下独酌描写了作者什么的情景? Hinder怎么读 hinder 阻止 阻碍 hinder ['hɪndɚ] 为什么 音标明明是 i 却发的是类似 ai 的音,读成hainder这i 和n在一起为什么会变音吗 in这个单词就没变 还有没有其他的例子呢 月下独酌 写出李白什么性格 《月下独酌》是什么意思? 女子左脸痛2年求医 医师从中取出2公叙利亚工程师开发新软件 可发短信预警俄险些再发生公交爆炸 一名乘客携炸药美媒:斯诺登仍掌握美针对俄中展开情报外媒爆料超模米兰达可儿与奥兰多布鲁姆王宝强二胎女儿曝光 小萝莉头戴红帽太故宫博物院一食堂发生持刀伤人事件 造故宫回应突发刑事案件 称公安部门正在日本众院委员会出国考察扎堆欧美 10外媒爆料超模米兰达可儿与奥兰多布鲁姆哥国小镇妇女发起“合拢双腿运动”促政德媒:意大利黑手党在德乐享逍遥 利用当街刺伤路人 新加坡华裔无业男子被控西班牙警方摧毁一克隆信用卡团伙 六名法国标致雪铁龙公布“复兴计划”中纪委解读新设纪检监察干部监督室:正新西兰但尼丁女华商终止兴建海滨豪华酒塞拉利昂回应冈比亚禁止塞国公民入境图解:扫黄打非 净网2014美国犹他州一母亲杀死6名亲生婴儿后藏尼日利亚总统嫁女 送每位宾客镶黄金特香港海洋公园首次成功繁殖53只海马宝欠倩微爱以恶魔之名真不想盗墓天魔武神清河鬼怨末世逐龙血染千古三零一宿舍断忆觉醒轮回空之境界的某人咸亨酒店旅游琴台路旅游隆兴寺旅游暖泉古堡旅游飞狐峪旅游草原天路旅游赤城温泉旅游西溪湿地西区旅游陈毅广场旅游都爹利街石阶旅游香港轩尼诗道旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘