VB程序设计第12章 多媒体程序

1、L o g oL o g o第第12章章 多媒体程序设计多媒体程序设计L o g oL o g o 第第12章章 多媒体程序设计多媒体程序设计知识要点习题与解答实训指导实训指导 测验题测验题L o g oL o g o 12.1知识要点知识要点1、多媒体控件MMControlv（1）多媒体控件基本知识v MCI：Windows3.1以后的Widows版本为控制音频、视频、动画等外围设备提供了与设备无关的多媒体控制接口（MCI，Media Control Interface），用户的应用程序可以使用MCI控制标准的多媒体设备。L o g oL o g ov引入多媒体控件的方法：在引入多媒体控件的

2、方法：在“工程工程”菜菜单中单击单中单击“部件部件”，或者在工具箱上单击，或者在工具箱上单击右键，在弹出的右键，在弹出的“部件部件”对话框中，选择对话框中，选择“Microsoft Multimedia Control 6.0”，然后单击然后单击“确定确定” 按钮，将多媒体控件添按钮，将多媒体控件添加到工具箱当中。加到工具箱当中。v多媒体控件的图标和外观组成：多媒体多媒体控件的图标和外观组成：多媒体控件的图标为控件的图标为 ，通常被称之为，通常被称之为Multimedia MCI控件。控件。 L o g oL o g ov它是由一系列能执行MCI命令的下压式按钮组成。根据控件上按钮的顺序，它们

3、分别被定义为Prev（回到当前轨迹起点）、Next（到下一个轨迹起点）、Play（播放）、Pause（暂停）、Back（退后一步）、Step（前进一步）、Stop（停止）、Record（记录）、Eject（弹出）。L o g oL o g ov“属性页属性页”设置：在设置：在“属性页属性页”对话框对话框中，选择中，选择“通用通用”选项卡，主要包含属性选项卡，主要包含属性有设备类型、文件名、方向、更新间隔。有设备类型、文件名、方向、更新间隔。v选择选择“属性页属性页”对话框中的对话框中的“控件控件”选项选项卡，对话框中可以对每一个按钮的有效性卡，对话框中可以对每一个按钮的有效性和可视性进行设置。

4、和可视性进行设置。L o g oL o g ov（2）多媒体控件的属性v多媒体控件的主要属性见表12-1。 L o g oL o g o表表12-1多媒体控件的主要属性和含义多媒体控件的主要属性和含义属 性含 义AutoEnable决定多媒体控件是否能自动启动或禁止控件中的每一个按钮。ButtonEnabled决定多媒体控件上的指定按钮是否有效。ButtonVisible决定多媒体控件上的指定按钮是否可见。Command向多媒体设备发出各种命令，在窗体设计阶段该属性不可用。DeviceType指定要打开的多媒体设备的类型。Frames设置每次单击Step或Back按钮时向前或向后退回的画面帧数

5、。FileName指定要打开或要保存的多媒体设备所使用的文件名称。From设置下一条Play或Record命令的起始点。HwndDisplay设置多媒体设备所使用的显示对象。Mode返回所打开设备的当前状态。Position返回所打开设备的当前位置。Start返回当前媒体的起始位置。TimeFormat设置媒体设备使用的时间格式。To设置下一条Play或Record命令的终点位置。Track在播放CD格式文件时，指定要播放文件的轨迹。TrackLength返回CD格式文件的轨迹长度。TrackPosition返回CD格式播放文件的轨迹。Tracks返回总的文件的轨迹数量。UpdateInter

6、val设置StatusUpdate事件间的时间间隔，单位为毫秒。L o g oL o g ov（3）多媒体控件的常用事件v多媒体控件的常用事件主要有：ButtonClick事件、ButtonCompleted事件、ButtonGotFocus事件、ButtonLostFocus事件、Done事件和StatusUpdate事件。Button泛指多媒体控件上的任意一个按钮，具体为Prev按钮、Next按钮、Play按钮、Pause按钮、Back按钮、Step按钮、Stop按钮、Record按钮和Eject按钮。L o g oL o g ov2、利用、利用MMControl控件制作媒体播放器控件制作

