【教学课件】第15章VB多媒体编程初步.ppt

《【教学课件】第15章VB多媒体编程初步.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第15章VB多媒体编程初步.ppt（25页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、大学计算机基础教程TaiYuan University of Technology第第1515章章 多媒体编程初步多媒体编程初步Visual Basic 程序设计教程程序设计教程本章介绍：本章介绍：文字效果文字效果播放动画播放动画为应用程序定义动画精灵为应用程序定义动画精灵多媒体多媒体MCI控件控件RealAudio Active控件控件Microsoft ActiveMovie控件控件2 和前面各章一样，我们先来看一个和前面各章一样，我们先来看一个MP3播放器的播放器的例子。界面效果如图所示。例子。界面效果如图所示。在程序中，使用了通用文件对话框在程序中，使用了通用文件对话框CommonDi

2、alogCommonDialog和控制播放进度的控件和控制播放进度的控件滑动条滑动条SliderSlider以及以及VBVB的多媒体控件的多媒体控件MMControlMMControl。使用定时器控制滑动条的。使用定时器控制滑动条的进度。其中多媒体控件、滑动条控件进度。其中多媒体控件、滑动条控件分别在分别在“部件部件”中的名称为中的名称为Microsoft MultiMedia Control 6Microsoft MultiMedia Control 6和和Microsoft Windows Microsoft Windows Common Control 6.0Common Control

3、 6.0。3 文文字字处处理理功功能能是是多多媒媒体体技技术术中中的的一一个个重重要要内内容容。在在VB中中，一一般般的的文文字字效效果果如如立立体体字字、色色彩彩或或者者字字体体变变大大变变小小等等，都都是是编编程程实实现现的的，相相对对也也比比较较简简单单。对对一一些些较较为为复复杂杂的的如如美美术术字字、字字体体旋旋转转、颜颜色色渐渐变变、竖竖排排等等，都都需需要要使使用用API技技术术。API技技术术不不在在本本书书范范围围，因因此此我我们们这这里里简简单介绍文字的程序处理。单介绍文字的程序处理。41立体文字立体文字在窗体（或对象）上立体文字的显示，是将同一个显在窗体（或对象）上立体文

4、字的显示，是将同一个显示的字符采用不同的颜色在窗体上定位输出两次，在示的字符采用不同的颜色在窗体上定位输出两次，在第二次输出时适当偏移输出的位置。第二次输出时适当偏移输出的位置。【例【例15-1】在窗体上显示立体文字。显示效果如图所示。在窗体上显示立体文字。显示效果如图所示。52滚动文字滚动文字滚动文字包括在窗体上由右往左、自下而上的显示滚动文字包括在窗体上由右往左、自下而上的显示效果，类似于电影电视中的片头字幕效果。实现滚效果，类似于电影电视中的片头字幕效果。实现滚动文字的方法之一是通过定时的方式使字所在的控动文字的方法之一是通过定时的方式使字所在的控件（比如标签）不断地移动位置，因而在视觉

5、上产件（比如标签）不断地移动位置，因而在视觉上产生了文字滚动的效果。生了文字滚动的效果。63伸缩文字伸缩文字 如果窗口的文字由大变小，再由小变大，这个效果如果窗口的文字由大变小，再由小变大，这个效果看上去就是文字的伸缩。伸缩文字也是比较简单的看上去就是文字的伸缩。伸缩文字也是比较简单的一个设计，就是在一定的事件间隔中改变文字的位一个设计，就是在一定的事件间隔中改变文字的位置和大小。置和大小。7 VB中中使使用用控控件件Animation创创建建一一个个对对象象，允允许许被被用用来来播播放放即即时时动动画画，一一般般支支持持.AVI格格式式。AVI格格式式允允 许许 视视 频频 和和 音音 频频

6、 交交 错错 在在 一一 起起 同同 步步 播播 放放。而而Animation只能播放没有声音的只能播放没有声音的AVI文件。文件。【例例15-4】编编写写一一个个复复制制文文件件的的动动画画界界面面程程序序。程程序序界界面面如如图所示图所示 81Animation所在的位置所在的位置 使用使用Animation，需要从，需要从“部件部件”对话框中打开对话框中打开“Microsoft Windows Common Controls-2.60，添加到，添加到VB的工具箱中。的工具箱中。2Animation的属性的属性 Animation的许多属性和的许多属性和VB控件的同名属性相同。控件的同名属

