搜索
大学计算机基础教程TaiYuanUniversityofTechnology第15章多媒体编程初步VisualBasic程序设计教程VisualBasic程序设计教程2本章介绍：文字效果播放动画为应用程序定义动画精灵多媒体MCI控件RealAudioActive控件MicrosoftActiveMovie控件VisualBasic程序设计教程3和前面各章一样，我们先来看一个MP3播放器的例子。界面效果如图所示。在程序中，使用了通用文件对话框CommonDialog和控制播放进度的控件滑动条Slider以及VB的多媒体控件MMControl。使用定时器控制滑动条的进度。其中多媒体控件、滑动条控件分别在“部件”中的名称为MicrosoftMultiMediaControl6和MicrosoftWindowsCommonControl6.0。VisualBasic程序设计教程4文字处理功能是多媒体技术中的一个重要内容。在VB中，一般的文字效果如立体字、色彩或者字体变大变小等，都是编程实现的，相对也比较简单。对一些较为复杂的如美术字、字体旋转、颜色渐变、竖排等，都需要使用API技术。API技术不在本书范围，因此我们这里简单介绍文字的程序处理。VisualBasic程序设计教程51．立体文字在窗体（或对象）上立体文字的显示，是将同一个显示的字符采用不同的颜色在窗体上定位输出两次，在第二次输出时适当偏移输出的位置。【例15-1】在窗体上显示立体文字。显示效果如图所示。VisualBasic程序设计教程62．滚动文字滚动文字包括在窗体上由右往左、自下而上的显示效果，类似于电影电视中的片头字幕效果。实现滚动文字的方法之一是通过定时的方式使字所在的控件（比如标签）不断地移动位置，因而在视觉上产生了文字滚动的效果。VisualBasic程序设计教程73．伸缩文字如果窗口的文字由大变小，再由小变大，这个效果看上去就是文字的伸缩。伸缩文字也是比较简单的一个设计，就是在一定的事件间隔中改变文字的位置和大小。VisualBasic程序设计教程8VB中使用控件Animation创建一个对象，允许被用来播放即时动画，一般支持.AVI格式。AVI格式允许视频和音频交错在一起同步播放。而Animation只能播放没有声音的AVI文件。【例15-4】编写一个复制文件的动画界面程序。程序界面如图所示VisualBasic程序设计教程91．Animation所在的位置使用Animation，需要从“部件”对话框中打开“MicrosoftWindowsCommonControls-2.60，添加到VB的工具箱中。2．Animation的属性Animation的许多属性和VB控件的同名属性相同。这里简单介绍其几个主要的专用属性，见表所示。VisualBasic程序设计教程10属性项描述AutoPlay加载AVI文件后，是否自动播放。逻辑值，默认为FalseBackStyle选择控件在透明的背景上播放动画（值为0），值1为动画原背景Center在Animation控件中的AVI文件是否居中。默认FalseEnabled设置一个值，决定一个对象是否响应用户生成事件，默认为TrueToolTipText如果使用Tip提示，设置提示的文本Visible设置一个值，决定对象是否可见。VisualBasic程序设计教程113．Animation方法动画控件Animation有多种方法，其使用与一般控件方法的使用相同。主要的方法（1）Open。打开播放的AVI文件。（2）Close。使控件Animation关闭当前打开的AVI文件。（3）Stop。在Animation中停止播放AVI文件。（4）Play。开始播放动画。VisualBasic程序设计教程12动画精灵这是Microsoft为改善传统的人机交互界面而设计的一个非常有意思的技术。我们在许多Windows程序中见到过“小助手”之类的动画精灵，这就是Agent控件的作用。最初Agent预定了三个动画人物的形象。Agent预定义的三个动画精灵，从左到右为：Genie、Merlin、RobbyVisualBasic程序设计教程13VB中有部件MicrosoftAgentControl2.0，但还是需要检查一下你的机器上支持不支持Genie等动画精灵。精灵动画人物是以文件的形式提供的，描述文件的后缀为.acs，一个文件代表一个动画精灵人物。它们在机器上默认存放的位置为C:\Windows\MSAgent\Chars，另外安装MSOffice的机器在Office10文件夹下面也有几个动画精灵人物，如Rover和F1等。【例15.5】显示动画精灵任务的示例VisualBasic程序设计教程14VB中的MicrosoftMultiMdiaControl6.0作为支持MCI的控件，在“部件”中选择后被添加到工具箱，就可以在窗体上放置一个MCI的组合按钮，如图15.8所示。这些按钮都是待激活的。必须说明的是，在对象浏览器中，MCI是一个大的范围，我们这里只介绍其中的一个类MMControl。前一个后一个播放暂停快退快进停止录音弹出VisualBasic程序设计教程15MMControl控件的主要属性属性项描述Command在对象浏览器中的MMControl中。指明执行的命令名称DeviceType设备类型。BuottonEnabled确定控件上的按钮被激活，False为无效按钮。ButoonVisble确定控件上的按钮可见，Fasle为不可见。Length给出被MCI控件打开的播放文件的长度Mode执行MCI设备的模式，如打开、暂停、播放、录音、Seek等Position指出一个打开了的MCI设备的位置VisualBasic程序设计教程1615.6.1MCI的设备MCI支持的设备包括简单设备和复合设备。例如在Windows中的CD播放器就是一个简单的MCI设备。复合设备需要提供包括路径在内的数据文件，例如WimdowsMediaPlayer（MMP）就需要打开被操作的源文件。MCI使用DeviceType指定其设备类型，语句格式为：MMControl.DeviceType[=device$]VisualBasic程序设计教程17参数device$是要打开的MCI设备的类型，如：AVIVideo（AVI格式视频）、CDAudio、DAT（数字录音带）、DigitalVideo（数字视频）、MMMovie（多媒体电影）、Overlay（微软的覆盖设备）、扫描仪、Sequencer（序列发生器）、VCR（视频磁带设备）、视盘或WaveAudio等，也就是说上述这些都是MCI所支持的设备。VisualBasic程序设计教程1815.6.2MCI的Command在设置了MCI的设备之后，就需要使用Command属性把操作命令发给设备。在程序中，Command的使用格式为：MMControl.Command[=cmdstring$]参数cmdstring$给出了将要执行的MCI命令的名称：Open,Close,Play,Pause,Stop,Back,Step,Prev,Next,Seek,Record,Eject,Sound或Save。这些命令被立即执行，并将错误代码存放在Error属性中VisualBasic程序设计教程1915.6.3MCI的事件和方法当我们对在MCI上任何一个按钮进行点击操作，就会产生一个ButtonClick事件(这里的Button均指具体的按钮)。当按钮释放，会产生ButtonComplete事件。对Button事件，系统将返回一个参数供程序进行操作。例如单击“Play”按钮时，产生的事件过程为：PrivateSubMMControl1_PlayClick(CancelAsInteger)…………‘编程者可以在此对播放按钮进行程序代码的设计EndSubVisualBasic程序设计教程20使用RealAudioActive控件，选择“部件”中的“RealPlayerActiveXControlLibrary”，在工具箱栏中就显示Real公司的著名图标标记，在窗体上放置RealPlay控件，显示如图所示。VisualBasic程序设计教程21RealAudioPlayer的主要属性属性项描述Autostart指定是否自动播放指定的源文件，True或FalseConsole字符串，可以将各种不同的RealPlayer控制聚集在网页上，这样它们可以交互使用或是保持独立，而且互相不影响Controls指定哪些控制是可见的。ImageStatus指定是否在图像窗口中显示状态信息，默认值是TtrueMaintainaspect默认RealPlayer拉伸所有的片断来充满整个图像窗口，True或FalseSource指定播放的文件或是源文件的地址：任何合法的相对或是完整的URLVisualBasic程序设计教程22【例15-6】设计一个使用RealAudioPlayer控件的媒体播放器。VisualBasic程序设计教程23MicroSoftActiveMovieControl是微软公司推出的一个多媒体控件，支持在Http和VB下的多种媒体的操作，这个控件是为了设计在更高层次上的多媒体应用。从“部件”对话框中打开“控件”选项卡，选择MicrosoftActiveMovieControl。VisualBasic程序设计教程24如果控件列表中没有，则从下载，然后在“部件”对话框中点击“浏览”，选择对应控件的文件Amovie.ocx，打开文件，则ActiveMovie控件就被安装到控件列表框中，然后选择对应的控件，“确定”后在工具箱中就会显示微软Windows播放器的图标，将控件放置在窗体上。VisualBasic程序设计教程25【例15-7】编写一个使用MicrosoftActiveMovie控件的视频播放器程序