7、媒体播放器利用利用MMControl控件可以制作出功能强大的控件可以制作出功能强大的媒体播放器，参见教材媒体播放器，参见教材【例例12-1】。v3、其他多媒体控件、其他多媒体控件（1）Animation控件控件Animation控件被称为动画控件，可以播控件被称为动画控件，可以播放无声的视频动画放无声的视频动画AVI文件。文件。AVI动画类似动画类似于电影，由若干帧位图组成，这些位图按于电影，由若干帧位图组成，这些位图按一定的顺序播放，但是没有声音。一定的顺序播放，但是没有声音。 L o g oL o g o有些AVI动画可以有声音，但是这类文件不能在Animation控件中播放，否则会产生错

8、误。v将Animation控件添加到工具箱的方法是：在工具箱上右键单击，在弹出的“部件”对话框中，选中“Microsoft Windows Common Controls-2 6.0”，然后单击“确定”。v多媒体控件的图标为vAnimation控件的常用属性见表12-2。L o g oL o g o表表12-2 Animation控件的属性控件的属性属性说明AutoPlay设置是否自动播放动画文件。BackStyle该属性取值为0（背景透明）或1（背景不透明）。Center 指定动画是否在Animation控件的中间位置显示。L o g oL o g ovAnimation控件的常用方法有：

9、Open方法v该方法功能为打开不带声音的AVI文件。Open方法的使用格式为：Object.Open FileName其中：Object为Animation控件的名称；FileName为要播放的文件名。 Play方法v该方法用来播放不带声音的AVI文件。Play方法的使用格式为： Object.Play repeat,start,endL o g oL o g o其中，Object为Animation控件的名称；repeat为循环播放的次数；start为开始的帧，默认值为0，表示从第一帧开始；end指定结束帧。 Stop方法v该方法用来停止正在播放的AVI文件，但该方法只能停止由Play方法启

10、动的文件，否则会导致错误。Stop方法的使用格式为： Object. Stop Close方法v该方法用来关闭当前打开的AVI文件。Close方法的使用格式为： Object.CloseL o g oL o g ov（2）Windows Media Player控件控件vWindows Media Player控件可以播放控件可以播放AVI、WAV、MIDI、MPEG和和MOV等多媒等多媒体文件。体文件。v将将Windows Media Player控件添加到工控件添加到工具箱的方法是：在工具箱上右键单击，在具箱的方法是：在工具箱上右键单击，在弹出的弹出的“部件部件”对话框中，选中对话框中，选

11、中“Windows Media Player”，然后单击，然后单击“确定确定” 按钮。按钮。vWindows Media Player控件的图标为控件的图标为L o g oL o g ov（3）其他常用控件v其他常用多媒体控件的名称和基本功能，见表12-3。L o g oL o g o控件名称基本功能所在部件名称MCIWnd 控件用户不编写代码就可以播放诸如WAV、MID、AVE、DAT等格式的多媒体文件。MCIWnd ControlShockWaveFlash控件利用控件提供的属性、方法和事件可以制作Flsh播放器。 ShockWave FlashRealAudio控件可以利用该控件播放RM

12、、RAM等格式的多媒体文件Real Player ActiveX Control LibraryActiveMovie控件只要将其“FileName”属性值设定为特定的文件名称，就可以播放MP3、AVI等多媒体文件。MicroSoft ActiveMovie ControlL o g oL o g ov4、使用、使用API函数编写多媒体程序函数编写多媒体程序v（1）使用）使用sndPlaySound函数播放音频文函数播放音频文件件vWindows的的API函数函数sndPlaySound（）（）可以直接地播放音频文件和系统声音文件。可以直接地播放音频文件和系统声音文件。sndPlaySound

13、（）函数有（）函数有lpszSoundName和和uFlags两个参数，两个参数，lpszSoundName用来指定播放的文件名称，用来指定播放的文件名称，uFlags用来控制播放的状态。用来控制播放的状态。L o g oL o g ov在模块中在模块中mciExecute函数的声明语句为：函数的声明语句为： Public Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal _ lpszSoundName As String, ByVal uFlags As Long) As LongL o g oL o

14、 g o（2）使用）使用mciExecute函数编写多媒体程序函数编写多媒体程序v使用使用Windows的的API函数函数mciExecute（）（）函数可以播放函数可以播放WAV、MID、DAT等多种格等多种格式的多媒体文件。式的多媒体文件。v在模块中在模块中mciExecute函数的声明语句为：函数的声明语句为： Public Declare Function mciExecute Lib winmm.dll (ByVal lpstrCommand As String) As LongL o g oL o g o 第第12章章 多媒体程序设计多媒体程序设计知识要点习题与解答实训指导实训指导