7、性相同。这里简单介绍其几个主要的专用属性，见表所示。这里简单介绍其几个主要的专用属性，见表所示。9属性属性项项描述描述AutoPlay加加载载AVI文件后，是否自文件后，是否自动动播放。播放。逻辑值逻辑值，默，默认为认为False BackStyle选择选择控件在透明的背景上播放控件在透明的背景上播放动动画（画（值为值为0），），值值1为为动动画原背景画原背景Center在在Animation控件中的控件中的AVI文件是否居中。默文件是否居中。默认认FalseEnabled设设置一个置一个值值，决定一个，决定一个对对象是否响象是否响应应用用户户生成事件，默生成事件，默认为认为TrueToolT

8、ipText如果使用如果使用Tip提示，提示，设设置提示的文本置提示的文本Visible设设置一个置一个值值，决定，决定对对象是否可象是否可见见。103Animation方法方法 动画控件动画控件Animation有多种方法，其使用与一般控有多种方法，其使用与一般控件方法的使用相同。主要的方法件方法的使用相同。主要的方法 （1）Open。打开播放的。打开播放的AVI文件。文件。（2）Close。使控件。使控件Animation关闭当前打开的关闭当前打开的AVI文件。文件。（3）Stop。在。在Animation中停止播放中停止播放AVI文件。文件。（4）Play。开始播放动画。开始播放动画。1

9、1 动动画画精精灵灵这这是是Microsoft为为改改善善传传统统的的人人机机交交互互界界面面而而设设计计的的一一个个非非常常有有意意思思的的技技术术。我我们们在在许许多多Windows程程序序中中见见到到过过“小小助助手手”之之类类的的动动画画精精灵灵，这这就就是是Agent控控件件的的作作用用。最最初初Agent预预定定了三个动画人物的形象。了三个动画人物的形象。Agent预定义的三个动画精灵，从左到右为：预定义的三个动画精灵，从左到右为：Genie、Merlin、Robby12 VB中中有有部部件件Microsoft Agent Control 2.0，但但还还是是需需要要检检查查一一下

10、下你你的的机机器器上上支支持持不不支支持持Genie等等动动画画精精灵灵。精精灵灵动动画画人人物物是是以以文文件件的的形形式式提提供供的的，描描述述文文件件的的后后缀缀为为.acs，一一个个文文件件代代表表一一个个动动画画精精灵灵人人物物。它它们们在在机机器器上上默默认认存存放放的的位位置置为为C:WindowsMSAgentChars，另另外外安安装装MS Office的的机机器器在在Office10文文件件夹夹下下面面也也有有几几个个动动画画精精灵人物，如灵人物，如Rover和和F1等。等。【例【例15.5】显示动画精灵】显示动画精灵 任务的示例任务的示例 13 VB中中的的Microso

11、ft MultiMdia Control 6.0作作为为支支持持MCI的的控控件件，在在“部部件件”中中选选择择后后被被添添加加到到工工具具箱箱，就就可可以以在在窗窗体体上上放放置置一一个个MCI的的组组合合按按钮钮，如如图图15.8所所示示。这这些些按按钮钮都都是是待待激激活活的的。必必须须说说明明的的是是，在在对对象象浏浏览览器器中中，MCI是是一一个个大大的的范范围围，我我们这里只介绍其中的一个类们这里只介绍其中的一个类MMControl。14 MMControl 控件的主要属性控件的主要属性 属性属性项项描述描述Command在在对对象象浏览浏览器中的器中的MMControl中。指明中

12、。指明执执行的行的命令名称命令名称DeviceType设备类设备类型。型。BuottonEnabled确定控件上的按确定控件上的按钮钮被激活，被激活，False为为无效按无效按钮钮。ButoonVisble确定控件上的按确定控件上的按钮钮可可见见，Fasle为为不可不可见见。Length给给出被出被MCI控件打开的播放文件的控件打开的播放文件的长长度度Mode执执行行MCI设备设备的模式，如打开、的模式，如打开、暂暂停、播放、停、播放、录录音、音、Seek等等Position指出一个打开了的指出一个打开了的MCI设备设备的位置的位置1515.6.1 MCI的设备的设备 MCI支持的设备包括简单

13、设备和复合设备。例如支持的设备包括简单设备和复合设备。例如在在Windows中的中的CD播放器就是一个简单的播放器就是一个简单的MCI设备。设备。复合设备需要提供包括路径在内的数据文件，例如复合设备需要提供包括路径在内的数据文件，例如Wimdows Media Player（MMP）就需要打开被操）就需要打开被操作的源文件。作的源文件。MCI使用使用DeviceType指定其设备类型，语句格式为：指定其设备类型，语句格式为：MMControl.DeviceType=device$16 参数参数 device$是要打开的是要打开的 MCI 设备的类型，设备的类型，如：如：AVIVideo（AVI

