14.我的媒体播放器课件

李振华

相邸镇初级中学2013-6-6第二单元VB程序设计

第8课我的媒体播放器八年级下学期信息技术1项目十三多媒体播放器项目目标：本项目设计了一个简单的多媒体播放器，可以播放各种格式的音频，实现文件的查询和播放等功能；在播放音频的同时还有相应的进度显示，在窗口的标题中会显示播放文件的相关信息等。通过本项目的学习要掌握多媒体控件的时候，特殊菜单的制作通用对话框控件的使用等。项目十三多媒体播放器项目十三多媒体播放器项目实施步骤：阅读相关基础知识界面设计在窗体上添加菜单项窗体上添加一个通用对话框程序设计为窗体添加程序段为“打开”菜单编写程序段编写其他程序段项目总结程序测试，完善功能程序打包13.1第1步：基础知识VisualBasic为用户提供了一组标准的系统对话框，这组对话框是各种应用程序都要用到的，因此称为通用对话框。它们是：“打开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。通用对话框必须用CommonDialog控件来建立，必须现将该控件添加到工具箱中。CommonDialog控件属于ActiveX控件的一个组件，它随同VB提供给用户，位于文件“C:\Windows\System\Comdlg32.ocx”中，名称为“MicroSoftCommonDialogControl6.0”。把CommonDialogue添加到工具箱后，就可以像使用其他标准控件一样为应用程序添加CommonDialog对象了如图13-1所示。图13-1CommonDialog控件13.1第1步：基础知识1、添加通用对话框到工具箱中采取的方法是：选择“工具”下拉菜单中的“部件”选项，弹出“部件对话框。在对话框的“控件”标签中的列表框中选择“MicrosoftCommonDialogControl6.0”项目。

