《Visual Basic 6.0程序设计案例教程 教学课件 ppt 作者 宫强 模块九》由会员分享，可在线阅读，更多相关《Visual Basic 6.0程序设计案例教程 教学课件 ppt 作者 宫强 模块九（23页珍藏版）》请在金锄头文库上搜索。
1、模块九 多媒体,任务一设计CD播放器,任务三实现MP3文件的播放,任务二利用Animation控件播放无声动画,任务分析: 运行程序之后，将自动播放CD曲目，同时显示曲目总数和正在播放的是第几首曲目 1、添加MultimediaMCI控件 2、MultimediaMCI控件命令的使用,一、MMControl控件 MMControl控件用于管理媒体控制接口（MCI）设备上多媒体文件的记录与回放。执行菜单命令【工程】【部件】，在部件对话框中选择：“Microsoft Multimedia Control 6.0”，把MMControl控件填加到工具箱,二、属性的设置 1、DeviceType属性：
2、用于设置 MCI 设备的类型。 例如，设置MMControl控件的设备类型为“avi”视频文件的语句为： MMControl1.DeviceType = “ AVIVideo“ 2、FileName属性：用于设置媒体设备要打开或保存的文件名。 例如，要打开C盘根目录下的“music.wav”文件的语句为： MMControl1.FileName = “C:music.wav“ 3、Command属性：用于设置播放命令。用DeviceType属性设置好设备类型后，可用Command属性将MCI命令发送给设备。,三、设备类型 在播放多媒体文件之前，必须指定多媒体设备类型。常见的多媒体设备类型有：A
3、VI动画(AVIVideo)，CD音乐设备（CDAudio），VCD文件（DAT），数字视频文件（DigitalVideo)，WAV声音播放设备（WaveAudio)，MIDI设备（Sequencer)和其它类型。 其语法为： 对象.DeviceType=设备类型,四、指定文件名 指定使用Open命令打开或Save命令保存的文件名。如果在运行时要改变FileName属性，就必须先关闭然后再重新打开MCI控件。 其语法为： MMControl.FileName 完整的文件路径及名称 要设置控件所打开（播放）的多媒体文件名，可通过控件的FileName属性来指定。FileName属性用于指定Ope
4、n命令将要打开的或者Save命令将要保存的文件。 FileName属性的语法如下： Object.FileName=FilePath,五、常用命令,六、控制按钮 MMControl1控件共有9个按钮,1、新建工程。 2、执行菜单命令【工程】【部件】，在部件对话框中选择：“Microsoft Multimedia Control 6.0”选项，单击“确定”按钮，MMControl控件将被添加到工具箱中。 3、在Form1窗体上放置一个MMControl控件,两个Label标签控件，七个Command按钮控件。 4、编写事件处理过程。 5、保存工程与窗体文件。,返回,任务分析: 窗体布局如图 ：
5、点play键可以播放，stop键停止，exit键退出。,理论知识: 一、Animation控件 Visual Basic专门提供了一个动画（Animation）控件，它可以用来播放AVI文件，但是该控件只能播放无声的AVI文件；如要播放其他的动画如Flash动画，只能借助第三方控件。Animation控件不是标准控件，要使用Animation控件必须要将Animation控件添加到控件工具箱中。添加控件的方法为选择【工程】【部件】命令，在出现的“部件”对话框中选择“Microsoft Windows Common Controls-2 6.0”选项并单击“确定”按钮,二、Animation控件
6、的属性 1、Center属性：用于设置动画播放的位置。如将Center属性设为True，则可确保播放的画面位于动画控件的中间位置。 2、AutoPlay属性：用于设置已打开动画文件的自动播放。,三、Animation控件的方法 Animation控件的常用方法 1、Open 方法 格式：.Open 实现打开一个要播放的AVI文件。如果 AutoPlay属性设置为True，则只要打开该文件，就开始播放。 2、Play方法 格式：.Play = Repeat, Start,End Repeat：用于设置重复播放次数，如果没有提供Repeat参数，文件将被连续播放。 Start：用于设置开始的帧。A
7、VI文件由若干幅可以连续播放的画面组成，每一幅画面称为1帧，第一幅画面为第 0帧，Play 方法可以设置从指定的帧开始播放，如果没有提供Start参数，文件将从第一帧播放。 End：用于设置结束的帧。 3、Stop方法 格式：.Stop 用于终止用Play方法播放AVI文件，但不能终止使用Autoplay属性播放的动画。 4、Close方法 格式：.Close 用于关闭当前打开的 AVI 文件，如果没有加载任何文件，则 Close 不执行任何操作，也不会产生任何错误。,四、Animation控件的使用 Animation控件主要是用来播放动画文件的，它允许创建按钮，当单击它时即显示动画，如.a
8、vi文件。该控件只能播放无声的AVI文件。此外，动画控件只能显示未压缩的或已用行程编码（RLE）压缩的.avi文件。如果尝试加载含有声音数据或格式不为控件所支持的.avi文件，则会引发一个错误。,1、新建工程。 2、在窗体上放置Animation控件，其名称属性改为An_avi；放置CommonDialog控件，其名称属性改为CD_avi，放置三个按钮控件，其名称属性分别改为play、stop、exit 3、编写事件处理过程 4、保存工程与窗体文件。,返回,任务分析: 窗体布局如图 点play键可以查找播放MP3音乐，点stop键停止播放。,理论知识: Visual Basic中还有一个宝贝：
9、MediaPlayer，这个控件支持多种音乐格式，如MP3、MIDI、WAV等，可以通过Run、Pause、Stop方法来播放、暂停和停止该媒体文件。使用前通过“工程部件“菜单选择“Windows Media player“，此时工具箱就会出现MediaPlayer控件，将此控件安放在应用程序的窗体中，然后通过属性窗口或程序代码指定一个多媒体文件，就可以通过代码对其进行播放控制了。,理论知识: 1、播放音乐文件 WindowsMediaPlayer1.URL = VB.App.Path & “music.mp3“ 其中的music.mp3是一个相对路径表示当前目录下的文件，即你的工程所保存的位置。 2、暂停播放音乐文件 WindowsMediaPlayer1.Controls.pause 3、暂停播放之后继续播放音乐文件 WindowsMediaPlayer1.Controls.play 如果想实现音乐文件从头播放，只需要将播放音乐中代码再写一遍即可。 4、停止播放的音乐文件（关闭播放器） WindowsMediaPlayer1.Close,1、新建工程。 2、如上图在窗体上放置一个MediaPlayer控件，两个按钮控件和一个公用对话框，将两个按钮的名称属性分别改为cmdPlay和cmdStop。 3、代码编写 4、运行工程，最后的效果如图,返回,
