VB第9章 Visual Basic常用控件.pptVIP

* 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-12】在窗体上放四个命令按钮，单击各按钮时实现打开特定的.avi文件、播放动画、停止播放和关闭动画。界面如下图： Animation1 设计界面: 运行界面: * 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() “关闭”按钮 Animation1.Close End Sub 代码设计: * 9.4.2 多媒体控件（Multimedia MCI） 1. 添加 1) 工程→部件→Microsoft Multimedia Control 6.0 2) 从工具箱中选择MMControl 2. 外观 3. 作用：于管理媒体控制接口(MCI)设备,包括常规的多媒体音频、视频设备。 也称Multimedia MCI控件。 MMControl * 4. 各按钮的名称及作用 Prev Next Play Pause Back Step Stop Record Eject 通过设置各按钮的Visible和Enabled属性可以有选择地设置可用的按钮。 * 5. 属性 1) DeviceType：指定要打开的MCI设备的类型。 简单设备：不需要数据文件即可播放，如打开视频或音频CD播放器，即可通过“曲目”进行播放、回绕和快进。 复合设备：必需通过数据文件才能播放。 Multimedia MCI控件支持的部分多媒体设备：见P 192表9-4 例：使用Multimedia MCI控件MMControl1播放avi文件，需要首先做以下设置： MMControl1.DeviceType = AVIVideo 2) FileName：指定Open命令将要打开的或者Save命令将要保存的文件。例如： MMControl1.FileName = d:\clock.avi * 3) Command：指定将要执行的MCI命令，见P192 表9-5 例：打开指定的.avi文件并开始播放： MMControl1.DeviceType = AVIVideo MMControl1.FileName = d:\clock.avi MMControl1.Command = open MMControl1.Command = play“ 例：在窗体上添加一个Multimedia MCI控件之后，在窗体的Load事件过程中编写如下代码，即可播放一张CD盘。 MMControl1.DeviceType = cdaudio MMControl1.Command = open MMControl1.Command = play * 4) AutoEnable：决定Multimedia MCI控件是否能够自动启动或关闭控件中的某个按钮。仅在Enabled属性被设置为True的前提下才起作用。 5) ButtonEnabled：启用或禁用控件中的某个按钮。只有当Enabled属性为True、AutoEnable属性为False时起作用。具体使用时应将Button替换成相应的按钮名称。 例如：MMControl1.EjectEnabled = False 6) ButtonVisible：决定指定的按钮是否在控件中显示。只有当Visible属性为True时起作用。 例如：MMControl1.RecordVisible = False 7) Frames：指定Step或Back命令步进的帧数。 例如：MM