单击“确定”按钮。如图13-2所示图13-2添加CommonDialog控件13.1第1步：基础知识2、使用CommonDialog控件把CommonDialog控件添加到窗体后，实际上已经把上述的各种标准对话框加入到应用程序中，但是程序运行时是看不见的。当某一时刻需要用到某个对话框时，再通过VB的显示方法使之显示在屏幕上。CommonDialog控件有如下的显示方法：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通用对话框的方法在设计阶段，通用对话框以图标的形式显示，程序运行后消失。对于CommonDialog控件，VB还有一个“属性页”对话框，也可以在“属性页”对话框中设置标准对话框的属性值。对话框类型Action属性值方法打开文件1ShowOpen保存文件2ShowSave选择颜色3ShowColor选择字体4ShowFont打印5ShowPrinter调用Help文件6ShowHelp13.1第1步：基础知识打开“属性页”对话框的方法：把CommonDialog控件添加到窗体上打开“属性”窗口在“属性”窗口中选择“（自定义）”，再单击右边的“…”按钮，弹出“属性页”对话框如图13-3所示图13-3通用对话框的属性13.1.2多媒体控件VisualBasic提供了几种用于多媒体开发的控件，主要包括以下几种：MCI控件MultimediaMCI多媒体控件通常也叫MMControl多媒体控件。它用于管理多媒体控制接口（MCI）设备，这些设备包括声卡、MIDI发生器、CD-ROM驱动器、音频播放器和视频播放器。MCI控件具有一组执行MCI命令的按钮。包括播放、暂停、前进、后退、停止、录制和弹出等。如下图所示：图13-4MCI控件的外形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菜单命令完成，才能将控件返回应用程序。再设计时，该控件不可用。PictureClip（图片剪贴控件）PictureClip控件用于存储快速显示的位图文件，在建立动画或需要存储大量的位图文件时经常使用。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-2MCI控件的属性命令描述Open打开MCI设备Pause暂停播放Stop停止MCI设备Back后退Close关闭MCI设备Eject从CD驱动器中弹出CD13.1.3Slider控件滑块控件(Slider)是由一个滑块和一个带有刻度的标尺组成的，用户既可以用鼠标拖动滑块，也可以通过按“方向键”或“PageUp”和“PageDown”键来移动滑块，此外单击滑块的任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可移动范围和当前位置。当滑块移动时，系统会自动显示滑块的当前值，滑块既可以水平设置，也可以垂直设置。在“部件”对话框中，选择“MicrosoftWindowsCommonControl6.0”选项，可以将滑块控件添加到工具箱中。其图标如图13-4所示。图13-4滑块控件外观图13.1.3Slider控件滑块控件的常用属性1、BorderStyle属性该属性设置或返回该控件的边界样式。0为无单线边框；1为有单线边框。2、Max属性和Min属性该属性设置或返回该控件的最大值和最小值。3、Orientation属性该属性决定了该控件是水平添加还是垂直添加，0为水平，1为垂直。4、TickFrequency属性该属性返回或设置该控件刻度标记的频率，此频率与其范围有关。例如，如果范围为100，而TickFrequency属性设置为2，则在范围中每隔两个增量设置一个刻度。13.1.3Slider控件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.3Slider控件8、TextPosition属性该属性返回或设置一个值，用来确定显示文本相对于对象的位置。0表示在滑块的正上方或左边显示滑块当前值。1表示在滑块的正下方或右边。9、Value属性该属性设置或返回滑块的当前值。10、ToolTipText属性该属性设置和返回鼠标在控件上暂停时显示的提示文本。滑块控件常用事件有Click事件、Change和Scroll事件。Click事件是鼠标单击事件。Scroll事件是在拖动滑块使其滚动时发生的，且Scroll事件发生在Click事件之前。Chang事件是在滑块位置改变时触发的。13.1.3Slider控件滑块控件的常用方法滑块控件常用方法有ClearSel和GetNumTicks。(1)ClearSel方法清除滑块控件的当前选择，此方法将SelStart属性设置为Value属性值，并将SelLength属性设置为0。(2)GetNumTicks方法设置Slider控件的Min和Max属性之间的刻度数目13.2第2步：界面设计13.2.1任务一：在窗体上添加菜单项在窗体上添加菜单项：如表13-3所示表13-3项目的菜单项菜单标题菜单名称其他文件（&F）wenjian…打开（&O）dakai…播放（&P）bofangEnable:False…—L1…暂停（&Z）zantingEnable:False…停止（&S）tingzhiEnable:False…—L2…退出（&Q）tuichu帮助（&H）bangzhu…关于（&A）guanyu13.2第2步：界面设计设计好的菜单编辑器如下图所示：图13-5设计好的菜单编辑器13.2.1任务二：窗体上添加一个通用对话框窗体上添加一个通用对话框（CommonDialog），添加方法：“工程”→“部件”→“控件”→“MicroSoftCommonDialogControl6.0”任务三：在窗体上添加一个Slider控件，添加方法：“工程”→“部件”→“控件”→“MicroSoftWindowsCommonControl6.0”任务四：在窗体上添加MCI控件，添加方法：“工程”→“部件”→“控件”→“MicroSoftMultimediaControl6.0任务五：在窗体上添加一个Timer控件，一个PictureBox控件并添加一幅图片（任意选择）13.2.1任务二：窗体上添加一个通用对话框设计完毕界面如图13-6所示：图13-6项目界面13.3第3步：程序设计13.3.1任务一：为窗体添加程序段：为窗体添加如下程序段：PrivateSubForm_Load()Timer1.Enabled=FalseMe.Timer1.Interval=100'规定显示输出的窗口为默认窗口Me.MMControl1.hWndDisplay=0'为对话框设置默认的文件扩展名Me.CommonDialog1.DefaultExt="所有文件|*.*"'设置对话框的类型列表框中所显示的文件类型过滤器Me.CommonDialog1.Filter="所有文件(*.*)|*.*|Windows视频(*.avi)|*.avi|CD音频(*.wav)|*.wav"EndSub13.3.2任务二：为“打开”菜单编写程序段为“打开”菜单编写如下程序段PrivateSubdakai_Click()'打开"打开文件"对话框 Me.CommonDialog1.ShowOpen'MCI控件读取打开文件Me.MMControl1.FileName=Me.CommonDialog1.FileName'如没有打开文件就退出IfMe.MMControl1.FileName=""ThenExitSubElse13.3.2任务二：为“打开”菜单编写程序段'打开MCI文件Me.MMControl1.Command="open"Me.Timer1.Enabled=True'设置Slider控件的最大和最小值Me.Slider1.Max=Me.MMControl1.LengthMe.Slider1.Min=0Me.Slider1.LargeChange=Me.MMControl1.Length/5Me.Slider1.SmallChange=Me.MMControl1.Length/10EndIfMe.Caption="已打开:"&CommonDialog1.FileNamebofang.Enabled=Truezanting.Enabled=Truetingzhi.Enabled=TrueEndSub13.3.3任务三：编写其他程序段其他程序段如下“播放”菜单PrivateSubbofang_Click()MMControl1.Command="play"Me.Caption="正在播放:"&CommonDialog1.FileNameEndSub“关于”菜单PrivateSubguanyu_Click()MsgBox"CDAudioPlayer1.0",vbOKOnly,"关于"EndSubTimer控件PrivateSubTimer1_Timer()Slider1.Value=MMControl1.PositionEndSub13.3.3任务三：编写其他程序段“停止”菜单PrivateSubtingzhi_Click()MMControl1.Command="close"Timer1.Enabled=FalseSlider1.Value=1Me.Caption="CD播放器"EndSub“退出”菜单PrivateSubtuichu_Click()EndEndSub“暂停”菜单PrivateSubzanting_Click()MMControl1.Command="pause"Me.Caption="暂停播放"&CommonDialog1.FileNameEndSub13.3.3任务三：编写其他程序段程序运行结果如下图13-7所示：图13-7项目的运行图13.4第4步：项目总结MCI控件播放文件的方法菜单项的制作Slider控件的使用媒体文件的相关属性13.5第5步：程序测试，完善功能。待完善功能包括把摆线的形状设计的更多一些，不同的摆线设计不同的颜色和线型以及正余弦函数显示的不同等。13.6第6步：程序打包程序打包，生成可执行文件EXE单击【文件】菜单下的生成“多媒体播放器.exe”，选择适当的位置保存生成的exe文件，单击“确定”。当需要再次打开的时候，找到“多媒体播放器.exe”，双击运行播放各种声音文件。项目总结：通用对话框