第10章多媒体程序设计

1、1第第10 10章章 多媒体程序设计多媒体程序设计 v理解多媒体程序设计的基本思想和原理理解多媒体程序设计的基本思想和原理v掌握掌握MMControl控件控件的常用属性和事件，以及使用它开发多的常用属性和事件，以及使用它开发多媒体程序的基本步骤媒体程序的基本步骤v掌握掌握MediaPlayer控件控件的常用属性和方法，以及使用它开发的常用属性和方法，以及使用它开发多媒体程序的基本步骤多媒体程序的基本步骤v理解理解Slider控件控件的作用，掌握其常用属性和事件的使用的作用，掌握其常用属性和事件的使用学习目标学习目标2第第10 10章章 多媒体程序设计多媒体程序设计知识结构图知识结构图案例案例1

2、 CD播放器播放器多媒体程序设计多媒体程序设计案例案例2 MP3播放器播放器多媒体程序设计概述多媒体程序设计概述MMControl控件控件MediaPlayer控件控件Slider控件控件310.1 10.1 案例案例1 1CDCD播放器播放器 案例案例1 1 CDCD播放器播放器 案例演示案例演示 案例描述案例描述 案例分析案例分析 案例设计案例设计 相关知识相关知识 410.1 10.1 案例案例1 1CDCD播放器播放器v一个一个CD播放器程序运行界面播放器程序运行界面如图如图10.1所示。所示。v将将CD放入光驱后，单击放入光驱后，单击“播播放放”按钮后，开始播放按钮后，开始播放CD曲

3、曲目，同时界面上显示曲目总数、目，同时界面上显示曲目总数、正在播放曲目以及曲目播放总正在播放曲目以及曲目播放总时间信息，同时播放器还提供时间信息，同时播放器还提供了选择上一首、下一首曲目，了选择上一首、下一首曲目，暂停、停止播放和弹出暂停、停止播放和弹出CD盘盘片等功能。片等功能。 案例描述案例描述图图10.1 CD播放器界面播放器界面 510.1 10.1 案例案例1 1CDCD播放器播放器v用户界面分析用户界面分析 标签标签Label用来显示提示信息用来显示提示信息命令按钮命令按钮CommandButton用来执行有关操作用来执行有关操作直线控件直线控件Line用来显示分隔界面用来显示分隔

4、界面多媒体控件多媒体控件MMControl实现实现CD的播放控制的播放控制 v程序分析程序分析本案例设计的本案例设计的CD播放器只使用播放器只使用多媒体控件多媒体控件的控制功能，的控制功能，而不使用控件中的按钮，重新定制界面按钮，并在程序而不使用控件中的按钮，重新定制界面按钮，并在程序中通过多媒体控件的中通过多媒体控件的Command属性控制属性控制CD播放。播放。 案例分析案例分析610.1 10.1 案例案例1 1CDCD播放器播放器v程序分析程序分析在在Form_Load事件中设置多媒体设备的类型、要打开事件中设置多媒体设备的类型、要打开的文件以及其他属性，然后使用的文件以及其他属性，然

5、后使用Open命令打开命令打开CD播放播放设备。设备。CD播放器各控制按钮功能播放器各控制按钮功能：通过：通过Command属性属性发送发送相应的控制命令控制相应的控制命令控制CD的播放，同时控制相应按钮的的播放，同时控制相应按钮的启用和禁用。启用和禁用。案例分析案例分析710.1 10.1 案例案例1 1CDCD播放器播放器案例设计案例设计v界面设计：界面设计：4个标签控件个标签控件7个命令按钮控件个命令按钮控件1个多媒体控件个多媒体控件1个直线控件个直线控件案例设计案例设计标签标签命令按钮命令按钮多媒体控件多媒体控件直线直线810.1 10.1 案例案例1 1CDCD播放器播放器v属性设置

6、属性设置案例设计案例设计对象对象属性名称属性名称属性值属性值Form1CaptionCD播放器播放器Label1CaptionCD播放器播放器Line1BorderColor&H00FF0000&BorderWidth3Label2Caption曲目总数曲目总数Label3Caption正在播放曲目正在播放曲目Label4Caption曲目播放总时间曲目播放总时间MMControl1VisibleFalseComPlayCaption播放播放ComPrevCaption上一首上一首ComNextCaption下一首下一首ComPauseCaption暂停暂停ComStopCaption停止停止

7、ComEjectCaption弹出弹出ComEndCaption退出退出910.1 10.1 案例案例1 1CDCD播放器播放器v代码设计代码设计 案例设计案例设计Private Sub Form_Load() MMControl1.Notify = False MMControl1.Shareable = False MMControl1.TimeFormat = 0 MMControl1.DeviceType = cdaudio MMControl1.Command = Open MMControl1.UpdateInterval = 1000 ComStop.Enabled = Fals