15、 测验题测验题L o g oL o g o 12.2习题与解答习题与解答1、什么是、什么是MCI？v 答案：答案：Windows3.1以后的以后的Widows版本版本为控制音频、视频、动画等外围设备提供为控制音频、视频、动画等外围设备提供了与设备无关的多媒体控制接口（了与设备无关的多媒体控制接口（MCI，Media Control Interface），用户的应用），用户的应用程序可以使用程序可以使用MCI控制标准的多媒体设备。控制标准的多媒体设备。Multimedia MCI控件管理多媒体控制接口，控件管理多媒体控制接口，对对MCI设备支持的多媒体数据文件实施记录设备支持的多媒体数据文件实施

16、记录和回放。和回放。L o g oL o g o2、常见的多媒体设备有哪些？、常见的多媒体设备有哪些？v答案：常见的多媒体设备类型有：答案：常见的多媒体设备类型有：AVIVideo（视频文件）、（视频文件）、CDAudio（音频（音频 CD 播放器）、播放器）、DAT（数字音频磁带播放（数字音频磁带播放器）、器）、WaveAudio（播放数字波形文件的（播放数字波形文件的音频设备）和音频设备）和Sequencer（音响设备数字（音响设备数字接口（接口（MIDI） 序列发生器）。序列发生器）。L o g oL o g o3、多媒体控件有哪些常用事件？、多媒体控件有哪些常用事件？v答案：多媒体控件

17、的常用事件主要有：答案：多媒体控件的常用事件主要有：ButtonClick事件、事件、ButtonCompleted事事件、件、ButtonGotFocus事件、事件、ButtonLostFocus事件、事件、Done事件和事件和StatusUpdate事件。事件。Button泛指多媒体控泛指多媒体控件上的任意一个按钮，具体为件上的任意一个按钮，具体为Prev按钮、按钮、Next按钮、按钮、Play按钮、按钮、Pause按钮、按钮、Back按钮、按钮、Step按钮、按钮、Stop按钮、按钮、Record按钮按钮和和Eject按钮。按钮。L o g oL o g o4、什么是多媒体控制命令？如何

18、使用这些命、什么是多媒体控制命令？如何使用这些命令？令？v答案：多媒体控件有自己的一套可控制多答案：多媒体控件有自己的一套可控制多种多媒体设备，且功能强大的命令，这些种多媒体设备，且功能强大的命令，这些命令被称之为多媒体控制接口命令（命令被称之为多媒体控制接口命令（MCI Command）。它们可以通过多媒体控件的）。它们可以通过多媒体控件的Command属性来执行。属性来执行。L o g oL o g o5、Animation控件的主要功能是什么？对播控件的主要功能是什么？对播放的文件有什么要求？放的文件有什么要求？v答案：答案：Animation控件被称为动画控件，控件被称为动画控件，可以

19、播放无声的视频动画可以播放无声的视频动画AVI文件。文件。AVI动动画类似于电影，由若干帧位图组成，这些画类似于电影，由若干帧位图组成，这些位图按一定的顺序播放，但是没有声音。位图按一定的顺序播放，但是没有声音。有些有些AVI动画可以有声音，但是这类文件不动画可以有声音，但是这类文件不能在能在Animation控件中播放，否则会产生错控件中播放，否则会产生错误。误。L o g oL o g o6、MMControl控件和控件和Windows Media Player控件控件有什么区别？有什么区别？v答案：答案：Windows Media Player控件是控件是Microsoft公司晚些时候推

20、出的多媒体控件，它的功能比公司晚些时候推出的多媒体控件，它的功能比MMControl控件功能要强大一些，不仅可以播放控件功能要强大一些，不仅可以播放AVI、MIDI和和WAV格式的文件，还可以播放格式的文件，还可以播放MMControl控件无法播放的控件无法播放的MEPG和和MOV等多媒等多媒体文件。用体文件。用Windows Media Player控件播放动控件播放动画文件时，还可以显示当前播放时间或播放帧。画文件时，还可以显示当前播放时间或播放帧。L o g oL o g o 第第12章章 多媒体程序设计多媒体程序设计知识要点习题与解答实训指导实训指导 测验题测验题L o g oL o