14、格式视频）、格式视频）、CDAudio、DAT（数字录音带）、（数字录音带）、DigitalVideo（数字视频）、（数字视频）、MMMovie（多媒体电影）、（多媒体电影）、Overlay（微软的覆盖（微软的覆盖设备）、扫描仪、设备）、扫描仪、Sequencer（序列发生器）、（序列发生器）、VCR（视频磁带设备）、视盘或（视频磁带设备）、视盘或 WaveAudio等，等，也就是说上述这些都是也就是说上述这些都是MCI所支持的设备。所支持的设备。17 15.6.2 MCI的的Command 在设置了在设置了MCI的设备之后，就需要使用的设备之后，就需要使用Command属属性把操作命令发给设

15、备。在程序中，性把操作命令发给设备。在程序中，Command的使的使用格式为：用格式为：MMControl.Command=cmdstring$参数参数 cmdstring$给出了将要执行的给出了将要执行的 MCI 命令的名命令的名称：称：Open,Close,Play,Pause,Stop,Back,Step,Prev,Next,Seek,Record,Eject,Sound 或或 Save。这些命令被立即执行，并将错误代码存放在这些命令被立即执行，并将错误代码存放在 Error 属属性中性中 1815.6.3 MCI的事件和方法的事件和方法 当我们对在当我们对在MCI上任何一个按钮进行点击

16、操作，就会上任何一个按钮进行点击操作，就会产生一个产生一个Button Click事件事件(这里的这里的Button均指具体的按均指具体的按钮钮)。当按钮释放，会产生。当按钮释放，会产生ButtonComplete事件。事件。对对Button事件，系统将返回一个参数供程序进行操事件，系统将返回一个参数供程序进行操作。例如单击作。例如单击“Play”按钮时，产生的事件过程为：按钮时，产生的事件过程为：Private Sub MMControl1_PlayClick(Cancel As Integer)编程者可以在此对播放按钮进行程序代码的编程者可以在此对播放按钮进行程序代码的设计设计 End S

17、ub19使用使用RealAudio Active控件，选择控件，选择“部件部件”中的中的“Real Player ActiveX Control Library”，在工，在工具箱栏中就显示具箱栏中就显示Real公司的著名图标标记，在窗公司的著名图标标记，在窗体上放置体上放置Real Play控件，显示如图所示。控件，显示如图所示。20RealAudio Player的主要属性的主要属性 属性属性项项描述描述Autostart指定是否自指定是否自动动播放指定的源文件，播放指定的源文件，True或或False Console字符串，可以将各种不同的字符串，可以将各种不同的RealPlayer控制聚

18、集在网控制聚集在网页页上，上，这样这样它它们们可以交互使用或是保持独立，而且互相不可以交互使用或是保持独立，而且互相不影响影响Controls指定哪些控制是可指定哪些控制是可见见的。的。ImageStatus指定是否在指定是否在图图像窗口中像窗口中显显示状示状态态信息，默信息，默认值认值是是TtrueMaintainaspect默默认认RealPlayer拉伸所有的片断来充拉伸所有的片断来充满满整个整个图图像窗口，像窗口，True或或FalseSource指定播放的文件或是源文件的地址：任何合法的相指定播放的文件或是源文件的地址：任何合法的相对对或或是完整的是完整的URL 21 【例【例15-

19、6】设计一个使用设计一个使用RealAudio Player控件的控件的媒体播放器。媒体播放器。22MicroSoft ActiveMovie Control是微软公司推出是微软公司推出的一个多媒体控件，支持在的一个多媒体控件，支持在Http和和VB下的多种媒下的多种媒体的操作，这个控件是为了设计在更高层次上的体的操作，这个控件是为了设计在更高层次上的多媒体应用。从多媒体应用。从“部件部件”对话框中打开对话框中打开“控件控件”选项卡，选择选项卡，选择Microsoft ActiveMovie Control。23如果控件列表中没有，如果控件列表中没有，则从则从http:/download下载，然后在下载，然后在“部件部件”对话框中点击对话框中点击“浏览浏览”，选择对应控件的文件，选择对应控件的文件Amovie.ocx，打开文件，则，打开文件，则ActiveMovie控件控件就被安装到控件列表框中，然后选择对应的控就被安装到控件列表框中，然后选择对应的控件，件，“确定确定”后在工具箱中就会显示微软后在工具箱中就会显示微软Windows播放器的图标，将控件放置在窗体上。播放器的图标，将控件放置在窗体上。24【例【例15-7】编写一个使用】编写一个使用Microsoft ActiveMovie控控件的视频播放器程序件的视频播放器程序 25