面向对象程序设计实用第7章.ppt

本章学习目标 应知： 多媒体的类型 应会： 使用多媒体控件 使用动画（Animation）控件 项目1 制作播放音乐的程序 VisualBasic 6.0支持大量的多媒体，利用它提供的多媒体控件（MMControl），可以管理媒体控制接口（MCI）设备上的多媒体文件的录制和播放，这个控件可用命令来控制下列设备：声卡、MIDI序列发生器、CD-ROM驱动器、视频播放器等。下面我们就来学习怎样使用多媒体控件（MMControl）来播放声音文件（.wav、.mid、.mp3）、CD音乐和视频文件（.avi）等。 任务1 使用MMControl控件播放声音及CD音乐 多媒体控件（MMControl）提供了一组执行MCI命令的按钮。这些按钮命令与通常的CD机或录像机上的命令和功能十分相似 单击菜单“工程”“部件”（或直接按快捷键Ctrl+T），打开部件对话框，在控件列表中找到“Microsoft Multimedia Control 6.0”，选中该列表项左部的复选框 添加多媒体控件到窗体 双击工具箱中的多媒体控件图标 添加代码 Private Sub Command1_Click() 设置打开文件的类型 CommonDialog1.Filter = wav波形文件|*.wav|midi文件|*.mid|mp3音乐|*.mp3 CommonDialog1.ShowOpen 弹出打开文件对话框 If CommonDialog1.FileName = Then Exit Sub 当用户单击打开文件对话框上的 取消按钮时退出本过程 MMControl1.Command = Close 关闭前一个打开的对象（若存在的话） 指定打开的文件为要播放的对象 MMControl1.FileName = CommonDialog1.FileName MMControl1.Wait = True 阻止其它程序使用打开的多媒体设备 MMControl1.Command = Open 打开多媒体设备 MMControl1.Command = Play 开始播放 End Sub 任务2 使用MMControl控件播放CD音乐 代码： Private Sub Command1_Click() MMControl1.DeviceType = CDAudio 设置打开的设备类型为CD MMControl1.Wait = True 阻止其它程序使用打开的多媒体设备 MMControl1.Command = Open 打开多媒体设备 MMControl1.Command = Play 开始播放 End Sub 任务3 使用MMControl控件播放视频 在窗体上添加一个多媒体控件MMControl1，一个通用对话框控件CommonDialog1 一个命令按钮和一个图片框控件Picture1 Private Sub Command1_Click() CommonDialog1.Filter = 视频文件(*.avi)|*.avi 设置打开文件的类型 CommonDialog1.ShowOpen 弹出打开文件对话框 If CommonDialog1.FileName = Then Exit Sub 当用户单击打开文件对话 框上的取消按钮时退出本过程 MMControl1.Command = Close 关闭前一个打开的对象（若存在的话） MMControl1.DeviceType = AVIVideo 设置指定打开的设备的类型 MMControl1.hWndDisplay = Picture1.hWnd 指定视频出现在图片框Picture1中 指定打开的文件为要播放的对象 MMControl1.FileName = CommonDialog1.FileName 指定打开的文件为要播放的对象 MMControl1