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

利用VB进行多媒体程序设计初步

HTML文档下载 WORD文档下载 PDF文档下载
利用VB进行多媒体程序设计初步
VB(Visual Basic)具有很强的多媒体处理控制功能,VB的多媒体控制MCI(Media control interface)包括一套控制音频和视频设备但具有与设备无关的命令,用它来进行多媒体设计是很方便的。比如:你也许想拥有一个自己编写的CD播放器,那么利用VB的MCI只需写几行代码就可生成一个功能比较齐全的CD
播放器。下面简单谈谈用VB的MCI进行多媒体设计的初步知识并给出一个非常简单的CD播放器的例子。
在使用MCI之前必须安装好多媒体设备如声卡、CD—ROM等以及这些设备的驱动程序,否则MCI将不听指挥。

一、MCI控制的安装
MCI控制在VB不同版本中的安装方法是不一样的。在VB 3.0专业版中,MCI控制文件为MCI.VBX,在VB 4.0中MCI控制文件为MCI16.OCX(16位)、MCI32.OCX
(32位)。一般情况下MCI控制在启动VB之后并没有加入到工具箱中(TOOLBOX),需要自己动手安装它。

1.VB 3.0中MCI的安装。打开VB的FILE菜单,选择Add File项,从Windows\system目录下找到MCI.VBX,选择OK即可,这时你将发现TOOLBOX最后又多了一个工具,这就是MCI。如果你经常要用它,建议在VB目录下找到Autoload.mak 文件,用字处理软件打开它,把MCI.VBX添加在其中,这样每次启动VB时就将其自动调入。

2.VB 4.0中MCI的安装。VB 4.0支持16位和32位两种系统,在WINDOWS 3.1下只能使用16位系统。MCI不能和VB 3.0中一样用Add File调入,如果你这样做将会发现系统提示错误,需在Autoload.mak文件中调入。笔者打开Autoload.mak文件后发现调用格式为:OBJECT={序列号}#1.0#0;文件名,不知道MCI16.OCX的序列号是无法安装的。幸好在VB目录下的子目录SAMPLE下有一个MCI的子目录,进入它可以看到有一个MCITEST.MAK文件,打开它可以看到有:Object={C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.0#0;MCI32.OCX一行(也许您的序列号不一定和这相同),将这一行复制到Autoload.mak文件中即可。由于本人使用的是WINDOWS 3.1,在安装VB 4.0时32位系统无法装入,硬盘中根本没有MCI32.OCX文件,VB何以将MCI32.OCX调入呢?经试验发现VB以序列号选择文件,可能上述序列号是MCI16.OCX文件的序列号,进一步试验发现即使将序列号后面的MCI32.OCX去掉也可调入,这进一步说明了VB 4.0中一个OCX文件有一个对应的序列号,因此绝对不能改变序列号,否则将无法正确调入所
需的文件。MCI 安装完毕,用鼠标双击工具箱的MCI图标,如果在Form中出现9个熟悉的按扭,那么安装就成功了。

二、MCI的属性和事件
MCI提供许多关于MCI控制方面的属性和事件。比较常用的属性有:
Button visible 决定该按钮在MCI控制中是否可见。
Command 要执行的MCI命令,如Open Close Play Stop Eject等。
Device Type 要打开的MCI设备类型,如动画播放设备、MIDI序列发生器、激光视盘机、WAV文件播放器、录相机等。
Filename 使用Open命令打开或Save命令保存的文件名。
Length 确定一个文件或CD唱片的长度。
Track 指定特定的轨道,供Tracklength和Trackposition使用。
Tracks 当前MCI设备的轨道数。
Tracklength 在当前时间格式下,传回Track所指轨道的时间长度。
Trackposition 在当前时间格式下,传回Track所指轨道的起始位置。
Visible 决定在运行时刻多媒体MCI控制是否可见。

比较常用的事件有:
Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件,
每一个Buttonclick事件缺省执行一个MCI命令。
Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送。
Statusupdate 这个事件可监测目前多媒体设备的状态信息,比如用滚动条来表示当前轨道的位置。详细的属性和事件的用法请参看控制帮助文件。

三、CD播放器的例子
对初学者来说,能利用入门知识编写一个的成功小程序是很鼓舞人心的,下面我们来编写一个非常简单的例子:迷你CD播放器。在MCI调入Toolbox之后,双击MCI工具,将会在Form中出现9个按钮,用鼠标移动这些按钮至合适的位置,然后双击Form窗体,把下面的代码加入到事件中:

Sub Form_Load()
MMControl1.DeviceType = “CDaudio" 'MCI设备类型为CD唱片
MMControl1.Command = “open" '打开设备
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl1.Command = “close" '退出时关闭MCI设备
End Sub
保存文件,在CD驱动器中放入一张CD唱片,然后运行,你将发现九个按钮中Prev、Next、Play、Eject四个按钮变黑(有效状态),点一下Play按钮,音乐出来了!若驱动器中无CD盘则所有按钮都处于无效状态。这样一个简易CD播放器就完成了,它具有四种功能,但自己动手写的代码只有上面加注释的三行。这个CD播放器有点太简单了,下面就看你的了,你可以加入一些文字信息如开发时间、作者、版权等,再进一步学习MCI可加入其他功能如显示播放时间、曲目等。
轻量级的高性能Web框架:Play 为什么会失败?社交鼻祖Friendster的“验尸”报告 那些年Google公开的大数据领域论文 遍地撒网,重点培养,King.com颠覆性游戏商业模式 Adobe正式发布Photoshop Touch图像处理应用 2013年全球重要黑客大会一览 Gartner:2013年公有云将增长18.5%,达1310亿美元 开源炫彩界面库简介 一周消息树:我的十年编程自学之路 移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 互联网巨头公司为何联合开发WebKit? 继Windows Blue:WP8升级或今年圣诞前到来 中国黑客部队攻击美国23家天然气公司 [CTO俱乐部第93期] 移动应用研发及位置在线平台架构分享 TeamToy——开源的团队高效协作工具 2013年数据中心发展的五个关键因素 可穿戴式设备:高调的Google 低调的苹果 由CloudFlare宕机引发的思考 传iWatch年内推出 或成苹果救命稻草 Twitter开源其Java消息流库Hosebird Client API正在崛起 渐成企业核心业务 HTML5会是Firefox OS的生门还是死门? 笨蛋 大家有什么建议吗? ASP.net如何刷新另一个页面 有一年delphi工作经验的程序员在全国各地的待遇如何?哪个城市有发展前途(钱途)? 100分求解!!!这个问题大家都来看,来者有分!!! 告诉我几个地方,给你几十分,简单吧 :-) 有没有关于VPN的书籍 Interbase源码分析 西瓜是Plmm哎~! 一个字符串替换的小问题。。。 还有一个问题需要问大家。。。特别急。。。 我变成了大家的一员 哪儿有在jbuilder中让三键鼠标可以使用滚动功能的驱程? 我想把ODBC的所有数据源列出来显示,不知道用哪个函数,谁能告诉,多谢了!来就有分 两台机器怎样用一个asdl宽带猫上网 我的vc编译器在我的一个程序就是不出自动变量填补功能,在其他程序上可以,不知为什么 我想把ODBC的所有数据源列出来显示,不知道用哪个函数,谁能告诉,多谢了!来就有分 怎么复制程序自己? 小小问题 我喜欢在等人的时候抽根烟!(在车站接哈尔滨来的哥们) 我想把ODBC的所有数据源列出来显示,不知道用哪个函数,谁能告诉,多谢了!来就有分 如何在SQL服务器端编程截获SQL客户端从工作站机器上的登陆 大家的公司都用ASP做什么?????我一直想问这个问题。 我只有 .ora文件,怎样恢复数据库? 急 关于游戏编程! J2EE的配置问题!! 请帮忙 !!!多谢了!一定给分!!!! 什么类型的共享软件最挣钱? 请教各位大虾一个DLL问题 如何恢复oracle数据库,先安装好oracle,之后再安装了develop2000,修改了oracle_home后oracle就启动不来了。 SDI程序中,如何在MainFrame里,得到文档的指针? Delphi入门提问 请教各位大虾一个DLL问题 是输入IE网址不对还是Apache对该文件common.jsp设置了访问权限? ${java_home}/.. 在国外发布的共享软件如何收钱? 实在不知道现在企业都是怎么招人的! 世界上会有简单而没有伤害的爱情吗? 急!!!如何将一个结构对象转成LPVOID 有XP的控件吗? 天!问卷调查竟是这个样子的! 一个很EASY的问题 注册表的问题,如何导入注册表文件? 提几个小问题,高兴,顺便散分!910优先! 程序员最大的痛苦莫过于有一个混蛋领导,同意者跟贴! 如何使一个软件系统有随时可以增加新功能呢? 哪位大虾有lotus 123 的api或开发相关的文档或网站,请赐教,谢谢!! 你见过这么奇怪的问题吗!!急!! 谁能说说ActionManager,ActionMainMenuBar,ActionToolBar这三个控件的具体使用方法啊? 怎么实现pchar到string的转换 请教三个新控件的使用! VC.net资源问题.有效回答给分! 磁现象的本质 磁场的基本性质是他对放入其中的磁体------ 八年级上和八年级下 物理总复习的测试卷要有答案 磁的本质是什么?磁的本质是什么,是能量的表现?还是什么? 那些实验需要预实验 怎样区别二氧化锰和四氧化三铁 “磁现象的电本质“是什么意思?(要超详细) 酒精能否与盐酸反应?快 为什么不能用蒸馏水区别四氧化三铁与氧化铁 求这个生物实验原理把紫色的牵牛花放入盐水里,牵牛花变蓝了 另去一朵,放在醋里,它变红了 盐酸和酒精反应生成什么?如题 怎样区别二氧化锰和四氧化三铁,用物理性质是否无法区别? 原理是什么? 磁场的本质到底是什么?分子电流怎么产生磁场?如果有个质量很大的质点运动,它有万有引力,它会产生类似磁场的物质吗不要复制教材上的话. 相对分子质量怎么算了,公式? 三氯甲烷哪儿里的好呢 养鱼的水中酵母菌放多了, 磁场的本质是什么是运动电荷吗 但是不是还有麦克斯的电磁场中的变化电场吗 那里又没运动电荷哦 减压蒸馏操作要点在减压蒸馏前,我调到我需要的压力后,开始加热蒸馏,在这个过程中,水银压力计有变动,请问,我需要及时调节我的真空泵来控制压力吗?我现在需要得到128-138度/400.0帕的馏分,( 我养的热带鱼怎么老会死啊,请问怎样养鱼才能不死?请养鱼专家帮我指点指点! 初三化学 酒精溶液的溶质是什么?酒精溶液的溶质是什么?那么96%的酒精溶液的溶质呢? 使用水泵减压蒸馏时,因采取哪些预防措施? 酒精喷灯与酒精灯的区别? 70%的酒精是溶液吗?如果是,那溶液溶质各是什么 使用水泵减压蒸馏时应采用什么预热措施 磁现象的本质是什么书上说是分子环流可那种物质不是分子原子组成的呢为什么只有少数物质可以导磁呢 盐酸与二氧化碳能发生什么化学反应 三氯甲烷有什么用途? 高中所有生物实验 一切磁现象,其本质起源于什么? 三氯甲烷起什么作用 谁有高中所有的生物实验最好有具体的步骤我这正好 100分你整理完我一定给你不过可别等到高考后 酒精的溶质是什么? 各科学家研究各问题时所用的试验方法(高中生物)麻烦全部列举一下, 需要用活细胞做实验的有哪些实验 酒精溶液的溶质是 求:有关生物科学家在实验方面的名言? 减压蒸馏得到油状物如何重结晶油状物不溶于石油醚易溶于甲醇 为了防止硫化氢、二氧化硫污染空气,可将气体通入()A水B酒精中C浓硫酸中D氨水中 高中生物书中的科学家有什么阿?包括涉及的实验...包括实发明的东西和实验 甲醇里含有3%的水份,减压蒸馏可以脱水吗?有什么其它办法吗? 氨水和酒精能反应么最近看柯南...里面说氨水和酒精能反应...可以么 在高中生物中,哪些科学家的什么实验是用的假说演绎法? 磁勺子的勺把实质上是磁体的哪极?(南还是北?) 现有①铁片②NACL③氨水④醋酸⑤酒精⑥盐酸⑦浓H2SO4⑧KOH⑨蔗糖⑩H2S属于电解质的是?属于非电解质的是?属于强电解质的是?属于弱电解质的是? 河水可以养鱼,说明河水中含有(),它-----(是或不是)溶质,碘酒和河水都属于()物 美国真的实验打开了异度空间跑出了生物?这条是真的吗 物理水在壶中被加热,又从凉铁板上掉下来的水是蒸馏水,如何产生更多水滴?啊 河水中能养鱼说明水中有以化合物形式存在的什么元素? 磁体为什么有磁性 水和酒精混合后溶液中的溶质是什么? 溶解在海水中物质所有原子分子离子. 美国生物学家做了两次生物学试验,结果失败了,请问是什么试验?将人工的沙漠,河流,农田,动植物,科学家,用玻璃温室将其与自然界隔绝,结果不到两年,由于种种原因,试验失败了,请问是什么试 成功 单元检测 物理八年级上答案有没有?哎呀,愁死我了,拜托帮帮忙吧,谢谢了 我需要八年级的下册的物理的知识要点 磁场是否只存在磁体周围? 凤凰中学八年级物理下期末测试(一)答案 磁的本质到底是什么,为何有磁场 高中生物 有哪些重点实验! 八年级物理《随堂》(人教版)第二单元检测卷的答案!快……
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