我的媒体播放器ppt课件

第二单元 VB程序设计 第8课 我的媒体播放器,八年级下学期信息技术,1,项目十三 多媒体播放器,项目目标： 本项目设计了一个简单的多媒体播放器，可以播放各种格式的音频，实现文件的查询和播放等功能；在播放音频的同时还有相应的进度显示，在窗口的标题中会显示播放文件的相关信息等。通过本项目的学习要掌握多媒体控件的时候，特殊菜单的制作通用对话框控件的使用等。,项目十三 多媒体播放器,项目主要知识点： 1、通用对话框控件（CommonDialog）的使用 添加通用对话框到工具箱 使用CommonDialog 控件 对话框的属性设置 2、打开文件的方法 3、多媒体控件的使用 MCI控件 Picture Clip Animation控件 ActiveMovie控件 4、特殊菜单的制作 5、Slider控件的使用 常用属性设置 控件常用方法ClearSel和GetNumTicks 6、媒体文件的相关属性 7、程序打包生成exe文件,项目十三 多媒体播放器,项目实施步骤： 阅读相关基础知识 界面设计 在窗体上添加菜单项 窗体上添加一个通用对话框程序设计 为窗体添加程序段 为“打开”菜单编写程序段 编写其他程序段 项目总结 程序测试，完善功能 程序打包,13.1 第1步：基础知识,Visual Basic为用户提供了一组标准的系统对话框，这组对话框是各种应用程序都要用到的，因此称为通用对话框。它们是：“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。 通用对话框必须用Common Dialog控件来建立，必须现将该控件添加到工具箱中。Common Dialog 控件属于ActiveX控件的一个组件，它随同VB提供给用户，位于文件“C:WindowsSystemComdlg32.ocx”中，名称为“MicroSoft CommonDialog Control 6.0”。把CommonDialogue 添加到工具箱后，就可以像使用其他标准控件一样为应用程序添加Common Dialog对象了如图13-1所示。,图13-1 CommonDialog 控件,13.1 第1步：基础知识,1、添加通用对话框到工具箱中采取的方法是： 选择“工具”下拉菜单中的“部件”选项，弹出“部件对话框。 在对话框的“控件”标签中的列表框中选择“Microsoft Common Dialog Control6.0”项目。,单击“确定”按钮。如图13-2所示,图13-2 添加CommonDialog 控件,13.1 第1步：基础知识,2、使用CommonDialog 控件 把CommonDialog 控件添加到窗体后，实际上已经把上述的各种标准对话框加入到应用程序中，但是程序运行时是看不见的。当某一时刻需要用到某个对话框时，再通过VB的显示方法使之显示在屏幕上。 Common Dialog控件有如下的显示方法： ShowOpen方法：显示“打开”对话框 ShowSave方法：显示“另存为”对话框 ShowColor方法：显示“颜色”对话框 ShowFont方法：显示“字体”对话框 ShowPrinter方法：显示“打印”对话框 ShowHelp方法：显示Windows帮助对话框 在程序中调用这些显示方法的格式： 控件名.显示方法,13.1 第1步：基础知识,例：CommonDialog1.ShowOpen 显示“打开”对话框 CommonDialog1.ShowSave 显示“另存为”对话框 OpenFile(CommonDialog1.Filename) 打开在“打开”对话框中选定的文件。 3、设置对话框的属性 CommonDialog控件中每个对话框都有自己特有的属性，与其他控件一样，这些属性既可以在属性窗口中设置，也可以在程序代码中设置。 通用对话框的Name属性的缺省名称为CommonDialogX（X为1，2，3）。通用对话框共有6种类型，对话框的类型可以通过Action属性设置，在表13-1中列出了各类对话框的Action属性值对应的方法。,13.1 第1步：基础知识,表13-1 通用对话框的方法 在设计阶段，通用对话框以图标的形式显示，程序运行后消失。 对于Common Dialog 控件，VB还有一个“属性页”对话框，也可以在“属性页”对话框中设置标准对话框的属性值。,13.1 第1步：基础知识,打开“属性页”对话框的方法： 把CommonDialog 控件添加到窗体上 打开“属性”窗口 在“属性”窗口中选择“（自定义）”，再单击右边的“”按钮，弹出“属性页”对话框如图13-3所示,图13-3 通用对话框的属性,13.1.2 多媒体控件,Visual Basic提供了几种用于多媒体开发的控件，主要包括以下几种： MCI控件 Multimedia MCI多媒体控件通常也叫MMControl多媒体控件。它用于管理多媒体控制接口（MCI）设备，这些设备包括声卡、MIDI发生器、CD-ROM驱动器、音频播放器和视频播放器。MCI控件具有 一组执行MCI命令的按钮。包括播放、暂停、前进、后退、停止、录制和弹出等。如下图所示：,图13-4 MCI控件的外形,13.1.2 多媒体控件,MCI控件的常用属性： ButtonEnabled属性：决定是否启用或者禁用空间中的某个按钮，禁用的按钮呈现灰色。当其值为True时，则启用指定的按钮；当其值为False时，不启用指定的按钮。 ButtonVisible属性：该属性决定是否显示空间中的某个按钮。当其值为True时显示指定的按钮；当其值为False时，则隐藏指定的按钮。 DeviceType属性：该属性用来指定要打开的MCI设备的类型。MCI控件可以播放的媒体类型取决于所使用的计算机中所具有的设备，在使用该控件前，需要先为其指定所使用的MCI设备类型。,13.1.2 多媒体控件,FileName属性：该属性用于指定要播放的多媒体文件，其值为包含文件目录和文件名称的字符串。 Orientation属性：决定了MMControl控件中的按钮是水平还是垂直排列。当其值为0时，按钮水平排列；其值为1时，按钮垂直排列。 Wait属性：决定MCI控件是否要等到下一条MCI菜单命令完成，才能将控件返回应用程序。再设计时，该控件不可用。 Picture Clip（图片剪贴控件） Picture Clip控件用于存储快速显示的位图文件，在建立动画或需要存储大量的位图文件时经常使用。,13.1.2 多媒体控件,Animation控件 Animation控件也称为无声控件，用该控件可以播放无声动画文件（无声的AVI文件），AVI动画由若干帧位图组成。Animation控件使用简单，功能也较为单调，且不能播放有声音的AVI文件，只能播放未压缩的或已用RLE（行程编码）压缩的AVI文件，因此它只用于简单的动画演示。 Animation控件除了一些通用控件属性、事件和方法外，还具有自身的一些特性： AutoPlay 属性：将在AVI文件加载到控件时，返回或者设置一个逻辑值，该值确定Animation控件是否开始播放AVI文件。 BackSyle属性：返回或者设置一个值，该值决定Animation控件是在透明的背景上还是在动画剪辑中所指定的背景颜色上绘制动画。在运行时为只读，该属性值为0时，表示透明；设置该属性为1时，表示不透明。 Center属性：决定动画是否居中。当该属性设置True（默认）时，会根据图像的大小，在控件中心显示动画。,13.1.2 多媒体控件,ActiveMovie控件 ActiveMovie控件可以播放MPEG、AVI、MIDI和WAV等多媒体文件，该控件是MCI控件的增强版本。而且该控件还自带时间数字显示和进度控制，并可以随时改变播放的起点。 5、多媒体API函数 在Windows中有一个动态链接库文件winmm.dll，该文件包含了100多个 具有多媒体处理功能的API函数，这些函数大多为低级的程序接口，例如，以wave开头的函数用来处理语音，以midi开头的函数用来处理合成音乐等。 6、MCI控件的方法介绍： Command属性，参加下表,13.1.2 多媒体控件,表13-2 MCI控件的属性,13.1.3 Slider控件,滑块控件(Slider)是由一个滑块和一个带有刻度的标尺组成的，用户既可以用鼠标拖动滑块，也可以通过按“方向键”或“PageUp”和“PageDown”键来移动滑块，此外单击滑块的任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可移动范围和当前位置。当滑块移动时，系统会自动显示滑块的当前值，滑块既可以水平设置，也可以垂直设置。 在“部件”对话框中，选择“Microsoft Windows Common Control6.0”选项，可以将滑块控件添加到工具箱中。其图标如图13-4所示。,图13-4 滑块控件外观图,13.1.3 Slider控件,滑块控件的常用属性 1、BorderStyle属性 该属性设置或返回该控件的边界样式。0为无单线边框；1为有单线边框。 2、Max属性和Min属性 该属性设置或返回该控件的最大值和最小值。 3、Orientation属性 该属性决定了该控件是水平添加还是垂直添加，0为水平，1为垂直。 4、TickFrequency属性 该属性返回或设置该控件刻度标记的频率，此频率与其范围有关。例如，如果范围为 100，而 TickFrequency 属性设置为 2，则在范围中每隔两个增量设置一个刻度。,13.1.3 Slider控件,5、TickStyle属性 该属性返回或设置该控件上显示的刻度标记的样式。 6、SmallChange和LargeChange属性 该属性决定用户操作滑块控件时滑块移动的刻度数量。 SmallChange属性表示用户按下左、右光标键时滑块移动了多少个刻度，默认为1。LargeChange属性表示用户按下PageUp键PageDown键，或用鼠标单击滑块两侧时，滑块移动了多少个刻度，默认为5。 7、SelectRange属性、SelStart属性和SelLength属性 SelectRange属性决定滑块能否有一个可选择的范围，默认为False。 SelStart属性决定选择范围的起始数值。 SelLength属性设定滑块选择范围的长度。 只有SelectRange属性为True时，才可以通过SelStart属性和SelLength属性在滑块中选择范围。,13.1.3 Slider控件,8、TextPosition属性 该属性返回或设置一个值，用来确定显示文本相对于对象的位置。 0表示在滑块的正上方或左边显示滑块当前值。 1表示在滑块的正下方或右边。 9、Value属性 该属性设置或返回滑块的当前值。 10、ToolTipText属性 该属性设置和返回鼠标在控件上暂停时显示的提示文本。 滑块控件常用事件有Click事件、Change和Scroll事件。 Click事件是鼠标单击事件。 Scroll事件是在拖动滑块使其滚动时发生的，且Scroll事件发生在 Click 事件之前。 Chang事件是在滑块位置改变时触发的。,13.1.3 Slider控件,滑块控件的常用方法 滑块控件常用方法有ClearSel和GetNumTicks。 (1)ClearSel方法清除滑块控件的当前选择，此方法将 SelStart 属性设置为 Value 属性值，并将SelLength 属性设置为0。 (2)GetNumTicks方法设置Slider控件的Min和Max属性之间的刻度数目,13.2 第2步：界面设计,13.2.1 任务一：在窗体上添加菜单项 在窗体上添加菜单项：如表13-3所示 表13-3 项目的菜单项,13.2 第2步：界面设计,设计好的菜单编辑器如下图所示： 图13-5 设计好的菜单编辑器,13.2.1 任务二：窗体上添加一个通用对话框,窗体上添加一个通用对话框（CommonDialog），添加方法： “工程”“部件” “控件” “MicroSoft Common Dialog Control 6.0” 任务三：在窗体上添加一个Slider控件，添加方法： “工程”“部件” “控件” “MicroSoft Windows Common Control 6.0” 任务四：在窗体上添加MCI控件，添加方法： “工程”“部件” “控件” “MicroSoft Multimedia Control 6.0 任务五：在窗体上添加一个Timer控件，一个PictureBox控件并添加一幅图片（任意选择）,13.2.1 任务二：窗体上添加一个通用对话框,设计完毕界面如图13-6所示：,图13-6 项目界面,13.3 第3步：程序设计,13.3.1 任务一：为窗体添加程序段： 为窗体添加如下程序段： Private Sub Form_Load() Timer1.Enabled = False Me.Timer1.Interval = 100 规定显示输出的窗口为默认窗口 Me.MMControl1.hWndDisplay = 0 为对话框设置默认的文件扩展名 Me.CommonDialog1.DefaultExt = “所有文件|*.*“ 设置对话框的类型列表框中所显示的文件类型过滤器 Me.CommonDialog1.Filter = “所有文件(*.*)|*.*|Windows视频(*.avi)|*.avi|CD音频(*.wav)|*.wav“ End Sub,13.3.2 任务二：为“打开”菜单编写程序段,为“打开”菜单编写如下程序段 Private Sub dakai_Click() 打开“打开文件“对话框 Me.CommonDialog1.ShowOpen MCI控件读取打开文件 Me.MMControl1.FileName = Me.CommonDialog1.FileName 如没有打开文件就退出 If Me.MMControl1.FileName = “ Then Exit Sub Else,13.3.2 任务二：为“打开”菜单编写程序段,打开MCI文件 Me.MMControl1.Command = “open“ Me.Timer1.Enabled = True 设置Slider控件的最大和最小值 Me.Slider1.Max = Me.MMControl1.Length Me.Slider1.Min = 0 Me.Slider1.LargeChange = Me.MMControl1.Length / 5 Me.Slider1.SmallChange = Me.MMControl1.Length / 10 End If Me.Caption = “已打开:“ & CommonDialog1.FileName bofang.Enabled = True zanting.Enabled = True tingzhi.Enabled = True End Sub,13.3.3 任务三：编写其他程序段,其他程序段如下 “播放”菜单 Private Sub bofang_Click() MMControl1.Command = “play“ Me.Caption = “正在播放:“ & CommonDialog1.FileName End Sub “关于”菜单 Private Sub guanyu_Click() MsgBox “CD Audio Player 1.0“, vbOKOnly, “关于“ End Sub Timer控件 Private Sub Timer1_Timer() Slider1.Value = MMControl1.Position End Sub,13.3.3 任务三：编写其他程序段,“停止”菜单 Private Sub tingzhi_Click() MMControl1.Command = “close“ Timer1.Enabled = False Slider1.Value = 1 Me.Caption = “CD播放器“ End Sub “退出”菜单 Private Sub tuichu_Click() End End Sub “暂停”菜单 Private Sub zanting_Click() MMControl1.Command = “pause“ Me.Caption = “暂停播放“ & CommonDialog1.FileName End Sub,13.3.3 任务三：编写其他程序段,程序运行结果如下图13-7所示：,图13-7 项目的运行图,13.4 第4步：项目总结,MCI控件播放文件的方法 菜单项的制作 Slider控件的使用 媒体文件的相关属性,13.5 第5步：程序测试，完善功能。,待完善功能包括把摆线的形状设计的更多一些，不同的摆线设计不同的颜色和线型以及正余弦函数显示的不同等。,13.6 第6步：程序打包,程序打包，生成可执行文件EXE 单击【文件】菜单下的生成“多媒体播放器.exe”，选择适当的位置保存生成的exe文件，单击“确定”。 当需要再次打开的时候，找到“多媒体播放器.exe”，双击运行播放各种声音文件。 项目总结： 通用对话框的建立方法：通过“工具”菜单添加控件Microsoft CommonDialog Control6.0 各种多媒体控件的用途：MCI控件，Picture Clip控件，Picture Clip控件，Animation控件，ActiveMovie控件，MCI控件等各个控件的适用情况以及用法 Slider控件常用属性，change事件以及常用方法ClearSel与GetNumTicks的作用,操作练习,操作练习 把该CD播放器进行功能改进，使其成为视频播放器。 复习思考： 填空题 通用对话框必须用 控件来建立，必须现将该控件添加到工具箱中。 MCI控件具有 一组执行MCI命令的按钮。包括 、 、 、 、 、 、 、 等 。 Common Dialog 控件属于 控件的一个组件，Common Dialog控件有如下的显示方法：ShowOpen方法：显示 对话框；ShowFont方法：显示 对话框；ShowPrinter方法：显示 对话框。 控件也称为无声控件，用该控件可以播放无声动画文件。 控件可以播放MPEG、AVI、MIDI和WAV等多媒体文件，该控件是MCI控件的增强版本。 控件是由一个滑块和一个带有刻度的标尺组成的，用户既可以用鼠标拖动滑块，也可以通过按“方向键”或 和 键来移动滑块，此外单击滑块的任意一侧也可以移动滑块。 二、思考题 1：如何让Slider控件与播放的文件进度保持一致？ 2：如何使用CommonDialog控件的文件过滤器功能？,李振华 相邸镇初级中学 2013-6-6,