《《Visual Basic程序设计项目化教程》-管小清-电子教案 项目13 多媒体播放器》由会员分享，可在线阅读，更多相关《《Visual Basic程序设计项目化教程》-管小清-电子教案 项目13 多媒体播放器（35页珍藏版）》请在金锄头文库上搜索。
1、Visual Basic 程序设计项目化教程,主编 管小清 郭贺彬,项目十三 多媒体播放器,项目目标： 本项目设计了一个简单的多媒体播放器，可以播放各种格式的音频，实现文件的查询和播放等功能；在播放音频的同时还有相应的进度显示，在窗口的标题中会显示播放文件的相关信息等。通过本项目的学习要掌握多媒体控件的时候，特殊菜单的制作通用对话框控件的使用等。,项目十三 多媒体播放器,项目主要知识点： 1、通用对话框控件（CommonDialog）的使用 添加通用对话框到工具箱 使用CommonDialog 控件 对话框的属性设置 2、打开文件的方法 3、多媒体控件的使用 MCI控件 Picture Cli
2、p Animation控件 ActiveMovie控件 4、特殊菜单的制作 5、Slider控件的使用 常用属性设置 控件常用方法ClearSel和GetNumTicks 6、媒体文件的相关属性 7、程序打包生成exe文件,项目十三 多媒体播放器,项目实施步骤： 阅读相关基础知识 界面设计 在窗体上添加菜单项 窗体上添加一个通用对话框程序设计 为窗体添加程序段 为“打开”菜单编写程序段 编写其他程序段 项目总结 程序测试，完善功能 程序打包,13.1 第1步：基础知识,Visual Basic为用户提供了一组标准的系统对话框，这组对话框是各种应用程序都要用到的，因此称为通用对话框。它们是：“打
3、开”对话框、“另存为”对话框、“颜色”对话框、“字体”对话框、“打印”对话框以及“帮助”对话框。 通用对话框必须用Common Dialog控件来建立，必须现将该控件添加到工具箱中。Common Dialog 控件属于ActiveX控件的一个组件，它随同VB提供给用户，位于文件“C:WindowsSystemComdlg32.ocx”中，名称为“MicroSoft CommonDialog Control 6.0”。把CommonDialogue 添加到工具箱后，就可以像使用其他标准控件一样为应用程序添加Common Dialog对象了如图13-1所示。,图13-1 CommonDialog
4、控件,13.1 第1步：基础知识,1、添加通用对话框到工具箱中采取的方法是： 选择“工具”下拉菜单中的“部件”选项，弹出“部件对话框。 在对话框的“控件”标签中的列表框中选择“Microsoft Common Dialog Control6.0”项目。,单击“确定”按钮。如图13-2所示,图13-2 添加CommonDialog 控件,13.1 第1步：基础知识,2、使用CommonDialog 控件 把CommonDialog 控件添加到窗体后，实际上已经把上述的各种标准对话框加入到应用程序中，但是程序运行时是看不见的。当某一时刻需要用到某个对话框时，再通过VB的显示方法使之显示在屏幕上。
5、Common Dialog控件有如下的显示方法： ShowOpen方法：显示“打开”对话框 ShowSave方法：显示“另存为”对话框 ShowColor方法：显示“颜色”对话框 ShowFont方法：显示“字体”对话框 ShowPrinter方法：显示“打印”对话框 ShowHelp方法：显示Windows帮助对话框 在程序中调用这些显示方法的格式： 控件名.显示方法,13.1 第1步：基础知识,例：CommonDialog1.ShowOpen 显示“打开”对话框 CommonDialog1.ShowSave 显示“另存为”对话框 OpenFile(CommonDialog1.Filenam
6、e) 打开在“打开”对话框中选定的文件。 3、设置对话框的属性 CommonDialog控件中每个对话框都有自己特有的属性，与其他控件一样，这些属性既可以在属性窗口中设置，也可以在程序代码中设置。 通用对话框的Name属性的缺省名称为CommonDialogX（X为1，2，3）。通用对话框共有6种类型，对话框的类型可以通过Action属性设置，在表13-1中列出了各类对话框的Action属性值对应的方法。,13.1 第1步：基础知识,表13-1 通用对话框的方法 在设计阶段，通用对话框以图标的形式显示，程序运行后消失。 对于Common Dialog 控件，VB还有一个“属性页”对话框，也可以
7、在“属性页”对话框中设置标准对话框的属性值。,13.1 第1步：基础知识,打开“属性页”对话框的方法： 把CommonDialog 控件添加到窗体上 打开“属性”窗口 在“属性”窗口中选择“（自定义）”，再单击右边的“”按钮，弹出“属性页”对话框如图13-3所示,图13-3 通用对话框的属性,13.1.2 多媒体控件,Visual Basic提供了几种用于多媒体开发的控件，主要包括以下几种： MCI控件 Multimedia MCI多媒体控件通常也叫MMControl多媒体控件。它用于管理多媒体控制接口（MCI）设备，这些设备包括声卡、MIDI发生器、CD-ROM驱动器、音频播放器和视频播放器
8、。MCI控件具有 一组执行MCI命令的按钮。包括播放、暂停、前进、后退、停止、录制和弹出等。如下图所示：,图13-4 MCI控件的外形,13.1.2 多媒体控件,MCI控件的常用属性： ButtonEnabled属性：决定是否启用或者禁用空间中的某个按钮，禁用的按钮呈现灰色。当其值为True时，则启用指定的按钮；当其值为False时，不启用指定的按钮。 ButtonVisible属性：该属性决定是否显示空间中的某个按钮。当其值为True时显示指定的按钮；当其值为False时，则隐藏指定的按钮。 DeviceType属性：该属性用来指定要打开的MCI设备的类型。MCI控件可以播放的媒体类型取决于
9、所使用的计算机中所具有的设备，在使用该控件前，需要先为其指定所使用的MCI设备类型。,13.1.2 多媒体控件,FileName属性：该属性用于指定要播放的多媒体文件，其值为包含文件目录和文件名称的字符串。 Orientation属性：决定了MMControl控件中的按钮是水平还是垂直排列。当其值为0时，按钮水平排列；其值为1时，按钮垂直排列。 Wait属性：决定MCI控件是否要等到下一条MCI菜单命令完成，才能将控件返回应用程序。再设计时，该控件不可用。 Picture Clip（图片剪贴控件） Picture Clip控件用于存储快速显示的位图文件，在建立动画或需要存储大量的位图文件时经常
10、使用。,13.1.2 多媒体控件,Animation控件 Animation控件也称为无声控件，用该控件可以播放无声动画文件（无声的AVI文件），AVI动画由若干帧位图组成。Animation控件使用简单，功能也较为单调，且不能播放有声音的AVI文件，只能播放未压缩的或已用RLE（行程编码）压缩的AVI文件，因此它只用于简单的动画演示。 Animation控件除了一些通用控件属性、事件和方法外，还具有自身的一些特性： AutoPlay 属性：将在AVI文件加载到控件时，返回或者设置一个逻辑值，该值确定Animation控件是否开始播放AVI文件。 BackSyle属性：返回或者设置一个值，该值
11、决定Animation控件是在透明的背景上还是在动画剪辑中所指定的背景颜色上绘制动画。在运行时为只读，该属性值为0时，表示透明；设置该属性为1时，表示不透明。 Center属性：决定动画是否居中。当该属性设置True（默认）时，会根据图像的大小，在控件中心显示动画。,13.1.2 多媒体控件,ActiveMovie控件 ActiveMovie控件可以播放MPEG、AVI、MIDI和WAV等多媒体文件，该控件是MCI控件的增强版本。而且该控件还自带时间数字显示和进度控制，并可以随时改变播放的起点。 5、多媒体API函数 在Windows中有一个动态链接库文件winmm.dll，该文件包含了100
12、多个 具有多媒体处理功能的API函数，这些函数大多为低级的程序接口，例如，以wave开头的函数用来处理语音，以midi开头的函数用来处理合成音乐等。 6、MCI控件的方法介绍： Command属性，参加下表,13.1.2 多媒体控件,表13-2 MCI控件的属性,13.1.3 Slider控件,滑块控件(Slider)是由一个滑块和一个带有刻度的标尺组成的，用户既可以用鼠标拖动滑块，也可以通过按“方向键”或“PageUp”和“PageDown”键来移动滑块，此外单击滑块的任意一侧也可以移动滑块。标尺上的刻度反映了滑块的可移动范围和当前位置。当滑块移动时，系统会自动显示滑块的当前值，滑块既可以水
13、平设置，也可以垂直设置。 在“部件”对话框中，选择“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属性 该属性返回或设置该控件刻度标记的
14、频率，此频率与其范围有关。例如，如果范围为 100，而 TickFrequency 属性设置为 2，则在范围中每隔两个增量设置一个刻度。,13.1.3 Slider控件,5、TickStyle属性 该属性返回或设置该控件上显示的刻度标记的样式。 6、SmallChange和LargeChange属性 该属性决定用户操作滑块控件时滑块移动的刻度数量。 SmallChange属性表示用户按下左、右光标键时滑块移动了多少个刻度，默认为1。LargeChange属性表示用户按下PageUp键PageDown键，或用鼠标单击滑块两侧时，滑块移动了多少个刻度，默认为5。 7、SelectRange属性、S
15、elStart属性和SelLength属性 SelectRange属性决定滑块能否有一个可选择的范围，默认为False。 SelStart属性决定选择范围的起始数值。 SelLength属性设定滑块选择范围的长度。 只有SelectRange属性为True时，才可以通过SelStart属性和SelLength属性在滑块中选择范围。,13.1.3 Slider控件,8、TextPosition属性 该属性返回或设置一个值，用来确定显示文本相对于对象的位置。 0表示在滑块的正上方或左边显示滑块当前值。 1表示在滑块的正下方或右边。 9、Value属性 该属性设置或返回滑块的当前值。 10、Tool
16、TipText属性 该属性设置和返回鼠标在控件上暂停时显示的提示文本。 滑块控件常用事件有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 任务二：窗体上添加一个通用对话框,窗体上添加一个通用对话框（
