登陆注册
13955600000030

第30章 多媒体程序设计(3)

①在VB程序设计窗口的【工程】菜单栏中,单击选择【部件】,打开【部件】对话窗口;

②在部件对话窗口中选择“MicrosoftMultimediaControl6.0”选项;

③按确定按钮,工具箱中将增加一个MCI控件。

采取以上方法后可看到在工具箱的尾端增加了一个图标,即MCI控件的图标。可以像绘制其他控件一样,在窗体中绘制MCI控件,它类似于一个录音机的按钮,不过此时出现的按钮呈现浅灰色,表示还没有激活这个对象。MCI控件上的按钮从左到右依次为:上一首(Prev),下一首(Next),播放(Play),暂停(Pause),倒带(Back),步进(Step),停止(Stop),录音(Record)以及弹出(Eject)。

【例7.6】

用MCI控件播放CD音乐。

要用MCI控件播放CD音乐,首先要在窗体中加入该控件,然后在Form_Load事件中加入下面的程序,启动媒体控制对象。源程序如下:

PrivateSubForm_LoadMMControl1.DeviceType=“cdaudio”’告诉MCI要使用的多媒体设备类别

MMControl1.Command=“open”’要下达“Open”指令后,媒体控制对象才能使用

1是默认的媒体控制对象名,可以在属性窗口中进行修改。这个程序非常简单,此时只要按下黑色的\[Play\]按钮即可播放CD唱片。

在这个例子中,人们会发现媒体控制对象上有几个按钮呈灰色,无法使用。这是因为其AutoEnable属性的缺省值为True,此时媒体控制对象会随时随地监测所指定的多媒体设备的状态,并自动决定按钮的状态。对于CD音响设备,\[Step\]、\[Back\]和\[Record\]功能无效,故按钮为灰色,无法使用。而\[Pause\]和\[Stop\]按钮在\[Play\]按钮按下后变黑,使用户可以暂停或停止音乐的播放,同时\[Play\]按钮变灰,处于无效状态。

Autoenable属性虽然可以自动监测并设定按钮的状态,但它不会自行将无效的按钮从媒体控制对象上移走,要做到这一点,可将按钮相应的Visible属性设置为False。例如:

此三条语句可将\[Step\]、\[Next\]和\[Record\]按钮从媒体控制对象上移走。此外,如果不想系统自动监测,可以将AutoEnable属性设置为False,设定按钮相应的Enable属性,迫使其处于有效或无效状态。例如下面两条语句:

这两句可以使\[Play\]按钮有效,使\[Record\]按钮无效。

【例7.7】

在MCI控件的ButtonClick事件中,若将Cancel参数设为True时,系统不执行按钮代表的MCI指令,而是直接执行事件过程中的语句。例76中的程序改为如下:

此时执行程序,单击【Play】按钮并不能播放MIDI音乐canyon.mid,而是在消息框中显示“Playbuttoncancel!,不能播放”。因为在PlayClick事件中,将Cancel属性设置为True,所以媒体控制对象就没有执行按钮对应的play命令,仅执行事件过程中的语句。

【例7.8】

设计应用程序界面。

首先创建一个新的工程文件,在窗体中加入一个MCI控件,对这个程序来说,MCI控件的“录音”和“弹出”按钮是不需要的,可以在多媒体控件【属性页】对话框的【控件】选项卡中将这两个按钮的可视属性的对勾去掉,此时该控件中这两个按钮就会消失。接下来,在窗体上添加一个PictureBox控件作为播放视频文件的地方,再添加一个CommonDialog的控件,以显示“打开文件”对话框,方法是,单击【工程】菜单中的【部件】命令,弹出【部件】窗口,选择MicrosoftCommonDialogControl6.0控件。

添加CommonDialog控件到窗体后,在该控件上单击右键,选择快捷菜单的【属性】项,系统出现【属性页】对话框。接着修改各项参数,如图72所示。

图72CommonDialog控件属性对话框同时,还需要一个定时器控件和两个按钮控制文件,分别是“打开文件”、“关闭文件”,并将定时器的Interval属性设置为50ms。最后再添加一个滑块控件,方法是单击【工程】菜单中的【部件】命令,弹出【部件】窗口,选择“MicrosoftWindowsCommonControls6.0”控件。这时工具箱中会多出几个控件来,其中有一个控件名为“Slider”,就是滑块控件,如图73所示。

最后一步,将窗体上所有控件都调整好位置,调整好后的设计窗体如图74所示。

编写代码如下:

OptionExplicit

PrivateSubCommand1_ClickMMControl1.DeviceType=“AVIvideo”’设定使用设备类型为AVIvideo。

CommonDialog1.ShowOpen’显示“打开文件”对话框

