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

用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秒。
Kendo UI和AngularJS常见问题解析 Elevator.js:模拟电梯运行的“返回顶部”JS插件 Java,传奇的一生! 约吗?Java二十周年特别策划——寻找Java大牛! 走近英特尔软件技术王牌之师:系统技术和优化部门 新兴技术袭来,Web开发如何抉择? 新创社交平台Tsu 5周註冊用户破百万秘訣 Google Play:助力中国开发者的海外梦想 JPHP——一款基于JVM的新PHP编译器 舌尖上的CTO——小杨生煎的持续交付 《近匠》滴答清单,跨平台云同步的任务管理工具 DJI与优酷土豆战略合作:提升UGC价值,先内容再营销 Android性能优化典范(二) 从三大运营商联手 看电视游戏背后的现状 【工具推荐】Vert.x——非阻塞、高并发的编程开发框架 Google搜索在确定结果排名时会将网站的移动设备适用性作为考量因素 W3C首次发布SVG标记、SVG轮廓标准工作草案 第七届中国云计算大会 | 首批主会演讲嘉宾和议题公布(表) 安沃传媒创始人王旭东:开发者从移动广告获利的黄金时代已经来临 【舌尖上的CTO】砂锅馄饨的交付件 微软新Visual Studio Code开发工具支持Mac和Linux 科技新创公司想做大?从CNN记者跳槽Snapchat谈起 Java二十年特别奉献:晒博文、赢大奖! 《近匠》华为创新总监蔡绪鹏:智能手表的三大感知与未解难题 从Samurai-Native框架开发谈React Native Qualcomm公司李申:Vuforia打破AR设备界线 物与物的互通:解析Thread、AllJoyn、OIC、Bonjour的特点 《天龙八部3D》中Unity使用介绍 微软推出ManifoldJS,Web App自动转成各平台本地App 专访庄晓丹:Java程序员眼中的Clojure 全面解析ECMAScript 6模块系统 关于 request的问题 救救小弟! 用javamail发信为何连不上服务器 请大家评论一下这样的团队有无发展可能 如何加密Access数据库,加密后如何使用?谢谢 关于richtextbox问题 打印问题? 关于SetTransform的问题 还我的硬盘空间——老鸟帮帮我!! XP上使用vc6.0有问题 php程序只能放在linux主机的根目录下吗? 关于程序打包 listbox問題 请教文件 坏了,我的D盘怎么自动产生了一个fc2tr文本 结帖错误 php下的xml问题? 内部网TCP/IP失效问题求解!在线等候 怎样将有scroll的form全部抓成图片?我用GetFormImage只能抓屏幕上显示的部分,请帮我。高分求助!不够再加!! 客户端的函数怎么样用客户端用户输入的信息... 怎样改变MC的颜色。 病毒邮件。请问有什么办法解决 帮帮我这个菜鸟! PCI Device 驱动程序? 救我吧. link的时候提示cannot open file "mfc42u.lib"的问题。怎么解决? 如何才能上网呢 请问如何重绘一个应用程序的窗体或内部 Object 的边缘,就像 SPY++ 的 FindWindow Tool 实现的样式?? 救救我,给100分 NT4.0为主域控制器,有办法降级为独立服务器吗? VBA 如何调用 DotNet's WebService ?? dbexpress为什么在插入带自增长字段时候出错? 为什么不同的查询语句会有不同的效率? 我现在要开发一个游戏大厅,谁能帮我提供一些技术参数>?在线等待。 不是水贴:请求帮助,有上海师范大学的请进 紧急!那位有clearcase winnt 4.2 的注册码,高分相送!!!!! 论坛的表格要在注意什么?《我是个菜》 大家帮忙介绍一本书 帮帮我怎么把系统还原占用的空间还给我——老鸟们帮忙! 过滤问题:Query需要先选择一个表(通过ComboBox)然后从2个Edit内输入两个条件 关于stringgrid的翻页问题 寻找电脑方面的朋友 大家好,帮忙做做这题 大家如何保存自己地提问?? JTable怎样一行一行地显示? 我的程序 无边框窗口显示问题 求教各位大虾 VB数据库 如何知道某字段有这个姓名记录? 我想学一种C++的集成环境,是C++BUILDER还是VC 银饰品被海水浸泡变色怎么处理 什么是家庭美德 有人讲了一个《涿鹿之战》的故事,有不少错误,请指出.有人讲了一个《涿鹿之战》的故事:传说在秦始皇以前,我国有一个能干的君主,叫皇帝.有一次,他率领一支精锐的骑兵部队和蚩尤率领的 银饰放在双氧水中泡久了会变黑吗 圆明园毁灭在几年? 涿鹿之战的作用是什么? 如何精确测量溶液的pH值,用什么仪器最快速? 下图木料的横截面积是0.8平方米 长是10.5米 铁道路口标志:黄底,黑边三角形,中间火车,标的是有人看守铁道路口,中间栅栏,标的是无人看守铁道路口上说的是学习内容.书后面的看图选择题:图为黄底,黑边三角形,中间火车.问图中含义 砍棺材啥意思4刀!用菜刀! 3H2要不要加箭头,他不是气体吗 特种作业操作证复审期是多长时间 棺材为什么要上红色? 某工厂排放的废水ph为2,污染环境.若要治理该废水,可向该废水中加入过量的a氯化钙b烧碱c碳酸钙d废铜片!求解! 特种作业操作证复审我是北京人.我的特种作业操作证今年5月份第一次复审,请问去哪复审,怎么复审! 我哥哥生日,我问他把蛋糕上做个什么?他说做个棺材, 废水的ph值为3,若将该废水治理成ph为8时,可想该沸水中加入适量A氯化钠B硫酸C氧化C氧化钙D废铜片 那个特种作业操作证 你复审了吗 活性溴有毒吗活性溴固体杀菌剂有毒吗 记得坐火车的时候,会经过一些小站,会有人拿着两个旗子站在铁道旁,旗子一个是红色另一个是红色,是干吗 北京特种作业操作证错过复审日期怎么办我的电工证08年3月就应该复审 可因为本人的疏忽大意 到现在才发现已经过期 有没有别的方式复审 还是必须得换新的了 我是北京的谢谢 底面积为S的圆柱形容器盛有V升水,容器最底部有一直径为D的小孔,求水流完所用时间t? 科研用的微生物菌种购买在哪好 铁路红黄防护旗的用法 将一底部有细孔的试管插入盛水的容器中,容器的水由试管底部小孔喷入试管,喷出水的高度与容器水面比谁高 溴代十二烷有毒吗? 我国研制原子弹的主要背景是什么 知伯入南里...直坠其履圯上.顾谓良曰:“孺子,下取履这句话是哪里面的?还有译文`` 如何购买微生物菌种 有经验的铁路工作人员在检查火车有经验的铁路工作人员,在检查火车的车轮和支撑弹簧是不是正常时,常用锤子敲敲就会找出故障,这主要时根据声音的()来判断A 响度 B 音色 C 音调 D 是否 圯上敬履 履 下邳的 邳 衣褐的 褐 孺子的儒 愕然的额 殴打的殴 有顷的顷 环氧树脂加热固化过程中是否有爆炸的危险?固化炉是密闭的,里面采用电热管加热,电热管表面温度约400-500度.担心环氧树脂加热后有可燃气体放出,遇电热管会爆炸. 一根长方体木料,它的横截面面积是0.5平方米,长7米,10根这样的木料的体积是多少立方米? 拔一根2m长的长方体木料截成两段,表面积比原来增加60dm2,这根木料的体积是多少立方分米 我的银镯子氧化很严重都黑了,好多年没戴了,用牙膏擦,可是刻画还是黑的啊?也不能用针一点点弄啊 怎么办? 我国的山地和高原多集中在 a.中部 b.东部 c.西部 d.北部 硝酸表现强氧化性时的反应规律有哪些? 手上带银镯子,手挽发黑是, 传说中 涿鹿大战是第几级? 氧化还原反应下列必须加入氧化剂才能实现的是A:Fe3+变为Fe2+ B:二氧化硫变为 硫酸根离子C; 双氧水变为氧气 我觉得应选C 是不是答案错了 今后我国还要实行改革开放的原因?至少四个角度 铁路及火车的供电系统?不明白! 英语翻译良尝学礼淮阳.东见仓海君.得力士,为铁椎重百二十斤.秦皇帝东游,良与客狙击秦皇帝博浪沙中,误中副车.秦皇帝大怒,大索天下,求贼甚急,为张良 故也.良乃更名姓,亡匿下邳.良尝闲从 碳纤维布 怎么加热固化 涿鹿之战产生了怎样的历史影响? 把一根2米长的长方体木料,横截成两个小长方体,表面积增加10平方分米,原来这根木料的体积是?平方分米 我公司有几台设备要做内防腐,要求环氧树脂为E-44,固化剂为T-31,要求做加热固化请教应该采用何种牌号的稀释剂,加热的温度与加热的时间.有熟人有施工经验吗?这种加热具体采用什么加热方 涿鹿之战中的“涿鹿”怎么拼?我问的是拼音!我用搜狗。不知道鹿前面那个字念什么!懂? 怎么把英语听力提上去?多听英文歌有用吗? 布和纸怕什么? 经常在铁路上巡走的铁道工人老赵知道:一辆标准长度的火车以标准速度从后方超过他,火车从他身边经过的时间为11秒,如果火车从前方而来,那么火车从他身边经过的时间为9秒.如果老赵走过 配硫酸需要什么仪器?A.托盘天平.量筒.烧杯B.量筒.烧杯.玻璃棒C.托盘天平.量筒.烧杯D.量筒.托盘天平.玻璃棒,盐酸还有其他酸都是用这些仪器吗? 布和纸最怕什么? 名落孙山中的孙山是否是指1座大山谢谢了, 稀释硫酸需要的仪器除了烧杯和玻璃棒 家庭美德 包括哪些? 甲、乙两人在铁道旁便以相同的速度沿铁路方向相向而行,恰好有一列火车开来,整个火车经过甲身边用了20秒,2分钟后又用15秒从乙身边开过,问(1)火车速度是甲速度的几倍?(2)火车经过乙 良尝闲从容步游下邳中老父的怪异主要表现在哪里? 如何讲家庭美德 "尘归尘,土归土,南方以南, 同济大学与联合国机构合推绿色经济教材全国最大网络传销案终审:维持原判主犯德国政府决定婴儿出生证可填写“未确定洛杉矶机场枪击案嫌犯身份确定 被指曾洛杉矶机场枪击案疑犯写有反政府字条 德国老人中奖1300万欧元 自称通过王力宏王菲樱井翔 揭大牌明星的惊人背土耳其4名女议员戴头巾出席会议 打破日媒:中国调查船驶入钓鱼岛附近“专属休斯敦华侨华人游行抗议美国广播公司歧纽约将购烟年龄限制上调至21岁 禁止洛杉矶机场枪击案嫌犯身份确定 被指曾巴武装人员挖地道埋炸药炸伤以军 巴以伊朗推出第一艘观光潜艇 完全由伊朗专获俄罗斯一大型私营网站聘用 斯诺登开获俄罗斯一大型私营网站聘用 斯诺登开德国政府决定婴儿出生证可填写“未确定巴西恢复全国采用4个区时制度浙大用玻璃制造出可在六个方向上隐身的洛杉矶机场枪击案疑犯写有反政府字条 伊拉克总理会晤奥巴马 望美售武对抗“让世界震惊的九项科技发明惊!蔡伦竟不是造纸术的发明者专家用10年终于破解拉丁文麦田圈美抓走外星人?他在世前公布真相春暖花开,脖子上带点什么才能美出花来手机几乎就是一切的年代,也谈谈手机防穆迪下调中国评级至负面 踩到谁的尾巴疯传视频!我家厨房的『七种武器』 篇一:锅碗瓢有个干农资的老公,是一种怎样的体验?中方望安理会涉朝鲜问题2270号决议美国拟对中国钢材征266%关税 业界济宁:不小心打翻酒杯引发纠纷 小情侣十二届全国人大四次会议山东代表团成立数据控|住鲁全国政协委员都有哪些人?中方:希望日方切实解决超量储存核材料山东交运集团6大客运站春运40天共发济南2016年春运大盘点:客运同比减云南大理对建档立卡贫困人口住院实行全潍坊15万吨以下非煤矿山已全部关闭 东营“被踢男童”母亲朋友圈回应:我选
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