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

用VB5.0编写自己的MP3播放器

HTML文档下载 WORD文档下载 PDF文档下载
用VB5.0编写自己的MP3播放器
作者:杨山河
MP3播放器大家用得应该不少,不过,您是否厌倦了播放器的老面孔,是否尝试编写一个自己的MP3播放器呢?什么,太复杂!你会VB吗?会就得了! 首先,得了解一下我从朋友处得来的一个ActiveX控件——Mp3Play.ocx。所谓ActiveX控件就是高手早已编好的专门化功能软件部件。以前在16位VB中是以vbx作为扩展名,Win95中扩展名改为ocx。大家只要知道Mp3Play.ocx是一个专门播放MP3音乐文件的VB控件就行。我们编写自己的播放器,使用该控件,并适当设置其属性,就可以获得专业级的MP3音乐效果。要想使用该控件,最好将它放到Windows\system目录,并且在注册表中注册。利用该控件,还可以将一个MP3文件解码为一个WAV文件。 Mp3Play.ocx的主要属性有:

BitRate :MP3流比特率;FrameCount:MP3流帧记数;TotalTime: 总计已播放的时间;FrameNotifyCount( RW ):发送一次通告的帧数,缺省为32;IsCopyrighted、IsOriginal、HasChecksums: 从MP3流获得的发行信息;SampleFrequency:采样率;Layer:取值可以为1、2、3,分别代表Layer1、Layer2、Layer3的标准,缺省为3,这意味着MPx的文件都可以播放;MPEGVersion:取值代表MPEG-1或MPEG-2。 常用的方法有:

AboutBox ( ):显示About框。

Authorize ( Name, Password ):验证许可证(注册码),Name即注册名,Password为注册码,由控件的提供商在用户注册后提供,返回值为0则通过,否则为5。 Open ( Inputfile, Outputfile ):打开MPEG音频文件并解码播放,若在声卡上播放则Outputfile应为空串,返回非0值表示解码有误。如果Outputfile为文件名则解码至WAV文件。也就是说,可以利用此方法编写MP3-WAV转换器。 Close:关闭当前MPEG流解码。

GetVolumeLeft,GetVolumeRight:获取左右声道的音量,返回Long型值。 SetVolume ( left channel, right channel ):设置系统左右声道音量。 Pause( ):暂停,奇次声音暂停,偶次开启。

Play ( ):开始解码,并播放当前MPEG文件,返回0表示解码无误。 Stop( ):停止当前解码工作,返回非0表示有误。

下面,我们一步一步地完成:

1. 添加Mp3Play.ocx控件

启动VB5,选择Standard EXE。此时,左边的控件面板中只是一些Win95标准控件。我们选Project(工程)菜单下的Components...(组件)项,在弹出的对话框中选中Dialog-Medien Mp3Play ActiveX Control Module项。这“宝贝”即我们所需的MP3控件。确定后在控件面板中会增添一个蓝色的喇叭图标,表示该控件已经添加到控件面板中。 2. 设置属性

点中蓝色喇叭,在窗体中拖动一个矩形框,松开后在窗体中出现MP3控件图标。为了在播放时隐去喇叭,在MP3Play1的属性表中将Visible设为False。一般就这么多,剩下的就是使用它的方法(Methods)了。 3. 添加按钮

点中“Command”按钮,在窗体中建立三个名字分别为Command1、Command2、Command3的命令按钮,将它们的Caption分别设为“选择MP3文件”、“播放”、“暂停”。 4. 添加CommonDialog控件

为能方便地选择MP3 文件,还需文件打开对话框。如果控件面板中没有此控件,如1中所述选中Components菜单项,在Microsoft Common Dialog Control 5.0前的复选框中打勾,确认后即可在控件面板中看到此控件图标。在窗体中建立一个名为CommonDialog1的对象,为使能快速找到MP3的文件,需要设置它的Filter属性为“.MP3|.MP3”。 5. 在按钮中编写相应的代码

双击Command1,在Private Sub Command1_Click()中输入以下代码: CommonDialog1.ShowOpen

双击Command2,在Private Sub Command2_Click()中输入: Err = Mp3Play1.Open(CommonDialog1.filename, ″″) Mp3Play1.Play

