VisualBasic程序设计案例4.docVIP

Visual Basic程序设计案例4 多媒体播放器应用程序 1．任务 ⑴设计一个如下图所示多媒体播放器应用程序； ⑵功能：能够播放AVI、VCD、WAVE等格式的多媒体文件。程序具有快进、快退、暂停、弹碟和退出等基本功能。 2．素材准备工作 ⑴一张背景图片，用于窗口播放器窗口背景； ⑵一个Wave音乐文件，用于测试声音播放； ⑶一个AVI视频文件，用于测试视频播放； 一个VCD视频文件（扩展名为.dat），用于测试VCD视频播放； 3．程序设计分析及其实现 本程序在利用MMControl多媒体控件进行编程时应主要考虑如下几点： 用DeviceType属性指定多媒体设备的类型。 用Filename属性指定要播放的文件。 用Command属性的Open命令打开媒体设备。 用Command属性的Play命令进行播放。 用Command属性的其他命令控制媒体设备。 如果要显示多媒体文件的播放进度，需要在MMControl_StatusUpdate过程中编写代码，以便实现用Slider控件显示文件的播放进程。 根据题目要求，在窗体中需要用到5个控件：PictureBox控件（用于放置视频图像）、命令按钮（打开、关闭）、CommandDialog控件（用于提示打开对话框）、MMControl控件（多媒体播放控件）和Slider控件（播放器进度条控件）。 ⑴界面设计 创建一个“标准EXE”工程。选中“工程”菜单中的“部件”选项，在弹出的“部件”对话框中选择“Microsoft Multimedia Control”，“Microsoft Coomand Dialog Control6.0(SP3)”和“Microsoft Windows Common Control6.0(SP4)”，并单击“确定”按钮。将工具箱中PictureBox控件、CommandDialog控件、MMControl控件和Slider控件添加到窗体中，添加两个命令按钮到窗体中。 ②属性设置 属性设置 控件名称 主要控件属性名称 属性值 功能说明 Form1 名称 Form1 Caption 媒体播放器 BorderStyle 2 StartUpPosition 2-屏幕中心 窗口居中 Picture 载入一张背景图片 Slider1控件 名称 Slider1 BoderStyle 1 边框样式 LargeChange 10 按下“PageUP”键和“PageDown”键时进度条向前和向后减少和增加的值。 ToolTipText 播放进度 当鼠标移动到进度条上时提示文字。 CommonDialog 名称 CommonDialog1 Filter Wave文件(*.Wav)|*.Wav|AVI文件(*.AVI)|*.AVI|VCD文件(*.DAT)|*.DAT 设置文件类型 Command按钮控件 名称 默认 Caption 分别设置为：“打开”、“关闭” Font 宋体、常规、小五号字 ⑶代码设计 “打开”按钮代码设计 “打开”按钮的功能就是通过CommonDialog1控件（对话框控件）弹出打开文件对话框，选中需要播放的媒体文件，利用Filename属性获取媒体文件的文件名及其路径，然后利用媒体播放控件来打开多媒体文件。 代码如下： 窗体Load事件代码 Private Sub Form_Load() ‘将Picture1设置为视频播放界面 MMControl1.hWndDisplay = Picture1.hWnd End Sub 打开按钮Click事件代码 Private Sub Command1_Click() On Error Resume Next CommonDialog1.FileName = 为选择媒体时文件名为空 CommonDialog1.FilterIndex = 1 默认播放类型为WAVE文件 CommonDialog1.ShowOpen 弹出“打开”文件对话框 MMControl1.Command = Close 打开文件之前关闭以前的文件 If Err.Number = cdlCancel Then Exit Sub 如果按下了取消键，是则退出模块 If CommonDialog1.FilterIndex = 1 Then MMControl1.DeviceType = WaveAudio 设置媒体文件类型为Wave声音 Else If CommonDialog1.FilterIndex = 2 Then MM