Private Sub Prev_Click()
MMControl1.Command = "prev"
'返回到文件开头
End Sub
Private Sub Stop1_Click()
MMControl1.Command = "stop"
'停止播放文件
End Sub
Private Sub Timer1_Timer()
Select Case MMControl1.Mode
Case 524
Label3.Caption = "播放状态:文件未打开"
Case 525
Label3.Caption = "播放状态:打开文件"
Case 526
Label3.Caption = "播放状态:播放文件"
Case 529
Label3.Caption = "播放状态:暂停播放"
End Select
'显示播放的状态
Play.Enabled = MMControl1.CanPlay
Stop1.Enabled = MMControl1.CanPlay
Pause.Enabled = MMControl1.CanPlay
'设置控件的有效状态
If MMControl1.Position < MMControl1.Length Then
Prev.Enabled = False
Else
Play.Enabled = False
Pause.Enabled = False
Stop1.Enabled = False
Prev.Enabled = True
End If
'判断播放的位置
End Sub
6.4 MCIWnd多媒体制作
利用前面提到的MMControl控件可以很简单的就实现播放动画、视频和声音等多媒体文件。
Visual Basic 6.0为了用户开发动画应用程序的方便，还提供了另外一个更加简单的动画播放控件MCIWnd。
下面通过一个示例程序向读者说明MCIWnd控件的使用方法和常用技巧。
提示：
@ 读者在以下学习的过程中，应当重点掌握MMControl控件和MCIWnd控件各自的特点，充分了解多媒体开发的各种不同手段。
在示例程序运行的过程中，用户在播放动画文件的同时，还可以对动画文件的音量、缩放比例和播放速度等属性进行调节。
具体的程序设计步骤如下所示。
1．开始工作
首先用鼠标选择Windows操作系统“开始”菜单中的“程序”/Microsoft Visual Studio中的Microsoft Visual Basic 6.0选项来激活Visual Basic6应用程序，在Visual Basic6的集成开发环境中新建一个标准的工程文件，同时打开了一个空白的窗体。
窗体的属性设置如下所示：
Begin Visual Basic.Form Form1
BorderStyle = 3
Caption = "动画播放程序"
MaxButton = 0
MinButton = 0
Moveable = 0
ShowInTaskbar = 0
StartUpPosition = 2
End
经过以上属性设置后的窗体具有如下所示的特性：
n 程序运行过程中，窗体位于屏幕的中央，并且用户不能够移动窗体；
n 窗体的标题栏中显示字符串“动画播放程序”；
n 窗体的标题栏中没有最大化和最小化按钮，只有关闭按钮；
n 在程序运行的过程，用户不能够改变窗体的大小。
2．添加控件
在程序运行的过程中，为了能够选择播放的动画文件，需要有一个控制按钮。
为此要向当前空白的窗体上添加一个CommandButton控件，同时向窗体上添加三个Label控件。
添加控件后的窗体如图6-27所示。
图6-27 添加控件后的窗体
添加到窗体上的控件的作用如下所示：
n CommandButton控件：在程序运行的过程中，单击这个按钮就可以打开一个对话框，在其中用户可以选择一个有效的动画文件；
n 三个Label控件：显示固定的提示文本“速度调节：”、“缩放调节：”和“音量调节”。
四个控件的属性设置如下所示：
Begin Visual Basic.CommandButton Command1
Caption = "打开文件"
Height = 495
Left = 1440
Top = 3720
Width = 1455
End
Begin Visual Basic.Label Label3
Caption = "缩放调节："
Height = 240
Left = 3360
Top = 3840
Width = 1050
End
Begin Visual Basic.Label Label2
Caption = "速度调节："
Height = 240
Left = 240
Top = 1200
Width = 1050
End
Begin Visual Basic.Label Label1
Caption = "音量调节："
Height = 240
Left = 5760
Top = 1080
Width = 1050
End
3．添加ActiveX控件
在本示例程序设计的过程中，需要用到三个ActiveX控件——CommonDialog控件、Slider控件和MCIWnd控件。
为此，在程序设计的过程中，用鼠标左键单击菜单“工程”中的“部件”选项，或者用鼠标右键单击工具箱，在弹出的菜单中选择“部件”选项，在屏幕上都会弹出一个如图6-28所示添加ActiveX控件的对话框。
图6-28 “部件”对话框
在添加ActiveX控件的Components对话框中选择MCIWndX Control、MCIWndX Control和Microsoft Common Dialog Control 6.0三个选项。
单击“确定”按钮，程序就会自动的向当前的项目文件中添加了示例程序所需要的ActiveX控件。
这三个ActiveX控件的声明如下所示：
Object = "{288F1520-FAC4-11CE-B16F-00AA0060D93D}#1.0#0"; "MCIWNDX.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
添加三个ActiveX控件后的工具箱如图6-29所示。
图6-29 添加三个ActiveX控件后的工具箱
在程序设计的过程中，向窗体上放置一个MCIWnd控件、一个CommonDialog控件和三个Slider控件，这五个ActiveX控件的属性设置如下所示：
Begin MSComDlg.CommonDialog
CommonDialog1
Left = 6000
Top = 3480
End
Begin MCIWndX.MCIWnd MCIWnd1
Height = 2895
Left = 1320
Top = 480
Width = 4215
End
Begin MSComctlLib.Slider Slider1
Left = 5880
Top = 1320
Orientation = 1
End
Begin MSComctlLib.Slider Slider2
Left = 360
Top = 1440
Orientation = 1
End
Begin MSComctlLib.Slider Slider3
Left = 4560
Top = 3720
End
添加了五个ActiveX控件后的窗体如图6-30所示。