8、e ComPause.Enabled = False End Sub下一个下一个MCI命令完成时，命令完成时，不触发不触发Done事件事件设置多媒体设备设置多媒体设备不能共享不能共享设置时间格式，设置时间格式，以毫秒为单位以毫秒为单位设置设置MCI设备的设备的类型为音频类型为音频CD播放器播放器打开设备打开设备设置两次连续的设置两次连续的StatusUpdate事件之间的时间事件之间的时间间隔间隔禁用停止和禁用停止和暂停按钮暂停按钮1010.1 10.1 案例案例1 1CDCD播放器播放器v代码设计代码设计 案例设计案例设计Private Sub MMControl1_StatusUpdate

9、() Label2.Caption = 曲目总数：曲目总数： & MMControl1.Tracks Label3.Caption = 正在播放曲目：正在播放曲目： & Str$(MMControl1.Track) Label4.Caption = 曲目播放总时间：曲目播放总时间： & Trim(Str(Int(MMControl1.Length / 60000) & 分分End Sub1110.1 10.1 案例案例1 1CDCD播放器播放器v代码设计代码设计 案例设计案例设计Private Sub ComPlay_Click() MMControl1.Command = Play ComP

10、ause.Enabled = True ComPlay.Enabled = False ComStop.Enabled = TrueEnd SubPrivate Sub ComStop_Click() MMControl1.Command = Stop ComStop.Enabled = False ComPause.Enabled = False ComPlay.Enabled = TrueEnd Sub开始播放开始播放停止播放停止播放1210.1 10.1 案例案例1 1CDCD播放器播放器v代码设计代码设计 案例设计案例设计Private Sub ComPause_Click() MMC

11、ontrol1.Command = Pause ComPlay.Enabled = True ComPause.Enabled = FalseEnd SubPrivate Sub ComPrev_Click() MMControl1.Command = prevEnd SubPrivate Sub ComNext_Click() MMControl1.Command = nextEnd Sub暂停播放暂停播放上一个曲目上一个曲目下一个曲目下一个曲目1310.1 10.1 案例案例1 1CDCD播放器播放器v代码设计代码设计 案例设计案例设计Private Sub ComEject_Click(

12、) MMControl1.Command = stop MMControl1.Command = eject ComPlay.Enabled = TrueEnd SubPrivate Sub ComEnd_Click() MMControl1.Command = Stop MMControl1.Command = Close EndEnd SubPrivate Sub Form_Unload(Cancel As Integer) MMControl1.Command = Stop MMControl1.Command = CloseEnd Sub弹出光驱弹出光驱退出程序退出程序1410.1 1

13、0.1 案例案例1 1CDCD播放器播放器相关知识相关知识多媒体程序设计概述多媒体程序设计概述 多媒体控件多媒体控件 12 2151. 1.多媒体程序设计概述多媒体程序设计概述 vVB提供的可实现多媒体播放的控件有提供的可实现多媒体播放的控件有Animation、ActiveMovie、Multimedia和和MediaPlayer等，使用这几等，使用这几个控件可以播放常见的个控件可以播放常见的WAV、MP3、MIDI、MOV、AVI、MPEG、CD、VCD等多媒体音频、视频文件。等多媒体音频、视频文件。v在使用多媒体控件方面，这些控件各有特点，使用较多、在使用多媒体控件方面，这些控件各有特点

14、，使用较多、功能较强的多媒体控件是功能较强的多媒体控件是MMControl控件和控件和MediaPlayer控件。控件。 161. 1.多媒体程序设计概述多媒体程序设计概述 v使用多媒体控件制作多媒体播放器程序，首先是在设计阶使用多媒体控件制作多媒体播放器程序，首先是在设计阶段在窗体内放置多媒体控件，而多媒体的控制操作可以有段在窗体内放置多媒体控件，而多媒体的控制操作可以有以下两种方式：以下两种方式：使用多媒体控件直接控制媒体播放使用多媒体控件直接控制媒体播放。设置多媒体控件是。设置多媒体控件是可见的，使用控件上的媒体控制按钮实现多媒体的控制，可见的，使用控件上的媒体控制按钮实现多媒体的控制，

15、单击按钮时，系统自动引导相应功能的事件程序，设计单击按钮时，系统自动引导相应功能的事件程序，设计者不必编写其事件程序。者不必编写其事件程序。只使用多媒体控件的多媒体功能，而不使用控件中的按只使用多媒体控件的多媒体功能，而不使用控件中的按钮钮。可以设置多媒体控件是不可见的，在程序中通过多。可以设置多媒体控件是不可见的，在程序中通过多媒体控件的属性或方法控制多媒体播放。媒体控件的属性或方法控制多媒体播放。 172. 2.多媒体控件多媒体控件 v多媒体控件（多媒体控件（MMControl）也称为媒体控制接口（也称为媒体控制接口（MCI，Media Control Interface）控件，它用于管理

16、）控件，它用于管理MCI设备上的设备上的多媒体文件的录制和播放。多媒体文件的录制和播放。vMCI在控制音频、视频等设备方面，提供了与设备无关的控在控制音频、视频等设备方面，提供了与设备无关的控制方法。制方法。v这个控件就是一组按钮，用来向声卡、这个控件就是一组按钮，用来向声卡、MIDI序列发生器、序列发生器、CD-ROM驱动器、视频驱动器、视频VCD播放器等设备发出播放器等设备发出MCI命令命令。v使用使用MMControl控件制作的多媒体视频播放器，在播放时控件制作的多媒体视频播放器，在播放时会自动打开另一个播放窗口，只有当使用关闭设备命令时，会自动打开另一个播放窗口，只有当使用关闭设备命令

17、时，窗口才会关闭。窗口才会关闭。vMCI 控件可以播放控件可以播放WAV、MP3、MIDI、MOV、AVI、MPEG和和CD等多媒体文件。等多媒体文件。 182. 2.多媒体控件多媒体控件 （1）控件的加载）控件的加载v 选择选择“工程工程”“部件部件”命令，在打开的命令，在打开的“部件部件”对话框对话框中选中中选中“Microsoft Multimedia Control 6.0”选项，然后单选项，然后单击击“确定确定”按钮，即可把按钮，即可把MMControl控件添加到工具箱中。控件添加到工具箱中。v 在设计时，将在设计时，将MMControl控件添加到窗体上后，其外观是一控件添加到窗体上

18、后，其外观是一组按钮，如图组按钮，如图10.3所示。所示。 图图10.3 MMControl控件外观控件外观 192. 2.多媒体控件多媒体控件 （1）控件的加载）控件的加载v 按钮的图标、名称和功能如表按钮的图标、名称和功能如表10.2所示。所示。 按钮图标按钮图标按钮名称按钮名称按钮功能按钮功能Prev(前一个前一个)回到当前轨迹的起点处回到当前轨迹的起点处Next(下一个下一个)定位到下一个轨迹的起点处定位到下一个轨迹的起点处Play(播放播放)播放多媒体播放多媒体Pause(暂停暂停)暂停播放暂停播放Back(向后步进向后步进)向后退一步（对于视频动画是向后退一帧）向后退一步（对于视频

19、动画是向后退一帧）Step(向前步进向前步进)向前进一步（对于视频动画是向前进一帧）向前进一步（对于视频动画是向前进一帧）Stop(停止停止)停止播放停止播放Record(录制录制)对多媒体进行录制对多媒体进行录制Eject(弹出弹出)弹出光驱、退出光盘弹出光驱、退出光盘202. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v AutoEnable属性：用于设置属性：用于设置MMControl控件是否能够根据控件是否能够根据MCI设备类型自动启动或关闭控件中的某个按钮。设备类型自动启动或关闭控件中的某个按钮。当其值为当其值为True时，时，MMControl控件就启用指定控件就启用指定M

20、CI设备设备类型在当前模式下所支持的全部按钮，禁用那些类型在当前模式下所支持的全部按钮，禁用那些MCI设设备类型在当前模式下不支持的按钮；备类型在当前模式下不支持的按钮；值为值为False时，不能启用或禁用按钮。时，不能启用或禁用按钮。 AutoEnable属性可以替代属性可以替代ButtonEnabled属性的作用，当属性的作用，当Enabled和和AutoEnable属性同时为属性同时为True时，时，ButtonEnabled属性不起作用。属性不起作用。212. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v ButtonEnabled属性：用于设置是否启用或禁用控件中的某属性：用

21、于设置是否启用或禁用控件中的某个按钮。个按钮。当其值为当其值为True时，则启用指定的按钮；时，则启用指定的按钮；当值为当值为False时，禁用指定的按钮。时，禁用指定的按钮。 对于本属性，对于本属性，Button 可以是以下任意一种：可以是以下任意一种：Back、Eject、Next、Pause 、Play、Prev、 Record、Step或或Stop 即该属性是由即该属性是由9个属性组成的，分别是：个属性组成的，分别是：BackEnabled、PlayEnabled、NextEnabled属性等。属性等。 例如，如果要禁用例如，如果要禁用Play按钮，可以使用如下语句：按钮，可以使用如下

22、语句： MMControl1.PlayEnabled=False222. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v ButtonVisible属性：设置控件中的某个按钮是否显示。属性：设置控件中的某个按钮是否显示。当其值为当其值为True时，显示指定的按钮；时，显示指定的按钮；当其值为当其值为False时，隐藏指定的按钮。时，隐藏指定的按钮。同同ButtonEnabled属性类似，属性类似，ButtonVisible属性中的属性中的Button部分也是由前述的部分也是由前述的9个按钮构成。个按钮构成。v DeviceType属性：用于设置要打开的属性：用于设置要打开的MCI设备的类

23、型。该设备的类型。该属性值为字符串类型，可用的设备类型名及含义如表属性值为字符串类型，可用的设备类型名及含义如表10.3所所示。示。 232. 2.多媒体控件多媒体控件设备类型名设备类型名文件类型文件类型设备名称设备名称CDAudio音频音频CD播放器播放器DAT数字音频磁带播放器数字音频磁带播放器DigitalVideo窗口中的数字视频窗口中的数字视频Other未定义未定义MCI设备设备Overlay模拟视频图像叠加设备模拟视频图像叠加设备Scanner图像扫描仪图像扫描仪Sequencer.MID音响设备数字接口音响设备数字接口(MIDI)序列发生器序列发生器VCR视频磁带录放器视频磁带录

24、放器AVIVideo.AVI数字影像设备数字影像设备Videodisc视盘播放器视盘播放器WaveAudio.WAV播放数字波形文件的音频设备播放数字波形文件的音频设备MpegVideo.Mpg播放播放VCD表表10.3 MCI设备类型设备类型242. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v Command属性：用于设置将要执行的属性：用于设置将要执行的MCI命令。命令。用用DeviceType属性设置好设备类型后，可用属性设置好设备类型后，可用Command属性将属性将MCI命令发送给设备。命令发送给设备。要发送的命令与要发送的命令与MMControl控件上各按钮的功能相对应，

25、控件上各按钮的功能相对应，例如，例如，“Play”命令与命令与“播放播放”按钮相对应。例如，按钮相对应。例如，MMControl1.Command = Play。25命令命令含义含义Open打开一个打开一个MCI设备设备Close关闭一个关闭一个MCI设备设备Play使用使用MCI设备播放一个多媒体文件设备播放一个多媒体文件Pause暂停或继续暂停或继续MCI设备的播放或录制设备的播放或录制Stop停止停止MCI设备的播放或录制设备的播放或录制Back将将MCI设备的轨道向后退一步（对于视频动画是向后退一帧）设备的轨道向后退一步（对于视频动画是向后退一帧）Step将将MCI设备的轨道向前进一步

26、（对于视频动画是向前进一帧）设备的轨道向前进一步（对于视频动画是向前进一帧）Prev回到当前轨迹的起点处，即定位到当前曲目的起始位置回到当前轨迹的起点处，即定位到当前曲目的起始位置Next到下一个轨迹的起点处，即定位到下一个曲目的起始位置到下一个轨迹的起点处，即定位到下一个曲目的起始位置Seek如果没有进行播放，则搜索一个位置（位置由如果没有进行播放，则搜索一个位置（位置由To属性给出）；如果属性给出）；如果播放正在进行，则从给定位置开始继续播放播放正在进行，则从给定位置开始继续播放Record使用使用MCI设备进行录制设备进行录制Eject弹出光驱、退出光盘弹出光驱、退出光盘Sound播放声

27、音播放声音Save保存打开的多媒体文件保存打开的多媒体文件表表10.4 MCI命令及含义命令及含义 262. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v FileName属性：用于设置要播放的多媒体文件，其值为包含属性：用于设置要播放的多媒体文件，其值为包含文件目录和文件名的字符串。文件目录和文件名的字符串。v Notify属性：用于设置下一个属性：用于设置下一个MCI命令是否使用命令是否使用MCI通知服务通知服务。如果值为。如果值为True，则在下一个，则在下一个MCI命令完成时，会触发一个回命令完成时，会触发一个回调事件（调事件（Done）；如果值为）；如果值为False，则下一

28、个，则下一个MCI命令完成时命令完成时，不触发，不触发Done事件。在设计时，该属性不可用。事件。在设计时，该属性不可用。v UpdateInterval属性：规定两次连续的属性：规定两次连续的StatusUpdate事件之事件之间的时间间隔，单位为毫秒（间的时间间隔，单位为毫秒（ms）。）。v Track属性：用于设置或返回正在播放的曲目。属性：用于设置或返回正在播放的曲目。272. 2.多媒体控件多媒体控件 （2）常用属性）常用属性v TimeFormat属性：用于设置或返回多媒体设备使用的时间格属性：用于设置或返回多媒体设备使用的时间格式。默认值为式。默认值为0，表示以毫秒为单位；值为，

29、表示以毫秒为单位；值为1，表示以，表示以“时：分时：分：秒：秒”为单位；值为为单位；值为2，表示以，表示以“分：秒：帧分：秒：帧”为单位；值为为单位；值为3表示以帧为单位。表示以帧为单位。v Length属性：用于返回打开的属性：用于返回打开的MCI设备上的媒体长度，以设备上的媒体长度，以TimeFormat属性设置的时间格式为单位。属性设置的时间格式为单位。v From属性：用于设置多媒体设备播放或其他动作的起始位置属性：用于设置多媒体设备播放或其他动作的起始位置。以。以TimeFormat属性设置的时间格式为单位。属性设置的时间格式为单位。v To属性：用于设置多媒体设备播放或其他动作的结

30、束位置。属性：用于设置多媒体设备播放或其他动作的结束位置。以以TimeFormat属性设置的时间格式为单位。属性设置的时间格式为单位。282. 2.多媒体控件多媒体控件 （3）常用事件）常用事件v Done事件事件:当当Notify属性设置为属性设置为True后所遇到的第一个后所遇到的第一个MCI命命令结束时触发该事件。每一次令结束时触发该事件。每一次Notify属性仅对一条属性仅对一条MCI控制命控制命令有效，用户可在令有效，用户可在Done事件中决定如何进一步处理程序。事件中决定如何进一步处理程序。v StatusUpdate事件：按事件：按UpdateInteval属性设置的时间间隔自属

31、性设置的时间间隔自动地触发。该事件允许应用程序更新显示，以通知用户当前动地触发。该事件允许应用程序更新显示，以通知用户当前MCI设备的状态。应用程序可从设备的状态。应用程序可从Position、length 和和 Mode等等属性中获得状态信息。属性中获得状态信息。292. 2.多媒体控件多媒体控件 （4）MMControl控件的使用方法控件的使用方法 MMControl控件在具体使用过程中应按照下列步骤进行：控件在具体使用过程中应按照下列步骤进行：v 加载控件加载控件：将：将MMControl控件添加到窗体中。控件添加到窗体中。v 打开媒体设备打开媒体设备：在：在Form_Load事件中设置

32、媒体设备的类型、事件中设置媒体设备的类型、要打开的文件以及其他属性，然后使用要打开的文件以及其他属性，然后使用Open命令打开设备。命令打开设备。v 媒体操作媒体操作：可以使用多媒体控件直接控制媒体播放；也可以：可以使用多媒体控件直接控制媒体播放；也可以只使用多媒体控件的多媒体功能，而不使用控件中的按钮，用只使用多媒体控件的多媒体功能，而不使用控件中的按钮，用户重新定制界面按钮，并在程序中通过多媒体控件的户重新定制界面按钮，并在程序中通过多媒体控件的Command属性控制多媒体播放。属性控制多媒体播放。v 关闭媒体设备关闭媒体设备：在退出应用程序时，要将打开的：在退出应用程序时，要将打开的MC

33、I设备关设备关闭，可以在窗体的闭，可以在窗体的Form_UnLoad事件中使用事件中使用Close命令关闭命令关闭打开的打开的MCI设备设备 3010.2 10.2 案例案例2 2MP3MP3播放器播放器 案例案例2 2 MP3MP3播放器播放器 案例演示案例演示 案例描述案例描述 案例分析案例分析 案例设计案例设计 相关知识相关知识 3110.2 10.2 案例案例2 2MP3MP3播放器播放器v一个一个MP3播放器程序运行界面如图播放器程序运行界面如图10.4所示。所示。v单击单击“打开打开”按钮，在弹出的按钮，在弹出的“打开文件打开文件”对话框中选择要播放的音频文件，打开文件对话框中选择

34、要播放的音频文件，打开文件后，在界面上显示正在播放的音频文件名；后，在界面上显示正在播放的音频文件名；v单击单击“播放播放”按钮，开始播放音频文件，同按钮，开始播放音频文件，同时滑动条开始显示播放进度，如图时滑动条开始显示播放进度，如图10.5所示；所示；v单击单击“暂停暂停”按钮，可以暂停播放，再次单按钮，可以暂停播放，再次单击击“播放播放”按钮，则从暂停的位置接着播放；按钮，则从暂停的位置接着播放；v单击单击“停止停止”按钮，可以停止播放，再次单按钮，可以停止播放，再次单击击“播放播放”按钮，则播放器从头开始播放。按钮，则播放器从头开始播放。 案例描述案例描述图图10.4 程序运行初始界面

35、程序运行初始界面 图图10.5 正在播放正在播放MP3音乐音乐 3210.2 10.2 案例案例2 2MP3MP3播放器播放器v用户界面分析用户界面分析 标签标签 Label用来显示播放文件信息用来显示播放文件信息 命令按钮命令按钮CommandButton用来执行有关操作用来执行有关操作 滑块控件滑块控件 Slider用来显示播放进度用来显示播放进度媒体播放控件媒体播放控件MediaPlayer用来播放音乐用来播放音乐v程序分析程序分析本案例设计的本案例设计的MP3播放器只使用播放器只使用MediaPlayer控件控件的控制的控制功能，而不使用控件中的按钮，重新定制界面按钮，并在功能，而不使

36、用控件中的按钮，重新定制界面按钮，并在程序中通过程序中通过MediaPlayer控件的方法控件的方法控制音乐播放。控制音乐播放。 案例分析案例分析3310.2 10.2 案例案例2 2MP3MP3播放器播放器v程序分析程序分析在在Form_Load事件中设置事件中设置MediaPlayer控件的相关属性控件的相关属性，以及初始界面的按钮状态。，以及初始界面的按钮状态。 “打开打开”按钮功能：按钮功能：v通过通用对话框打开播放的音频文件，并在界面显示；通过通用对话框打开播放的音频文件，并在界面显示；v启用启用“播放播放”按钮按钮;v设置滑块控件的最小值和最大值与播放文件的大小一致。设置滑块控件的

37、最小值和最大值与播放文件的大小一致。案例分析案例分析3410.2 10.2 案例案例2 2MP3MP3播放器播放器v程序分析程序分析MP3播放器各播放控制按钮功能播放器各播放控制按钮功能：通过：通过MediaPlayer控控件的方法控制音频文件的播放，同时控制相应按钮的启件的方法控制音频文件的播放，同时控制相应按钮的启用和禁用。用和禁用。Timer1用于控制滑块控件显示播放进度用于控制滑块控件显示播放进度：每隔：每隔1秒，通秒，通过获取的音频文件的播放进度，修改过获取的音频文件的播放进度，修改Slider1控件中滑块控件中滑块的位置，使滑块位置与播放进度保持一致。的位置，使滑块位置与播放进度保

38、持一致。案例分析案例分析3510.2 10.2 案例案例2 2MP3MP3播放器播放器v界面设计：界面设计：1个框架控件个框架控件 5个命令按钮控件个命令按钮控件1个标签控件个标签控件 1个个Slider控件控件 1个通用对话框控件个通用对话框控件 1个计时器控件个计时器控件 1个个MediaPlayer控件控件 案例设计案例设计框架框架命令按钮命令按钮标签标签计时器计时器MediaPlayerSlider通用对通用对话框话框3610.2 10.2 案例案例2 2MP3MP3播放器播放器v属性设置属性设置案例设计案例设计对象对象属性名称属性名称属性值属性值Form1CaptionMP3播放器播

39、放器Label1Caption置空置空BackColor&H00C00000&ForeColor&H0000FFFF&Frame1Caption正在播放正在播放Command1Caption打开打开Command2Caption播放播放Command3Caption暂停暂停Command4Caption停止停止Command5Caption退出退出Timer1EnabledFalseInterval1000MediaPlayer1VisibleFalse3710.2 10.2 案例案例2 2MP3MP3播放器播放器v代码设计代码设计 案例设计案例设计Private Sub Form_Load(

40、) MediaPlayer1.PlayCount = 3 MediaPlayer1.AutoStart = False Command2.Enabled = False Command3.Enabled = False Command4.Enabled = FalseEnd Sub设置重复播放次数设置重复播放次数设置不能自动播放设置不能自动播放3810.2 10.2 案例案例2 2MP3MP3播放器播放器v代码设计代码设计 案例设计案例设计Private Sub Command1_Click() CommonDialog1.Action = 1 CommonDialog1.InitDir =

41、App.Path CommonDialog1.Filter = MP3(*.mp3)|*.mp3|WAVE(*.wav)|*.wav CommonDialog1.ShowOpen MediaPlayer1.FileName = CommonDialog1.FileName If CommonDialog1.FileName Then Label1.Caption = CommonDialog1.FileName Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Slider1.Min = 1 Sl

42、ider1.Max = MediaPlayer1.SelectionEnd End IfEnd Sub设置打开文件的默认路径为设置打开文件的默认路径为应用程序所在路径应用程序所在路径设置通用对话框设置通用对话框为打开对话框为打开对话框获取播放的文件名获取播放的文件名 显示播放的文件显示播放的文件设置滑块最小值设置滑块最小值设置滑块最大值为播放设置滑块最大值为播放文件的长度文件的长度3910.2 10.2 案例案例2 2MP3MP3播放器播放器v代码设计代码设计 案例设计案例设计Private Sub Command2_Click() MediaPlayer1.Play Command2.Ena

43、bled = False Command3.Enabled = True Command4.Enabled = True Timer1.Enabled = TrueEnd SubPrivate Sub Command3_Click() MediaPlayer1.Pause Command3.Enabled = False Command2.Enabled = True Timer1.Enabled = FalseEnd Sub开始播放开始播放暂停播放暂停播放4010.2 10.2 案例案例2 2MP3MP3播放器播放器v代码设计代码设计 案例设计案例设计Private Sub Command4

44、_Click() MediaPlayer1.Stop Command4.Enabled = False Command3.Enabled = False Command2.Enabled = True Timer1.Enabled = False Slider1.Value = 1 MediaPlayer1.CurrentPosition = Slider1.ValueEnd Sub停止播放，滑块和停止播放，滑块和播放的位置置于文播放的位置置于文件的开始位置，再件的开始位置，再次播放时从头开始次播放时从头开始播放播放4110.2 10.2 案例案例2 2MP3MP3播放器播放器v代码设计代码设

45、计 案例设计案例设计Private Sub Command5_Click() EndEnd SubPrivate Sub Slider1_Click() MediaPlayer1.CurrentPosition = Slider1.ValueEnd SubPrivate Sub Timer1_Timer() Slider1.Value = MediaPlayer1.CurrentPositionEnd Sub单击滑动条改变滑单击滑动条改变滑块的值时，同时更块的值时，同时更新文件的播放位置新文件的播放位置每隔每隔1秒用文件的播放秒用文件的播放位置更新滑块的值位置更新滑块的值4210.2 10.2

46、 案例案例2 2MP3MP3播放器播放器相关知识相关知识媒体播放控件媒体播放控件 滑块控件滑块控件 12 2431. 1.媒体播放控件媒体播放控件 v 媒体播放控件（媒体播放控件（MediaPlayer）是由是由Windows的媒体播放的媒体播放器（器（Windows MediaPlayer）所提供，用于播放音频和视频）所提供，用于播放音频和视频等多媒体文件，可以识别包括等多媒体文件，可以识别包括WAV、MP3、MIDI、MOV、AVI、MPEG等在内的各种格式多媒体文件，还能播放等在内的各种格式多媒体文件，还能播放CD和和VCD，是创建多媒体应用程序使用最频繁的控件之一。，是创建多媒体应用程

47、序使用最频繁的控件之一。v 使用使用MediaPlayer播放动画文件时，可以显示当前播放的播放动画文件时，可以显示当前播放的时间，还可以改变播放画面的大小。该控件提供了一个播放时间，还可以改变播放画面的大小。该控件提供了一个播放控制面板，包含有控制播放的各种按钮和轨迹条。控制面板，包含有控制播放的各种按钮和轨迹条。441. 1.媒体播放控件媒体播放控件 （1）控件的加载）控件的加载vMediaPlayer控件是一个控件是一个ActiveX控件，要在程序中使用该控件，要在程序中使用该控件，必须首先将其添加到工具箱中。控件，必须首先将其添加到工具箱中。v选择选择“工程工程”“部件部件”命令，在打

48、开的命令，在打开的“部件部件”对话框对话框中选中中选中“Windows Media Player”选项，然后单击选项，然后单击“确定确定”按钮，即可把按钮，即可把MediaPlayer控件添加到工具箱中。控件添加到工具箱中。451. 1.媒体播放控件媒体播放控件 （2）常用属性）常用属性vAutoStart属性：用于设置属性：用于设置MediaPlayer控件是否可以自动控件是否可以自动播放多媒体文件。播放多媒体文件。如果属性值为如果属性值为True，则程序运行后可自动播放由，则程序运行后可自动播放由FileName属性设置的多媒体文件；属性设置的多媒体文件；如果值为如果值为False，则不能

49、自动播放，必须通过，则不能自动播放，必须通过Play方法方法播放。播放。vAutoRewind属性：用于设置是否自动回退，即在播放文件属性：用于设置是否自动回退，即在播放文件后滑动尺的滑块是否能回到开始位置。后滑动尺的滑块是否能回到开始位置。如果值为如果值为True，则可以自动回退，则可以自动回退;如果值为如果值为False,不能自动回退。不能自动回退。461. 1.媒体播放控件媒体播放控件 （2）常用属性）常用属性vFileName属性：用于设置要播放的文件名，可以在属性窗口属性：用于设置要播放的文件名，可以在属性窗口设置，也可以在运行期间设置。设置，也可以在运行期间设置。 如果在属性窗口中

50、为如果在属性窗口中为FileName属性设置一个文件名，并属性设置一个文件名，并把把AutoStart属性设置为属性设置为True，则程序运行后将自动播放该文，则程序运行后将自动播放该文件。件。vPlayCount属性：用于设置播放次数，该属性值必须大于属性：用于设置播放次数，该属性值必须大于0。vCurrentPosition属性：用于设置或返回正在播放的文件的位属性：用于设置或返回正在播放的文件的位置。置。vSelectionEnd属性：用于返回已打开的文件的总长度。属性：用于返回已打开的文件的总长度。471. 1.媒体播放控件媒体播放控件 （2）常用属性）常用属性vShowAudioCo

51、ntrols属性：用于设置是否显示与声音有关属性：用于设置是否显示与声音有关的两个按钮。如果设置为的两个按钮。如果设置为True，则显示，否则隐藏这两个，则显示，否则隐藏这两个按钮。按钮。vShowControls属性：用于设置是否显示控制面板。如果设属性：用于设置是否显示控制面板。如果设置为置为True，则显示按钮、滑动尺等；如果设置为，则显示按钮、滑动尺等；如果设置为False，则，则隐藏整个控制面板。隐藏整个控制面板。vShowDisplay属性：用于设置是否显示节目、剪辑、作者属性：用于设置是否显示节目、剪辑、作者和版权等信息。和版权等信息。vShowPositionControls属

52、性：用于设置是否在播放控制面属性：用于设置是否在播放控制面板中显示位置移动按钮。板中显示位置移动按钮。481. 1.媒体播放控件媒体播放控件 （2）常用属性）常用属性vShowStatusBar属性：用于设置是否在控制面板中显示状属性：用于设置是否在控制面板中显示状态条，状态条内会显示文件播放的时间和当前时间等信息。态条，状态条内会显示文件播放的时间和当前时间等信息。vShowTracker属性：用于设置是否在控制面板中显示滑动属性：用于设置是否在控制面板中显示滑动尺。尺。 vDisplaySize属性：用来设置影视画面的的大小，该属性有属性：用来设置影视画面的的大小，该属性有8个属性值，取值

53、及其含义如表个属性值，取值及其含义如表10.6所示。所示。 491. 1.媒体播放控件媒体播放控件 属性值属性值常量常量含义含义0mpDefaultSize视频播放窗口为原电影播放窗口视频播放窗口为原电影播放窗口1mpHalfSize视频播放窗口为屏幕的视频播放窗口为屏幕的1/2大小大小2mpDoubleSize视频播放窗口为原电影播放窗口的两倍视频播放窗口为原电影播放窗口的两倍3mpFullScreen视频播放窗口为全屏幕显示视频播放窗口为全屏幕显示4mpFitToSize视频播放窗口大小由视频播放窗口大小由MediaPlayer控件的高控件的高度和宽度决定度和宽度决定5mpOneSixte

54、enthScreen视频播放窗口为屏幕的视频播放窗口为屏幕的1/16大小大小6mpOneFourthScreen视频播放窗口为屏幕的视频播放窗口为屏幕的1/4大小大小7mpOneHalfScreen视频播放窗口为屏幕的视频播放窗口为屏幕的1/2大小大小表表10. 6 DisplaySize属性的取值及含义属性的取值及含义501. 1.媒体播放控件媒体播放控件 （3）常用方法）常用方法vPlay方法：用于播放多媒体文件。其格式如下：方法：用于播放多媒体文件。其格式如下： MediaPlayer1.PlayvPause方法方法：用于暂停播放多媒体文件。其格式如下：用于暂停播放多媒体文件。其格式如下

55、： MediaPlayer1.PausevStop方法：用于停止播放多媒体文件。其格式如下：方法：用于停止播放多媒体文件。其格式如下： MediaPlayer1.Stop这这3个方法分别对应于该控件控制面板上的前个方法分别对应于该控件控制面板上的前3个按钮。个按钮。512. 2. 滑块控件滑块控件 滑块控件（滑块控件（Slider）是由一个是由一个滑动条、一个滑块和可选的滑动条、一个滑块和可选的刻度刻度组成，用户可以通过移动滑块在相应的控件中显示对组成，用户可以通过移动滑块在相应的控件中显示对应的值。可以通过程序控制、拖动滑块、用鼠标单击滑块应的值。可以通过程序控制、拖动滑块、用鼠标单击滑块的

56、任意一侧来移动滑块。的任意一侧来移动滑块。（1）控件的加载）控件的加载vSlider控件是一个控件是一个ActiveX控件，要在程序中使用该控件，控件，要在程序中使用该控件，必须首先将其添加到工具箱中。必须首先将其添加到工具箱中。v选择选择“工程工程”“部件部件”命令，在打开的命令，在打开的“部件部件”对话框对话框中选中中选中“Microsoft Common Dialog Control 6.0”选项，选项，然后单击然后单击“确定确定”按钮，即可把按钮，即可把Slider控件添加到工具箱中控件添加到工具箱中。 522. 2. 滑块控件滑块控件（2）常用属性）常用属性vMax属性：用于设置当滑

57、块处于最大位置时所代表的值。属性：用于设置当滑块处于最大位置时所代表的值。vMin属性：用于设置当滑块处于最小位置时所代表的值。属性：用于设置当滑块处于最小位置时所代表的值。vValue属性：用于设置或返回滑块所处位置的当前值。属性：用于设置或返回滑块所处位置的当前值。vSmallChange属性：用于设置按下左右箭头键时，滑块移属性：用于设置按下左右箭头键时，滑块移动增量值。动增量值。vLargeChange属性：用于设置按下属性：用于设置按下PageUp或或PageDown键时，或者单击滑动条的空白处时滑块移动的增量值。键时，或者单击滑动条的空白处时滑块移动的增量值。532. 2. 滑块控

58、件滑块控件（3）常用事件）常用事件vScroll事件：拖动滑块时会触发事件：拖动滑块时会触发Scroll事件。事件。vChange事件：当滑动条内的滑块位置改变，即改变事件：当滑动条内的滑块位置改变，即改变Value属性值时会触发属性值时会触发Change事件。事件。5410.3 10.3 拓展案例拓展案例 【拓展案例拓展案例1】多媒体播放器多媒体播放器1 【拓展案例拓展案例2】多媒体播放器多媒体播放器2 55【拓展案例拓展案例1 1】多媒体播放器多媒体播放器1 拓展案例拓展案例1 多媒体播放器多媒体播放器1 案例演示案例演示 案例描述案例描述 案例分析案例分析 案例设计案例设计 56【拓展案

59、例拓展案例1 1】多媒体播放器多媒体播放器1v一个多媒体播放程序，程序运行界面如图一个多媒体播放程序，程序运行界面如图10.7所示。所示。v单击单击“打开打开”按钮，在弹出的按钮，在弹出的“打开文件打开文件”对话框中选择要播放的视频文件，自动播放对话框中选择要播放的视频文件，自动播放视频，并且在窗体的标题栏上显示正在播放视频，并且在窗体的标题栏上显示正在播放的视频文件名，状态条内会显示文件播放的的视频文件名，状态条内会显示文件播放的时间和当前时间等信息，如图时间和当前时间等信息，如图10.8所示；所示；v单击单击“全屏全屏”按钮，可以全屏播放，按按钮，可以全屏播放，按“Esc”键可退出全屏播放

60、；键可退出全屏播放；v利用利用MediaPlayer控件自身的按钮实现暂停、控件自身的按钮实现暂停、停止、播放、音量调整、进度显示等功能。停止、播放、音量调整、进度显示等功能。 案例描述案例描述图图10.7 程序运行初始界面程序运行初始界面 图图10.8播放视频播放视频 57【拓展案例拓展案例1 1】多媒体播放器多媒体播放器1v用户界面分析用户界面分析通用对话框通用对话框用于选择播放文件用于选择播放文件命令按钮命令按钮CommandButton用来执行有关操作用来执行有关操作MediaPlayer 控件用于播放控制控件用于播放控制v程序分析程序分析本案例设计的多媒体播放器使用本案例设计的多媒体