MMControl1.FileName=CommonDialog1.FileName’MCI控件打开的文件

Picture1.Visible=True

MMControl1.hWndDisplay=Picture1.hWnd’设定Picture1为演播舞台窗口

MMControl1.Command=“open”’将播放设备打开

MMControl1.From=0’指定播放位置

MMControl1.Command=“seek”’在打开的文件中,设置下一个操作位置

Slider1.Min=1’设定Slider控件的最小值为1

Slider1.Max=MMControl1.Length’设定Slider控件的最大值为媒体文件的长度

Slider1.SmallChange=MMControl1.Length/20’单击键盘上下键时变化长度

Slider1.LargeChange=Slider1.LargeChange=MMControl1.Length/10

单击PageDown或PageUp时的长度

PrivateSubCommand2_ClickMMControl1.Command=“close”’关闭播放设备

Picture1.Cls’清除Picture控件中的内容

PrivateSubTimer1_TimerSlider1.Value=MMControl1.Position’设定滑块的位置等于媒体文件的位置。

EndSub

7.5调用API函数开发多媒体程序

使用MCI控件开发Windows系统下的多媒体程序,具有简单、快捷、方便的特点,但在实际程序设计中,常会碰到一些利用MCI控件不好解决的问题。例如,VB语言不包含语音支持、I/O端口访问以及位图操作等。为适应不同层次程序设计人员的要求,VB提供了直接调用Windows的API函数的功能,通过调用API函数,可以实现对系统的各个层次的功能调用。

7.5.1VB的APl函数调用

同类推荐
  • 信息技术教育大全-计算机网络

    信息技术教育大全-计算机网络

    信息技术教育大全-计算机网络信息技术教育大全-计算机网络信息技术教育大全-计算机网络信息技术教育大全-计算机网络信息技术教育大全-计算机网络信息技术教育大全-计算机网络信息技术教育大全-计算机网络
  • 《Internet实用技术》作业集

    《Internet实用技术》作业集

    随着计算机应用的普及和社会信息化水平的提高,Internet已走进我们的生活。《Internet实用技术》这门课将带领我们走进网络的神秘殿堂,让我们认识网络,了解网络,进而学会使用网络,维护网络。其范围涵盖了在授课过程中所讲授的内容,题型多样,内容丰富,并附有两套模拟题,最后附有答案。学生可按照课程进度做习题来巩固和掌握知识。本作业集由李琳编写,由西北工业大学网络教育学院负责组稿和审定。因为时间仓促,水平有限,错误和不当之处在所难免,敬请读者批评指正。
  • 互联网创业前奏曲(第二部)——网站运营之人性、策略与实战

    互联网创业前奏曲(第二部)——网站运营之人性、策略与实战

    本书是《互联网创业前奏曲》系列的第二本书,是作者多年互联网实践经验和业界观察的总结,是国内罕有的关于互联网网站运营和用户心理结合的书籍,用通俗的语言阐述互联网运营背后的人性驱动。你想互联网创业吗?你是否在为找不到好的互联网运营策略和方法而发愁?你非常想了解互联网行业?你是否在为自己不了解互联网运营而苦恼?本书针对这些问题列举了很多互联网运营的案例,帮你制定运营策略,更好的修炼和提升运营功力。
  • 如何建设网站

    如何建设网站

    本书以问答的方式介绍了建设网站的基本知识,内容包括:网站设计的八个步骤、建设网站需要掌握的工具软件、网页中插入图像、在网页中隐藏内容等。
  • 纵横于天地之间——互联网络技术

    纵横于天地之间——互联网络技术

    本书告诉你:不管你是谁,只要生活在当前的时代,你一定知道电话,知道电脑,知道上网……知道许许多多关于电子、关于计算机、关于网络的话题,这就是网络时代。网络的话题可多了:它是怎么来的?什么是“蜘蛛网”?网络的过去和现在,上网的方法,如何使用网络,互联网的安全,网络有“陷阱”吗?网络有“瘾”吗?网络文化和未来又是怎样的?到书中去找答案吧!
