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

利用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可加入其他功能如显示播放时间、曲目等。
Android手机参数表 用jQuery改变图片(image src) 用std::atomic實現簡單的讀寫鎖 ChinaPay网上支付网关.NET开发 VOB生成IFO文件用nero刻录DVD详解 15款开源Android游戏引擎(安卓免费游戏引擎) 将MVC ASPX转换到Razor视图 Word设置目录简明教程 asp.net mvc页面javascript代码中如何使用razor Discuz X论坛数据表结构:用户数据表pre_common_member boost在windows平台下自带超强 IOCP 的ASIO Boost下载和编译安装简明指引 Windows和Linux环境中Boost下载安装编译配置使用指南 Android开发技巧:Android常用类库说明 Android开发技巧:Android 文件系统 Android开发技巧:Android应用程序架构 ASP.NET MVC Razor 输出没有编码的HTML字符串 ASP.NET MVC 3 Razor 在head里包含js文件 JQuery mobile介绍 JQuery Mobile 页面结构 什么是云计算的通俗理解 什么是Hadoop以及与云计算的关系 创建一个Windows Phone 7推箱子益智游戏 好用的在线编辑器百度UEditor ASP.NET如何从URL或route数据中得到controller类型和action信息 Discuz X论坛数据表结构:论坛主题数据表pre_forum_thread Discuz X论坛数据表结构:论坛帖子数据表pre_forum_post jQuery UI 消息框(message box)的使用 kmp算法中的求Next()函数的算法 ASP.NET MVC3 如何将DataTable绑定到Html.DropDownList PHP调用COM组件 在Windows2000下安装J2EE和部署J2EE应用程序的问题 我在易趣上竞的一个数码相机,只要250元,但是只能拍26张相。我不知道是真是假? 如何使用C访问SYBASE数据库? 分可能不够,可以再加。在线等待中..... Win2000(繁體) + Tomcat4.1.24 + Oracle8.1.6 的數據庫資料顯示亂碼解決問題!100 100分求《Programming Jakarta Struts》这本电子书 如何设置某指定目录的属性 关于JB的简单问题,谢谢. 请大家谈一下win2000下VPN技术的实现 有关Libpcap的编译问题!急! .bak文件?请指教。 KMP算法求解~!!! 如何实现在线订购? 关于升级机器的问题 如何在Image中放大缩小一个WMF文件?还有如何去拖动这个放大缩小的WMF图片呢? 高手请指教 请教:如何由ip获得访问者所在地区 哪位兄弟教教我,如果实现自适应静音检测? 一个B-S结构的售楼软件的报价大致应该是多少? 我的确是做了错事,我决心去努力,但似乎力不从心? 100分 求《UML与Rational Rose从入门到精通》 急!各位高手关于要把多个DC放到一个pDC上显示的问题。 急。关于ppc和sybase的问题 请问编一个WINDOWS画笔 谁有c434009A主板的驱动程序。 请问在windows下如何实现像数据库一样的读、写锁? 为啥我在InstallShield中调用DLL中的函数总是出错呢? 如何能在HTML控件显示区域显示“....(指定的文件名)不存在”? 请问如何把TIF格式转换成JPG或GIF的格式?? 代理不能定时执行,请指教,谢谢。 怎样与外部数据库建立联合查询? 如何接受来自vbscript的字符数据列表 怎么在Gtk+的gnomemessagebox显示中文? (在线等待,急!)在vc中怎么使用datagrid控件 我使用的是odbc访问数据库 好急的问题,有关于SMS的接收字符处理问题,想了好几天没有结果 那位兄弟手头上有ASP.NET高级编程的电子书? DataGrid 控件问题,帮帮我把,朋友! automount? 一个比较难的问题! 关于datagrid的问题 在线等待 在cmd编辑器中用java运行已编译的文件运行不成功怎样解决 各位帮我解决一下这个问题!!!谢谢 关于ResourceManager的疑惑? 两台机器无法访问? 大家有没有听说过zebudom.js这个javascript的API?请问哪里可以下载它? 模块的连接 如何用php开发一个在线语音聊天室? 请问:有谁能提供Microsoft Project 2002简体中文专业版下载地址????急用!!!!!! 《The C++ Programming Language》有没有中译版? 请高手帮我看看: session的范围 十一月四日风雨大作 僵卧孤村不自哀,尚思为国戍轮台 夜阑卧听风吹雨,铁马冰河入梦来 这是谁写的 某工人在一定时间内加工一批零件,如果每天加工44个,就比规定任务少加工20个;如果每天加工50个,则超额10个.求规定加工零件数和计划加工天数?(一元一次方程)如果可以的话我追加 人们将不愿意做那样的工作,将会感到厌烦 用英语怎么说 UFO有多大(请天顶星回答 ) 十三岁的际遇中“两岸风景交换”整句的意思 质量是物体的属性可以用什么实验证明?(除天平,写下实验步骤) 怎样提高语言组织能力,会辩论,我有自己对某件事的观点和看法,可是跟别人一辩论什么都说不出来了. 十一月四日风雨大作 夜阑卧听风吹雨的巧妙之处 马和驴故事的寓意 12字以内 在辩论在如何迅速思考.进而组织语言呢? 夜阑卧听风吹雨 铁马冰河入梦来.描写的是哪个季节的雨...还有 "七八个星天外 ,两三点雨山前" 、"问君归期未有期,巴山夜雨涨秋池" 各是描写哪个季节的雨 .急 马和驴子的故事有什么启示?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道理呢? 要通过什么样的训练才能让思维敏捷,就是别人说完话我马上就可以说出反驳人家的话,像辩论那样 请问 咖啡猫 翻译成英语是怎样的? 马和驴子的那个故事告诉我们什么道理?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道 辩论高手进:急求四辩怎样做能够和团队成员达成一致以及怎样在答辩中能获得主动权呢?我第一次参加学校的辩论赛,辩题是【学风建设 正方:以学校管理为主导 反方:以学生自觉为主导】 十一月四日风雨大作 僵卧孤村不自哀,尚思为国戍轮台. 夜阑卧听风吹雨,铁马冰河入梦来.诗中前两句“僵”一“孤”写出了诗人当时什么的处境;一个“思”字又集中表现了诗人什么的情感. 请问天秤有分几种性格啊?我是天秤女,我的感情路总是不顺,请问为什么呢?而且我的人缘方面总是时好时坏的,这又是为什么呢? 低碳的魅力语句(吸引人的语句)5句 借风雨抒发感情的诗句有哪些?类似“夜阑卧听风吹雨,铁马冰河入梦来.” 在图书馆,新生小林想借一本名著 你向他推荐 朝花夕拾 .下列不能作为推荐语的一项是 来看啊A.这本书记录了鲁迅先生的一些往事留下了他成长的足迹给人很多启发值得一 僵卧孤村不自哀,尚思为国戌轮台是陆游的那首诗? 庄子的《秋水》这则寓言,也许你能从中受到不少启发,请谈谈自己最深的感受? 在图书馆,新生小琳想借一本名著,你向她推荐《朝花夕拾》.下列不能作为推荐语的一项是( )A.这本书记录了鲁迅先生的一些往事,留下了他成长的足迹,给人很多启发,值得一读.B.我喜欢这 禾诗电子称、茗泰电子秤和德宝电子称哪个好?是要送我的麻麻礼物,希望用过的给给意见,听说有的很耗电什么的。我想要个耐用点的,但是本人还是学生,还不能承受太高的价格。 陆游的“僵卧孤村不自哀,尚思为国戍轮台”与曹操的哪句诗相一致 朱门酒肉臭,路有冻死骨”欲穷千里目,更上一层楼"“谁知盘中餐,粒粒皆辛苦”各打一成语 为什么今天我听到南无观世音菩萨的佛号特别想哭听说今天是观世音菩萨的圣诞,为什么听到佛号特别想哭%>_ 由《十一月四日风雨大作》中“尚思为国戌轮台”,你能想到陆游哪一首的诗句? 谁知盘中餐 打成语 我念阿弥陀佛佛号时哭了是怎么回事? 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来.的诗名 猜成语谁知盘中餐 为什么听灵岩佛号会流泪 僵卧孤村不自哀,尚思为国戍轮台.夜阑卧听风吹雨,铁马冰河入梦来. 全诗抒发了作者强烈的--------- 曾参中参的读音 一辆汽车从甲地开往乙地2小时行90千米,用同样的速度再行驶3小时到乙地.甲地距乙地多少千米? 辩论:道德比利益更重要的1辨稿 楞伽经谁懂里面的意思 我想知道楞伽经谁懂 我想知道 求天顶星回答:宇宙是有方向的吗?地球有方向,是因为有南北极.那么宇宙呢?如果有,是否说明它也有南北极?如果没有,那么天文学说的天体的公转、自转又是以什么为坐标的呢?众所周知,评价 x / 2 - 5x+11 / 6 =1 + 2x-4 / 30.1x-0.2 / 0.02 - x+1 / 0.5 = -3 有懂字体的高手吗,我想知道这是什么字体,有点急, 天顶星,快来在百度常常看到“天顶星”这个人,貌似很懂天文一样!上百度就经常看到他,称号是“天顶星”有脾气你过来呀! 一元一次方程2道,(1)2(x—2)—3(4x—1)=9(1—x) (2)3分之(2x—1)=5分之(1+4x)—1第2题打扩号的表示是分子. 底面半径8厘米的圆柱形容器与底面半径12厘米的圆锥形容器深相等,把圆锥体容器装满水,再把水倒入圆柱体容器内,水深比圆锥体容器的六分之五低2.5厘米,圆柱深几厘米 天顶星,救救若双星仙女座γ星的两子星的目视星等分别等于2.28和5.08,该双星总的目视星等为(). (A) 1.57 (B) 2.2 (C) 2.8 (D)7.36 火星离地球最近时的角直径为24",用F=19.5米的折射望远镜所摄得 在《加菲猫》漫画中,加菲猫最怕哪三件事? 我敬佩的一个人 400 你不会因为以前见过你的朋友就不愿再见到他了吧?改为陈述句 《十一月四日风雨大作》中诗人产生“铁马冰河入梦来”这一梦境的原因有哪些?““夜阑卧听风吹雨””中的 我敬佩的一个人作文400 王宁严肃地对明明说:“如果你再迟到,我就一个人去”改为间接叙述如题、 一元一次方程,第一题:学校准备添置一批课桌椅,原计划订购60套,每套100元,店方表示,如果多够,可以优惠,结果校方够了72套,每套减价3元,但商店获得同样多的利润,求每套课桌椅进货价格是多 人们将不愿意做那样的工作,将会感到厌烦 英语怎么说 王宁严肃地对李明说:“如果你再迟到,我就一个人去!” (改成间接叙述) 一元一次方程···高手帮忙哈··用一根长60米的绳子围出一个矩形,使它的长是宽的1.5倍,长和宽各应是多少? 加菲猫在现实生活中是哪个品种提前说谢谢了哈 新科技馆一游,写一篇观察记录,结合自己感受,以"科技在我身边,__与我同行"为题,写一篇600字作文. 几道关于初一奥数的一元一次方程:1.若abc=1,解方程 2ax 2bx 2cx________+________+________ =1ab+a+1 bc+b+1 ca+c+12.若a,b,c是正数,解方程 x-a-b x-b-c x-c-a_______+_______+_______=3c a b3.设n为自然数,(x)表示不超过x 像河南、陕西、河北、山东、山西等等这样的省份地形分划最早在哪个朝代形成了?我记得好像是元朝吧,山西,河南河北、陕西的省份地形已经成形了 外交部:中方对伊朗与国际原子能机构间日本一公司办公室内种160多盆大麻草世行报告:俄罗斯在营商环境排名中前进美国脱口秀主持人就“杀光中国人”言论外交部:中方将为推动两苏关系持续改善“基础四国”在杭共商应对气候变化并发浙江杭州一高校起火 300名学生紧急美驻吉尔吉斯使馆收到不明信封 内装白巴基斯坦女警被曝职场路艰辛 受性别歧日称中国海军2艘军舰经日本先岛诸岛毗亚太地区主要股市涨跌不一《世界新闻报》窃听案开庭 涉及政要、边\"开刀\"边造绿 杭州投10个亿温州苍南首起“地沟油”案制造者被判刑日本一公司办公室内种160多盆大麻草德国联邦议院将召开特别会议商讨美监听泰国明年起拟向游客征收入境税 逗留3武大伟访美并与美方就朝核及重启六方会工信部:国内手机用户超12亿 移动上中俄等国已向联合国提交信息安全国际行澳大利亚新政府称将继续禁止华为参与网“益动社区”支持项目公布“三生”共赢 绿色发展显活力凉亭堆满柴火 居民担心火险隐患物业清理僵尸车却遭业主阻拦市民凭感觉过马路一组照片看马尾十年变迁管好“坏”胆固醇锄报台价值近5万元大礼 今日等你来扫寒假,跟着山地“牛人”去滑雪!就要做“福州版马云”“短命”限高架 上岗首日被撞断“爬冰”救命六好友合买中奖880万元抱怨单位寒碜 想尽办法捞钱媒体:王岐山调研地方前该地常有“老虎印尼:南海出现浓烟报告无法证实 无客日本炒作中国军演的三重居心(望海楼)每天接待游客近千人 黑龙江“虎林园”新疆乌苏市举办迎新年书画展丰富群众文新疆乌苏市“访惠聚”工作队引导村民走
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