双击Command3,在Private Sub Command3_Click()中输入: Mp3Play1.Pause

6.调整窗口大小,运行播放器

适当调整窗体的外观,如大小、颜色等,怎么舒服您就怎么设置。好了,开始按F5运行,选择MP3文件——播放!感受一下您自个儿的MP3播放器吧! 此外,您还可以用Photoshop等软件制作一些漂亮的界面,贴在窗体上,增强其艺术性。还可以仿照Winamp的“Plug_ins”,利用Timer控件完成一些特殊的动画效果。当然,一切都靠您自个的天才去设计了。顺便在此请教诸位大侠,哪儿有未加时间限制的Mp3Play.ocx,或者您有注册号,请告诉在下。我因没有注册码,每首歌曲只能播放30秒。
谁能成为Hero,这一次你说了算!——TCL智能电视开发大赛创意阶段评审征集 微信官方在“公开课”上13个热点问题的解答摘要 MDCC 2014移动开发者大会10月开幕:你就是主角! 设计师该如何挣得一席之地? 回到未来:最热门的十大清洁能源技术公司 深度学习:未来机器人的进化途径 搜狗开源内部项目管理系统Cynthia,已被数十家企业采用 沃游戏新版本全新登场 好友PK根本停不下来 腾讯发布首款智能硬件,内部筹建孵化器鼓励创新 触控开发者平台:孕育“十亿开发者俱乐部” 《近匠》大新伙伴:大姨吗防晒小助手,帮你呵护女神 专访阿里云总裁王文斌:做出“用得爽”的工程产品 专访AMD全球副总裁潘晓明:2014全线发力,力争中国市场 搜狗开源内部项目管理平台Cynthia意欲何为? 深度解析浪潮新八路服务器TS860 支持Box2D,开源HTML5 2D游戏引擎FLAG 一周消息树:从程序员到架构师的方法与逻辑 【CTO俱乐部走进海尔】海尔的转型探索之路 十一问MongoDB CTO,谈NoSQL人气王的扩展、事务及运维 腾讯“创业•密码”开发者论坛 ChinaJoy引爆创业者关注 从F1赛车到智能手机,无线充电技术之崛起 助力梦想!MDCC免费为优秀App开发团队提供展位 为Symfony2和Redis正名,基于PHP的10亿请求/周网站打造 【聚焦API】教你如何选择最适合的NLP API服务商? 直接改应用!Flipboard开源iOS应用内调试工具FLEX 专访腾讯游戏运营总经理崔晓春:云时代游戏运营的变革与创新 嵌入式专家Bruce Douglass经验谈 门票销售过半 从2014微信开发者大会购票者特征说起 当来自金星的Devs碰上火星的Ops——共话应用扩展 移动平台市场占有率:Android首次赶超iOS 豌豆荚范怀宇 I/O大会总结:Android无处不在 IE浏览器显示的字体不是默认的,变成了空心字体。如何改成系统默认的字体?(win98+IE5.0) 寻找高手 关于协议的问题 求助!能把一个字段内容分解的函数? Servlet问题?(急等,立结) oleconnection 支不支持sybase的连接,不通过odbc如何连接Sybase高手请进!急啊!!! 关于return的问题 为何内存消耗在不断增长? 浏览器类型 求文件长度? 用DELPHI 开发过ORACLE数据库的高手帮忙,我现在遇到个问题, BCB消息机制问题, 关于MFC 请教:jar问题 零为什么不能做为除数。 菜单资源ID得问题 请问高手,实验室局域网内部下载速度很慢,会是什么原因造成的? 如何利用Datareport做出好看一点的报表? Grid的列怎么来调整? GDI+类使用new操作符问题 有人在吗? 请看看这一样个SQL语句 页面上有两个相连的表格时,中间的边框变得很粗,能否做到和一个表格的效果? 帮我写一个简单的和SERVER2000查询的例子50分相送!! 怎样将别人给我的数据库文件导到本地? 近日较忙,散分200 请问将脚本写在页面和写在J文件里有什么不同?我写在页面上一切正常,可是把脚本防在一个JS文件就报错 ===好几天,ADO 连接oracle数据库的问题.还搞定。大伙给看看 DBLookupComboBox的疑问 我是福建省福州的.程序员在哪儿报名呀?? 如何让录入页面的信息能自动保存~! 编写函数 有谁知道华工的计算机应用的复试考那几门?另外请问关于其他不公布复试科目的学校可以通过电话询问复试科目吗? 想不通,请教?(802.1x) 一个有关浏览器的问题,高手必进! 那位兄弟推荐一款文件夹加密的软件! 发布一套完整的网站系统,up就给分 怎么样能够把文件上传到服务器的任意目录下?? java同mysql连接不上: Server configuration denies access to data source 大家是如何看别人的源程序的呀~介绍一下自己的经验嘛~ 字符串A与B,找出A,B的最大公共子串? 我从TPanel继承一个控件,此控件能有OnMouseWheel事件吗?如果有,如何写? 新手的不解 谁能给个 ado 访问 mssql 最简单的代码例子? 关于Unicode的两个问题 sjsj(悠行者) 进来拿分。 100分送给大家!!! 用大数据库建立小数据库有没有好办法? 请问vc.net带的水晶报表能否用于vc6.0? 有没有vc开发水晶报表的例子? RedHat7.2可以为什么RedHat8.0就不行? 怎样在对话框的左上角加上自己的图标?替代掉VC自己带的那一个? 编写函数 去除乙烷中少量乙烯?求教答案是通入足量溴水中那么乙烯发生了加成反应,生成溴乙烷,是气体么?如果是气体不是和乙烷混一起拉? 天冷时,长安汽车开暖风是没有暖风,都是冷风? 溶酶体来源于什么细胞器?溶酶体来自什么细胞器?高尔基体分泌什么,然后与什么结合成一个细胞? 李大钊生平简介 自动空调怎么刚开始开暖风有,跑个50公里就是自然风了 溶酶体可以消化细胞器碎片吗 某气体能使红色石蕊试纸变蓝,结论:该气体为NH3是否正确? 假设需求曲线为Q=100-2P分别计算价格P=1,25和49的价格弹性. 在下列细胞器中,质子泵在于 .A.高尔基体膜上 B.溶酶体膜上 C.过氧化物酶体膜上 D.内质网膜上 硅羟基活性与纤维素上羟基活性哪个大 蚯蚓身体的大小可以用测量什么的长度和什么的长度来表示 给定的某商品的需求曲线为QD=10-2P.求其点弹性为多少?怎样调整价格才能实现总收益增加? 属于等产量曲线的特征是( ) A.离原点越远,代表的产量越大 B.等产量线凹向原点 C.对同一厂商而言,两条等 碳氨与盐酸反应生成什么?加热生成什么?什么气体会使湿润的红色石蕊试纸变蓝? 【急求】已知某商品需求曲线为D=100-2P,供给曲线为S=50+3P,请计算其均衡价格和均衡数量.如果政府对该商品实行支持价格政策,支持价格为20,将会出现多少产品过剩. 供给曲线与横轴交于原点右方说明了什么那么它的供给弹性的取值范围是什么?为什么 内燃机同步练习题(1)做功冲程中气体做的功一台单缸四冲程柴油机活塞的横截面积为600cm ,活塞的行程是100mm,做功冲程的平均压强是 3.5 ×105Pa.,求:(2)若柴油机每分钟完成500个工作循环, 某商品市场需求函数为q=100-5p,假设供给曲线无线弹性,当价格从10上升到12时,社会福利损失为()要详解A 10 B 20 C 12 D 15 我知道纤维素的每个葡萄糖结构单元有三个羟基,可具体的结构式是什么?没人知道吗? 内燃机的一个人工作循环有四个冲程,压缩冲程中( )能转过为( )能 设需求曲线的方程为Q=10-2P,求其点弹性为多少?怎样调整价格,可以使总收益增加? 6.产品转换曲线() A.总是从原点向外凸出的曲线 B.总是从原点向外凹下的曲线谢谢了, 一个关于内燃机的常识题四冲程内燃机在不做功冲程时,活塞为什么还会运动呢? 蜗牛有视觉吗? 急需用油膜法测分子直径的数据 衡量组织兴奋性高低的指标是 用酷组词 在敌人的( )面前,李大钊仍是那样安定,沉着. 如何用氯乙烷制备1-丁醇?求每个步骤的试剂和产物, 写出电极反应和电池反应 李大钊在敌人的法庭上坚定、沉着.(改写为感叹句) 请问羟丙基甲基纤维素可以不可以做洗洁精的增稠剂? 蜗牛的质量有多大?先用天平测出一只蜗牛的质量为------------,再测出20只蜗牛的 市场供给曲线定义 羧甲基纤维素加在洗涤剂中,有什么作用,是乳化剂吗? 一只蜗牛的质量是多少? 蛋白质如何产生 经过哪些细胞器顺便问下 中心体做什么的 求配图 微观经济学 1.完全竞争市场上企业的供给曲线 2.完全竞争市场的供给曲线 解释两个的原因 1只蜗牛质量是多少 随身带点药 翻译成英语 微观经济学 求配图 1.完全竞争市场上企业的供给曲线 2.完全竞争市场的供给曲线 解释两个的原因 一只蜗牛的质量为? 赵州桥和卢沟桥的结构图与数据及特点快点 洪水用英语怎么说 二十只蜗牛的质量是多少?谁知道20只蜗牛的质量!不要乱答! 秋天有哪些动物声音 如图所示,虚线区域内有一垂直纸面向里的匀强磁场,磁场宽度为L,磁场强度大小为B.总电阻为R的直角三角形导线框,两直角边长分别为2L,L,当该线框以垂直于磁场边界的速度v匀速穿过磁场 我 汽车天然气瓶进了空气怎么办?少量空气影响使用吗?就是经常加气,管子里的一部分空气 需求曲线问题(需求曲线的弹性)明天要考微观了,需求曲线的弹性大于一,是一个笼统的说法,还是指需求曲线在某一区间内大于一,小于一.我知道弹性在需求曲线上是不断变化的,无论是弧弹 被困于洪水的人们英语怎么说 蜗牛的质量有多大? 西瓜名称来历? 由于洪水,地面都湿了.用英语怎么说 蜗牛有多大 黄西瓜是怎么由来的 如何用乙醛制丁醇, 世界上最大的蜗牛有多大啊 黑美人西瓜名字的来历? 乙醛如何转化成丁醇? 白居易的诗 【急求】和溶酶体酶发生有关的细胞器为什么没有线粒体?在分泌小泡的运输过程中,线粒体不是要供能吗? 租客伪造房产证卖掉了房子 新\"房东浙江省新增1例人感染H7N9禽流感病美情报局局长指有关美监听事件部分报道日本长崎附近海域发现元朝军队沉船遗骸研究称美国人网购母乳风险高 75%或大型枪击案频发 美拟采新策略应对“活联合国官员称澳森林大火与该国废除碳税芬兰一研究人员拟通过拍摄关注当地避难奥巴马演讲时扶住快要晕倒的孕妇被疑做奥巴马演讲时扶住快要晕倒的孕妇被疑做两股台风同袭 日本气象台长获权发布紧美媒:美9月就业数据不佳为美联储政策英国乔治小王子教父母共7人 多为威廉劝诫移民\"回家\"广告被谴责 英政两股台风同袭 日本气象台长获权发布紧英国乔治小王子教父母共7人 多为威廉美军将撤离阿富汗 价值70亿美元军需分析称政府再停摆凸显美国政治新焦点劝诫移民“回家”广告遭批 英国取消推新加坡消费者花数万元上金融课讲师竟是印度一农民家园遭洪灾破坏 政府仅给一《打狗棍》掀起荧屏“热血风”三季度国内生产总值增长7.8%石市27中开展“中国梦 幸福城”主题省城智能化交通控制大揭秘陈冲:读拉美就能摆脱“土气”吗?电影《周恩来的四个昼夜》获百万奖励那年易水河边人斯诺登:我在“揭黑”永昌骏豪再战保级队河北交通投资集团公司成立GDP绿起来,呼吸才能更放心广州运动员30人次获金牌明年高考加分铁定只有6项周末天晴凉爽昼夜温差10℃给舍友家长写封信26股预告全年业绩正增长鹤洞大桥叕维修 拟花342万换沥青且将文心作虹桥巴西世界杯,“死亡”的气息广州应急避护场所要超1250处招募“棱镜门”记者 eBay创始人办
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