程序设计基础——Visual Basic6.0案例教程 第2版 教学课件 ppt 作者 刘宝山 李丕瑾 第九章

第九章,多媒体设计,第2页,2019/5/22,目标,掌握多媒体控件的编程技术，使用多媒体控件进行音频、视频和Flash动画的播放。 掌握Multimedia控件、MediaPlayer控件、CommonDialog控件的使用方法,第3页,2019/5/22,任务1MMC播放器,使用Multimedia控件（Microsoft Multimedia Control）的MCI命令，播放MP3、WAVE、MADI、MIDI、AVI、MPEG、WMA等类型的音频文件。,第4页,2019/5/22,任务分析,该任务我们要研究以下内容 使用Multimedia控件的命令实现播放、停止和返回。,第5页,2019/5/22,任务分析,通过“工程”菜单的“部件”菜单项选择Microsoft Multimedia Control6.0文件把该控件添加到工具箱中，然后在工具箱中单击该控件，在窗体上创建该工具的命令条界面。 Multimedia控件由一系列命令按钮组成，当打开了有效的多媒体设备并且控件可用时，这些按钮会自动完成工作。按钮的名称分别是Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject，用缺省的按钮功就能很好地播放音乐和视频。,第6页,2019/5/22,任务分析,Multimedia控件 管理媒体控制接口(Media Control Interface)设备上的多媒体文件的记录与回放。 用来向诸如声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器及播放器等设备发出MCI命令。MMC控件还支持Windows(*avi)视频文件的回放。,第7页,2019/5/22,任务分析,1. Multimedia控件常用属性 AutoEnable属性 决定Multimedia控件是否能够根据MCI设备类型自动启动或禁用控件中的某个按钮。 如AutoEnabled属性设置为True，MMC控件就启用指定MCI设备类型在当前模式下所支持的全部按钮，禁用那些MCI设备类型在当前模式下不支持的按钮。 False：不能启用或禁用按钮； True：(缺省值)自动启用功能可用的按钮，禁用功能不可用的按钮。,第8页,2019/5/22,任务分析,DeviceType属性 在使用Multimedia控件中的按钮之前，必须用控件的DeviceType属性打开一个有效的多媒体设备。一般在Form_Load事件过程中放入程序代码就可以实现这项任务。这样，当程序启动时，系统就会自动配置该控件。如果想用同一控件管理几个不同的多媒体设备，也可以在程序运行过程中，动态修改DeviceType属性。播放音频文件时不需要设定该属性。,第9页,2019/5/22,任务分析,DeviceType属性 语法：MMControl1.DeviceType=DevName 其中DevName是一个字符串值，代表一个有效的设备类型。AVIVideo、CDAudio、DAT、DigitalVideo、MMMovie、其它、Overlay、扫描仪、序列发生器、VCR、视盘或 WaveAudio。 例如，指定能播放WaveAudio文件的设备，应指定下面的字符串： MMControl1.DeviceType=“WaveAudio”,第10页,2019/5/22,任务分析,Enabled属性 决定控件的各个按钮是否可使用。这一属性允许在运行时启用或禁用MCI控件。它的值它的值False/ True，True为缺省值。 Visible属性 决定控件的各个按钮是否可可见。这一属性允许在运行时启用或禁用MCI控件。它的值False/ True，True为缺省值。,第11页,2019/5/22,任务分析,要控制单个的按钮可见或不可见，可用或不可用，可以设置该按钮对应的 Visible 和 Enabled 属性。例如，Back 按钮中的 BackEnabled 和 BackVisible 属性，Play按钮的PlayEnabled 和 PlayVisible 属性等等。九个按钮中的每一个都有对应的这些属性。,第12页,2019/5/22,任务分析,Command属性 在用DeviceType属性标识了程序中想要使用的设备之后，就可以开始用Command属性把MCI命令发送给该设备。要发送的命令与MMC控件上各按钮的名称一致：Prev，Next，Play，Pause，Back，Step，Stop，Record和Eject。另外，还可以向控件发送一些通用MCI命令，包括Open，Close，Sound，Seek，和Save。 下面的语句使用Multimedia MCI控件的Command属性在已经打开的多媒体设备上进行播放、返回、停止等操作： MMControl1.Command = “Open“ 打开的多媒体设备 MMControl1.Command = “Play“ 播放 MMControl1.Command = “Prev“ 返回 MMControl1.Command = “Stop“ 停止,第13页,2019/5/22,任务分析,Length属性 规定打开的MCI设备上的媒体长度。在设计时不可用，在运行时是只读的。 From属性 为Play或Record命令规定起始点。在设计时不可用。赋给该属性的值只对下一条 MCI 命令有效。后面的 MCI 命令会一直忽略 From 属性，除非赋给它另外一个值（不同的或可标识的）。 To属性 该属性规定Play或 Record 命令的结束点。在设计时不可用。赋给该属性的值只对下一条MCI命令有效。后面的MCI命令会一直忽略To属性，除非赋给它另外一个值（不同的或可标识的）。,第14页,2019/5/22,任务分析,Position 属性 该属性指定打开的MCI 设备的当前位置。在设计时，该属性不可用，在运行时，它是只读的。 FileName属性 指定Open命令将要打开的或者Save命令将要保存的文件。如果在运行时要改变FileName属性，就必须先关闭然后再重新打开Multimedia控件。,第15页,2019/5/22,任务分析,1. Multimedia控件 属性及事件 StatusUpdate事件 按UpdateInterval属性所给定的时间间隔自动地触发：这一事件允许应用程序更新显示，以通知用户当前MCI设备状态。应用程序可从Position、Length和Mode等属性中获得状态信息。,第16页,2019/5/22,任务分析,Multimedia控件 属性及事件 Done事件 当Notify属性为True的MCI命令结束时发生；（Notify属性决定下一条 MCI 命令是否使用 MCI 通知服务。如果它被设置为True，那么 Notify 属性在下一条 MCI 命令完成时产生一个Done事件，在设计时，该属性不可用）。,第17页,2019/5/22,任务分析,Multimedia控件 属性及事件 除了以上事件外，还有一些与命令按钮相关的事件，根据事件名称很容易识别这些事件。 例如对于Play按钮有： PlayClick： “Play”按钮的单击事件 PlayCompleted： “Play”按钮的命令完成事件 PlayGotFocus： “Play”按钮的获得焦点事件 PlayLostFocus： “Play”按钮的失去焦点事件。,第18页,2019/5/22,任务分析,2. 文件系统对象（FileSystemObject） FileSystemObject提供对计算机文件系统的访问。 该对象的两个常用方法是： GetBaseName（Path） 返回一个包含在路径中文件名的字符串，该字符串不包含文件扩展名。 GetExtensionName（Path） 返回一个包含路径中文件名的扩展名。 FSO 对象模型包含在一个称为 Scripting 的类型库中，此类型库位于 Scrrun.Dll 文件中。如果还没有引用此文件，请从“属性”菜单的“引用”对话框选择“Microsoft Scripting Runtime”项。,第19页,2019/5/22,任务分析,3. Slider控件 Slider 控件是包含滑块和可选择性刻度标记的窗口。可以通过程序控制、拖动滑块、用鼠标单击滑块的任意一侧或者使用键盘移动滑块。,第20页,2019/5/22,任务分析,3. Slider控件 属性与事件 Max属性 表示当滑块处于最大位置时所代表的值。 Min属性 表示当滑块处于最小位置时所代表的值。 SmallChange 属性 表示用户单击滚动条两端箭头时，滑块移动的增量值。 LargeChange 属性 表示用户在滚动条的空白处或Slide控件的滑块与两端之间滑动时，滑块移动的增量值。,第21页,2019/5/22,任务分析,4.Slider控件 属性与事件(续) Value 属性 该属性表示滑块所处位置的当前值。 外观属性有： tickstyle属性 在滑块上面还是下面等 tickfrequency属性 刻度出现频率，决定在控件中出现多少个刻度。,第22页,2019/5/22,任务分析,4.Slider控件 属性与事件 Slider控件主要事件 Scroll事件和Change事件 当拖动滑块时会触发Scroll事件，而当改变Value属性（滚动条内滑块位置改变）会触发Change事件。,第23页,2019/5/22,任务实施,创建新工程 在工具箱的空白处右单击，在弹出的菜单中选择“部件”选项，打开“部件对话框”，为工具箱添加Multimedia控件，CommonDialog控件和Slider控件,Multimedia控件选项和在工具箱上的图标,第24页,2019/5/22,任务实施,CommonDialog控件选项和在工具箱上的图标,Slider控件选项和在工具箱上的图标,第25页,2019/5/22,任务实施,设置窗体及控件的属性,第26页,2019/5/22,任务实施,在代码窗口编写事件代码并保存、运行 源代码,CDlg1.Filter = “mp3|*mp3|WAVE|*.wav|MADI(mid)|*.mid|MIDI(rmi)|“ & _ “*.rmi|AVI(avi)|*.avi|MPEG(mpg)|*.mpg|WMA|*.wma“ CDlg1.ShowOpen On Error Resume Next,Dim FS As New FileSystemObject FileName = FS.GetBaseName(FileName) & “.“ & FS.GetExtensionName(FileName) LblNote.Caption = “正在播放：“ & FileName SldTool.Max = MMC.Length SldTool.Min = MMC.From SldTool.LargeChange = (SldTool.Max - SldTool.Min) SldTool.SmallChange = SldTool.LargeChange / 2,第27页,2019/5/22,任务2Windows Media Player播放器,使用MediaPlayer控件，设计一款简易的Windows Media Player播放器。,简易Windows Media Player播放器,第28页,2019/5/22,任务分析,该任务我们要研究以下内容 MediaPlayer控件,第29页,2019/5/22,任务分析,Windows Media Player控件是一个ActiveX控件，功能非常强大，具有众多的属性和方法，使用非常灵活。在使用时需要从“部件”对话框中添加到工具箱，MSDN中没有对它的说明。,第30页,2019/5/22,任务分析,URL属性 类型为String，指定媒体位置，本机或网络地