1、9.4.5 动画控件（Animation）,1. 添加 (1) 工程部件Microsoft Windows Common Contrls -2 6.0 (2) 从工具箱中选择Animation 2. 外观,3. 作用：显示无声的AVI视频文件，播放无声动画,4. 属性AutoPlay：在将.avi文件加载到Animation控件时，该属性决定Animation控件是否开始自动播放.avi文件。True 要自动连续循环播放.avi文件。False 在加载了.avi文件后，需要使用Play方法来播放该.avi文件。 5.方法 (1) Open：用于打开一个要播放的.avi文件，格式： .Open
2、例如，播放当前应用程序路径之下的文件filedel.avi：Animation1.Open App.Path & “filedel.avi“ (2) Play：用于播放已经打开的.avi文件，格式： .Play ,例如：Animation1.Play 5, 3, 15播放当前打开的.avi文件的第3帧到第15帧，共播放5遍。,(3) Stop：终止那些用Play方法启动的动画。格式：.Stop当设置Autoplay属性为True时不能使用Stop方法终止播放。 (4) Close：关闭当前打开的.avi文件。格式：.Close,【例9-16】在窗体上放四个命令按钮，单击各按钮时实现打开特定的.
3、avi文件、播放动画、停止播放和关闭动画。界面如下图：,a) 设计界面,b) 运行界面,各命令按钮的Click事件过程如下。 Private Sub Command1_Click() “打开”按钮Animation1.Open App.Path & “filedel.avi“ End Sub Private Sub Command2_Click() “播放”按钮Animation1.Play End Sub Private Sub Command3_Click() “停止”按钮Animation1.Stop End Sub Private Sub Command4_Click() “关闭”按钮
4、Animation1.Close End Sub,9.4.6 多媒体控件（Multimedia MCI）,1. 添加 (1) 工程部件Microsoft Multimedia Control 6.0 (2) 从工具箱中选择MMControl 2. 外观,3. 作用：管理媒体控制接口(MCI)设备,包括常规的多媒体音频、视频设备。也称Multimedia MCI控件。,4. 各按钮的名称及作用,通过设置各按钮的Visible和Enabled属性可以有选择地设置可用的按钮。,5. 属性 (1) DeviceType：指定要打开的MCI设备的类型。简单设备：不需要数据文件即可播放，如打开视频或音频C
5、D播放器，即可通过“曲目”进行播放、回绕和快进复合设备：必需通过数据文件才能播放。例如，要使用Multimedia MCI控件MControl1 播放avi文件，需要首先做以下设置：MMControl1.DeviceType = “AVIVideo“ (2) FileName：指定Open命令将要打开的或者Save命令将要保存的文件。例如：MMControl1.FileName = “d:clock.avi“,(3) Command：指定将要执行的MCI命令例如，打开指定的.avi文件并开始播放：MMControl1.DeviceType = “AVIVideo“MMControl1.File
6、Name = “d:clock.avi“MMControl1.Command = “open“MMControl1.Command = “play“ (3) AutoEnable：决定Multimedia MCI控件是否能够自动启动或关闭控件中的某个按钮。仅在Enabled属性被设置为True的前提下才起作用。 (4) ButtonEnabled：启用或禁用控件中的某个按钮。只有当Enabled属性为True、AutoEnable属性为False时起作用。具体使用时应将Button替换成相应的按钮名称。例如：MMControl1.EjectEnabled = False,(5) ButtonV
7、isible：决定指定的按钮是否在控件中显示。只有当Visible属性为True时起作用。例如：MMControl1.RecordVisible = False (6) Frames：指定Step或Back命令步进的帧数。例如：MMControl1.Frames = 10 (7) TimeFormat：规定与位置信息相关的属性所采用的时间格式（如“毫秒”），这些属性包括：From、Length、Position、Start、To、TrackLength、TrackPosition。 (8) From：规定Play或Record命令的起始点。 (9) Length：返回打开的MCI设备上的媒体长
8、度。 (10) Position：返回打开的MCI设备的当前位置。,(11) Start：返回当前媒体的起始位置。 (12) To：规定Play或Record命令的结束点。 (13) Tracks：返回当前所使用的设备的音轨数。对于CD唱片，Tracks属性指的是一张盘中共有多少个曲目。 (14) Track：用于指定音轨。 (15) TrackPosition：返回Track属性给出的音轨的起始位置。 (16) TrackLength：返回Track属性给出的音轨的长度。 (17) hWndDisplay：对于利用窗口显示输出结果的MCI MMMovie或Overlay设备，该属性用于为其规
9、定显示输出的窗口。,可以为该属性指定一个是MCI设备输出窗口的句柄。窗体和控件的句柄可以通过其hWnd属性获得。例如，指定输出窗口为图片框Picture1：MMControl1.hWndDisplay = Picture1.hWnd (18) Notify：决定下一条MCI命令是否使用MCI通知服务。如果该属性被设置为True，那么在下一条MCI命令完成时产生一个回调事件(Done)。赋给该属性的值只对下一条MCI命令有效。 (19) Wait：决定是否要等到下一条MCI命令完成，才能将控制权返回应用程序。赋给该属性的值只对下一条MCI命令有效。 (20) UpdateInterval：规定两
10、次连续的 StatusUpdate事件之间的毫秒数。,2事件 (1)ButtonClick：当用户单击MCI控件上的按钮时产生该事件，其事件过程如下： Private Sub MMControl1_ButtonClick(Cancel As Integer) End Sub Button：Prev、Next、Play、Pause、Back、Step、Stop、Record或Eject。 例如，以下为Pause按钮对应的事件过程： Private Sub MMControl1_PauseClick(Cancel As Integer) End Sub,(2) StatusUpdate事件：按Up
11、dateInterval属性所给定的时间间隔自动地发生。应用程序可以在该事件过程中定期检查当前MCI设备的状态。例如，从Multimedia MCI控件的Position、Length和Mode等属性中获得状态信息 (3) Done事件：当Notify属性为True的MCI命令结束时发生。该事件过程返回一个参数NotifyCode，用于表示MCI命令是否成功，可以是以下任意设置值：1命令执行成功。2命令被其他命令所替代。4命令被用户中断。8命令失败。,【例9-17】利用Multimedia MCI控件在指定的图片框中播放.avi文件。,(1) 在窗体的Load事件过程中编写如下代码：Priva
12、te Sub Form_Load()MMControl1.DeviceType = “AVIVideo“MMControl1.FileName = App.Path & _“SEARCH.AVI“MMControl1.RecordVisible = FalseMMControl1.EjectVisible = FalseMMControl1.Command = “open“ MMControl1.hWndDisplay = Picture1.hWndEnd Sub (2) 在窗体的Unload事件过程中执行Stop命令：Private Sub Form_Unload(Cancel As Integer)MMControl1.Command = “stop“End Sub,
