VisualBasic多媒体程序设计.ppt

《VisualBasic多媒体程序设计.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VisualBasic多媒体程序设计VisualBasic是一个功能强大的编程环境，且与Windows系统紧密结合，对多媒体编程提供了丰富的支持。利用VisualBasic进行多媒体开发主要有两种方法：利用多媒体控件和WindowsAPI函数。1.多媒体控件VisualBasic提供了几种用于多媒体开发的控件，主要包括以下几种：（1）Animation控件（2）MCI控件（3）ActiveMovie控件（4）PictureClip控件（5）MCIWnd控件（1）Animation控件Animation控件也称为无声控件，用该控件可以播放无声动画文件也不是所有的无声动画文件都

2、可以播放，它只能播放未经压缩的或者用RLE格式压缩的无声动画文件。（2）MCI控件MCI控件可用于管理多媒体控制接口（MCI）设备，这些设备包括声卡、MIDI发生器、CD-ROM驱动器、音频播放器、视频播放器和视频磁带录放器。MCI控件具有一组执行MCI命令的下压式按钮，包括播放、暂停、向后步进、向前步进、停止、录制和弹出等。（3）ActiveMovie控件ActiveMovie控件可以播放MPEG、AVI、MIDI和WAV等媒体文件，该控件是MCI控件的增强版本ActiveMovie控件还自带时间数字显示和进度控制，并可以随意改变播放的起点。（4）PictureClip控

3、件PictureClip控件用于存储快速显示的位图文件，在建立动画或需要存储大量的位图文件时会用到它。（5）MCIWnd控件MCIWnd控件的功能与MCI控件类似，但MCIWnd控件播放复合型多媒体设备，不能播放简单型设备。2.多媒体API函数使用MCI控件开发Windows系统下的多媒体程序，具有简单、快捷、方便的特点。但在实际程序设计中，常会碰到一些利用MCI控件不好解决的问题。VisualBasic提供了直接调用Windows的API函数的功能，通过调用API函数，可以实现对系统的各个层次的功能调用。Windows的动态链接库文件winmm.dll文件中包含了100多

4、个具有多媒体处理功能的API函数，这些函数大多为低级的程序接口，可以用于处理语音、合成音乐、动画、视频等。常用的MCI高级API函数mciExecute：用于向MCI传送一个命令字符串，以执行各种播放操作。mciSendString：也是向MCI传送一个命令字符串，并可接受反馈信息。mciGetErrorStringGetShortPathName本章内容1Animation控件2MCI控件3MediaPlayer控件4多媒体API函数1Animation控件Animation控件是一个动画播放控件，Windows下的文件复制进度栏就是使用Animation控件的一个实例，

5、在执行复制操作时，纸页从一个文件夹“飞”到另一个文件夹，非常形象地告诉用户系统正在进行拷贝动作。1.1Animation控件介绍1.2Animation控件应用实例1.1Animation控件介绍（1）AutoPlay属性将AutoPlay属性设置为True时，一旦加载.avi文件，Animation控件会自动连续循环地播放这个.avi文件。（2）Center属性Center属性为True时，根据图像的大小，在控件中心显示.avi文件；当设置为False时，.avi动画定位在控件的左上角。（3）Open方法Open方法打开一个要播放的.avi文件。如果AutoPlay属性设

6、置为True，则一打开就开始播放，在关闭.avi文件或设置AutoPlay属性设置为False之前，它都一直重复播放。（4）Play方法Play方法使Animation控件播放.avi文件。并且可以设置重复播放次数和开始、结束帧。Animation控件介绍（续）（5）Stop方法Stop方法使Animation控件终止播放.avi文件。Stop方法仅终止那些用Play方法启动的动画。对通过设置AutoPlay属性为True的自动播放，使用Stop方法会返回错误。可以通过设置AutoPlay属性为False来终止播放。（6）Close方法Close方法使Animation控件

7、关闭当前打开的.avi文件。如果没有加载任何文件，则Close方法不执行任何操作，也不会产生任何错误。1.2Animation控件应用实例【例1】利用Animation控件设计一个简单的播放.avi动画的程序。IfcmdPlay.Caption="播放"ThenAnimation1.OpenApp.Path&"clock.avi"'加载动画文件Animation1.PlaycmdPlay.Caption="停止"ElseAnimation1.StopcmdPlay.Caption="播放"EndIf说明avi是M