21、g o 12.3实训指导实训指导12.3.1技能训练目的技能训练目的v 熟练掌握使用用多媒体控件（熟练掌握使用用多媒体控件（MMControl）编）编写多媒体程序的方法写多媒体程序的方法v 掌握使用掌握使用Animation控件编写多媒体程序的方控件编写多媒体程序的方法法v 掌握使用掌握使用Windows Media Player控件编写多控件编写多媒体程序媒体程序v 了解其他常用多媒体控件的基本功能了解其他常用多媒体控件的基本功能v 基本掌握使用基本掌握使用API函数编写多媒体程序的方法函数编写多媒体程序的方法L o g oL o g o12.3.2技能训练内容技能训练内容v【实训实训12.

22、1】制作一个制作一个CD播放器。播放器。v窗体界面设计：在窗体上添加一个多媒体控件窗体界面设计：在窗体上添加一个多媒体控件（MMControl1）、一个列表框（）、一个列表框（List1）、一个）、一个命令按钮（命令按钮（Command1）、两个图像框）、两个图像框（Image1和和Image2）、和六个标签控件）、和六个标签控件（Label1Label6）。各个控件的具体摆放如图）。各个控件的具体摆放如图12-1所示。两个图像框加载了两幅图片来装饰窗所示。两个图像框加载了两幅图片来装饰窗体界面；六个标签的体界面；六个标签的AutoSize属性均为属性均为True，其，其它相关属性设置如表它相

23、关属性设置如表12-4所示。所示。L o g oL o g o12-4 各控件的基本主要属性设置各控件的基本主要属性设置控件名称CaptionLabelLabel1当前正在播放的曲目序号是： LabelLabel2当前曲目已经播放的时间是：LabelLabel3CD播放器暂停播放LabelLabel40LabelLabel500:00LabelLabel6L o g oL o g o图图12-1L o g oL o g ov 程序代码设计如下：v Dim iTime As Integer 曲目播放总时(秒为单位)v Dim iSecond As Integer 秒v Dim iMinute A

24、s Integer 分v 打开设备v Private Sub Command1_Click()v MsgBox (请将CD盘放在驱动器中,否则产生错误！)v MMControl1.Command = Openv 获得曲目数v Dim i As Integerv For i = 1 To MMControl1.Tracksv List1.AddItem 曲目 & Format(i)v Next iv MMControl1.TimeFormat = mciFormatTmsf 设置时间格式v Command1.Enabled = False 使按钮不可用,避免重载L o g oL o g

25、ov 设置最初曲目号设置最初曲目号v If List1.ListCount 0 Thenv Label4.Caption = 1v List1.ListIndex = 0v End Ifv Exit Subv End Subv Private Sub Form_Load()v MMControl1.Wait = Truev MMControl1.UpdateInterval = 0v MMControl1.DeviceType = CDAudio 设置设备类型设置设备类型v Label4.Caption = 0 设置曲目号为设置曲目号为0v Label6.BackColor = &H4

26、04040 显示停止播放状态显示停止播放状态v End SubL o g oL o g ov Private Sub Form_Unload(Cancel As Integer)v MMControl1.Command = Stopv MMControl1.Command = Closev Endv End Subv 弹出CD光盘，使装载按钮可用v Private Sub MMControl1_EjectClick(Cancel As Integer)v Command1.Enabled = Truev MMControl1.UpdateInterval = 0v MMControl1.Com

27、mand = Eject 弹出CDv MMControl1.Command = Close 关闭设备v Label4.Caption = 0 设置曲目号为0v List1.ListIndex = -1v Label6.BackColor = &H404040 显示停止播放状态v Exit Subv End SubL o g oL o g ov 下一曲下一曲v Private Sub MMControl1_NextCompleted(ErrorCode As Long)v 播放下一个曲目播放下一个曲目,则显示新的曲目号则显示新的曲目号v Label4.Caption = Str$(MMC

28、ontrol1.Track)v List1.ListIndex = MMControl1.Track - 1v iTime = 0v 重新设置播放总时间重新设置播放总时间v End Subv 暂停暂停v Private Sub MMControl1_PauseClick(Cancel As Integer)v MMControl1.UpdateInterval = 0v 显示停止播放状态显示停止播放状态v Label6.BackColor = &H404040v Label3.Caption = CD播放器暂停播放播放器暂停播放v End SubL o g oL o g ov 播放v