热门推荐
  • 我希望你停下你的脚步

    我希望你停下你的脚步

    春风和煦,满校馨香。大片大片的粉杏绵延绽放,远远望去似一条条白里透红白的锦带,洋洋洒洒分外娇艳。
  • 恶魔娇妻:极品总裁霸道爱

    恶魔娇妻:极品总裁霸道爱

    她,原是高高在上的顾家小姐,但别人迫害,顾氏企业一夜之间宣告破产!她,从云端跌落,一时尝尽人生苦难。总裁说,“你没钱,我给你!你没权,我的权就是你的!没人宠你,我宠!所以,从今往后,我,是你可以依靠的人。”顾玖汐微笑,“既然这样…你的好,我就勉为其难接受了!愣着干什么,快带我去happy啊!”
  • 一屋子烟味儿

    一屋子烟味儿

    八十年代末期,女主人公梅影,那一年她未满十九岁,她性格叛逆,豪放不羁,骨子里生就一种江湖情结,虽性情偏执却又重情重义。经历过大学校园的生活、恋爱和过早的怀孕、堕胎,她从最初对爱情的迷茫、懵懂,到后来因为对一个男人声音的迷恋,从而展开了一系列分分合合的痴缠绝恋。她有过一段家庭安排的婚姻,因为她古怪的性格难以融入对方的家庭,在离婚后,她毅然辞去了从前夫家“赐”给她的工作,在那个改革的年月里,她尝尽了艰辛。后来与六年前的恋人冷旭重逢,正当她沉浸在爱的甜蜜里时,男孩却因一场意外离去。于是她心灰意冷远走他乡,却又在西北一个城市里巧遇了她曾经迷恋了十二年的那个磁性的嗓音,他叫林雨默,他们曾于十二年前在峨眉山的一家医院相遇,她问他要了一支烟,那一年她十八岁,他三十了,一个轮回的差距她没能赶上,她将他埋在心里,那时候她很胖很丑,她觉得没有男人会真正爱她。可是十二年后,她蜕变了,她从一只丑小鸭变为了一只天鹅,而他,竟是已认不出她了……整部小说围绕着一支烟、一次彻骨之爱,一段轮回之恋来描述,故事非常精彩且感人,文字细腻动人,不乏美感,语言也比较脱俗且幽默,跳出了传统的写作模式,给人耳目一新的感觉。
  • 倒计时五十二天

    倒计时五十二天

    【位面百年等于外界一天】傅怜被系统坑蒙拐骗到了三千世界,最初不知晓系统的底细,扮乖装软,一步步将系统控制住。【伪乖软少女真大佬傅怜和占有欲超强江祈之间的甜甜恋爱】
  • 唐砖之穿越时空

    唐砖之穿越时空

    想改写唐砖电视剧结局吗,虽然,大家会觉得很扯,但我很想给唐砖一个比较完美的结局。透露一下剧情,唐砖电视剧大结局前是赵海和云烨为男主,后面续写是以云烨和李安澜为主,这个大家可以放心!希望大家可以多多支持我的文!谢谢大家!
  • 剑渊

    剑渊

    一座孤岭中的玄天九重塔,一柄深渊中的漆黑墨剑。一个身怀神技的邪气少年,一段传奇的异世人生。持天为剑,踏地为渊,且看我如何凭一己之力,斩尽乱世群魔!
  • 超神移植

    超神移植

    叮,您获得移植系统呃……翻译一下敌人哪里强就移植哪,不选最适合的,只选最强的组件,融合强大于一身,成不败无敌之体。魔神?他是无敌的么?但这个世界并不是一帆风顺,更非无脑横扫,强大的魔兽,阴险的野心家,嗜血的海盗,接踵而来!
  • 天下大任

    天下大任

    商离从沉睡中醒来看到不远处一只穿着古装的猴子正拿着他不久前才买的iPhone砸核桃。正当他痛心疾首之时眼角却扫到了一旁山洞边上金灿灿的五个大字“斜月三星洞!”商离:“猴子,你怎么出生的!”猴子:“石头里蹦出来的。”商离:“.........!西游记?孙悟空?几千年前?我一定是在做梦,让我赶紧再睡会,等会还要上班呢!”
  • 幸福往事之生存

    幸福往事之生存

    在上个世纪的八九十年代,改革的浪潮席卷了整个中华大地,各种新的思想,新的观念冲击着人们,让人们的生活出现了巨大的变化,它让人们的工作,爱情婚姻家庭产生了波动,甚至出现了短暂的混乱。这种现象也深深地影响着洞庭湖中一个小镇人们的生活,那里被一度被称作洞庭湖的“小香港”。在这个小镇上,生活着一群朴实而又渴望追求新生活的人们,他们对爱情,对家庭充满渴望。
  • 周恩来的最后岁月(1966-1976)

    周恩来的最后岁月(1966-1976)

    本书从政治、经济、外交等方面选取了一组反映周恩来在“文革”时期重要思想和活动的文章,包括他倾尽心力、辗转周旋地保护一大批党和国家的领导骨干、民主人士和知识分子;他费劲心思地维持社会经济稳定发展,保证特殊时期的生产建设正常进行;他不遗余力地协助毛泽东粉碎林彪、江青等人妄图夺取最高权力的阴谋;他全力辅助毛泽东积极落实和促成邓小平接管中央工作,促使中央日常工作一如既往地运行;他用高超巧妙的外交政策开启中美两国的友好之路,促使中日走向正常的外交交往。