29、Private Sub MMControl1_PlayClick(Cancel As Integer)v MMControl1.UpdateInterval = 1000v 显示当前曲目号v Label4.Caption = Str$(MMControl1.Track)v List1.ListIndex = MMControl1.Track - 1v iTime = 0v 设置播放总时间为0v End Subv 前一曲v Private Sub MMControl1_PrevCompleted(ErrorCode As Long)v 显示新的曲目号v Label4.Caption = Str$

30、(MMControl1.Track)v List1.ListIndex = MMControl1.Track - 1v iTime = 0v End SubL o g oL o g ov设备状态改变vPrivate Sub MMControl1_StatusUpdate()v 状态改变,显示当前曲目号v Label4.Caption = Str$(MMControl1.TrackPosition)v List1.ListIndex = MMControl1.Track - 1v 判别是否正在播放,若是,则显示已经播放的时间,否则,显示停止播放状态v If MMControl1.Mode = m

31、ciModePlay Thenv iTime = iTime + 1v iSecond = iTime Mod 60 求余数得秒数v iMinute = iTime 60 求模数得分数v Label5.Caption = Format(iMinute, 00) & : & Format(iSecond, 00)v Label6.BackColor = &H80FF&v Label3.Caption = CD播放器正在播放v Elsev Label6.BackColor = &H404040v Label3.Caption = CD播放器暂停播放v End

32、 IfvEnd SubL o g oL o g ov 停止播放停止播放v Private Sub MMControl1_StopClick(Cancel As Integer)v MMControl1.UpdateInterval = 0v 停止播放停止播放v Label6.BackColor = &H404040v Label3.Caption = CD播放器暂停播放播放器暂停播放v 重置第一个曲目重置第一个曲目v MMControl1.To = MMControl1.Startv MMControl1.Command = Seekv MMControl1.Track = 1v La

33、bel4.Caption = 1v List1.ListIndex = MMControl1.Track - 1v End SubL o g oL o g o图图12-2图图12-3L o g oL o g o 第第12章章 多媒体程序设计多媒体程序设计知识要点习题与解答实训指导实训指导 测验题测验题L o g oL o g o 12.4测验题测验题12.4.1选择题选择题1下面关于的描述错误的是下面关于的描述错误的是 。vAMMControl控件包含控件包含9个按钮，按钮数量不可个按钮，按钮数量不可以改变。以改变。vB使用使用MMControl控件可以播放控件可以播放AVI文件。文件。vCS

34、tatusUpdate事件的时间间隔单位为毫秒。事件的时间间隔单位为毫秒。vD在一个窗体中可以添加多个在一个窗体中可以添加多个MMControl控件。控件。答案：答案：AL o g oL o g ov2语句MMControl1.Command= Open的含义是： 。vA开始播放多媒体文件。vB弹出CD-ROM驱动器。vC打开一个MCI设备。vD不合乎语法要求。v答案：答案：CL o g oL o g o3关于关于Animation控件的说法错误的是控件的说法错误的是 。vAAnimation控件只能播放不带声音的控件只能播放不带声音的AVI文件。文件。vBAnimation控件的背景可以通过

35、控件的背景可以通过BackStyle属属性设置为透明。性设置为透明。vC当当AutoPlay属性为真时，属性为真时，Stop方法无效。方法无效。vDAnimation1.Play 10,1,20表示从第表示从第1帧到第帧到第20帧连续播放帧连续播放10次。次。v答案：答案：DL o g oL o g ov12.4.2填空题填空题1语句语句MMControl1.PlayVisible=False的作用是的作用是 （1） 。v答案：答案：Play按钮不可见按钮不可见 2实现让实现让MMControl1在图片框控件（在图片框控件（Picture1）上播放动画的语句为：上播放动画的语句为： （2） 。v答案：答案：MMControl1.hWndDisplay = Picture1.hWndL o g oL o g ov3添写代码使得Windows MediaPlayer以屏幕1/6大小显示图像 MediaPlayer1.