VB程序设计 多媒体程序

1、第12章 多媒体程序设计 第12章 多媒体程序设计知识要点习题与解答实训指点 检验题 12.1知识要点1、多媒体控件MMControl1多媒体控件根本知识 MCI：Windows3.1以后的Widows版本为控制音频、视频、动画等外围设备提供了与设备无关的多媒体控制接口MCI，Media Control Interface，用户的运用程序可以运用MCI控制规范的多媒体设备。引入多媒体控件的方法：在“工程菜单中单击“部件，或者在工具箱上单击右键，在弹出的“部件对话框中，选择“Microsoft Multimedia Control 6.0，然后单击“确定 按钮，将多媒体控件添加到工具箱当中。多媒

2、体控件的图标和外观组成：多媒体控件的图标为 ，通常被称之为Multimedia MCI控件。 它是由一系列能执行MCI命令的下压式按钮组成。根据控件上按钮的顺序，它们分别被定义为Prev回到当前轨迹起点、Next到下一个轨迹起点、Play播放、Pause暂停、Back退后一步、Step前进一步、Stop停顿、Record记录、Eject弹出。“属性页设置：在“属性页对话框中，选择“通用选项卡，主要包含属性有设备类型、文件名、方向、更新间隔。选择“属性页对话框中的“控件选项卡，对话框中可以对每一个按钮的有效性和可视性进展设置。2多媒体控件的属性多媒体控件的主要属性见表12-1。 表12-1多媒体

3、控件的主要属性和含义属 性含 义AutoEnable决定多媒体控件是否能自动启动或禁止控件中的每一个按钮。ButtonEnabled决定多媒体控件上的指定按钮是否有效。ButtonVisible决定多媒体控件上的指定按钮是否可见。Command向多媒体设备发出各种命令，在窗体设计阶段该属性不可用。DeviceType指定要打开的多媒体设备的类型。Frames设置每次单击Step或Back按钮时向前或向后退回的画面帧数。FileName指定要打开或要保存的多媒体设备所使用的文件名称。From设置下一条Play或Record命令的起始点。HwndDisplay设置多媒体设备所使用的显示对象。Mod

4、e返回所打开设备的当前状态。Position返回所打开设备的当前位置。Start返回当前媒体的起始位置。TimeFormat设置媒体设备使用的时间格式。To设置下一条Play或Record命令的终点位置。Track在播放CD格式文件时，指定要播放文件的轨迹。TrackLength返回CD格式文件的轨迹长度。TrackPosition返回CD格式播放文件的轨迹。Tracks返回总的文件的轨迹数量。UpdateInterval设置StatusUpdate事件间的时间间隔，单位为毫秒。3多媒体控件的常用事件多媒体控件的常用事件主要有：ButtonClick事件、ButtonCompleted事件、B

5、uttonGotFocus事件、ButtonLostFocus事件、Done事件和StatusUpdate事件。Button泛指多媒体控件上的恣意一个按钮，详细为Prev按钮、Next按钮、Play按钮、Pause按钮、Back按钮、Step按钮、Stop按钮、Record按钮和Eject按钮。2、利用MMControl控件制造媒体播放器利用MMControl控件可以制造出功能强大的媒体播放器，参见教材【例12-1】。3、其他多媒体控件1Animation控件Animation控件被称为动画控件，可以播放无声的视频动画AVI文件。AVI动画类似于电影，由假设干帧位图组成，这些位图按一定的顺序播

6、放，但是没有声音。 有些AVI动画可以有声音，但是这类文件不能在Animation控件中播放，否那么会产生错误。将Animation控件添加到工具箱的方法是：在工具箱上右键单击，在弹出的“部件对话框中，选中“Microsoft Windows Common Controls-2 6.0，然后单击“确定。多媒体控件的图标为Animation控件的常用属性见表12-2。表12-2 Animation控件的属性属性说明AutoPlay设置是否自动播放动画文件。BackStyle该属性取值为0（背景透明）或1（背景不透明）。Center指定动画是否在Animation控件的中间位置显示。Animati

7、on控件的常用方法有： Open方法该方法功能为翻开不带声音的AVI文件。Open方法的运用格式为：Object.Open FileName其中：Object为Animation控件的称号；FileName为要播放的文件名。 Play方法该方法用来播放不带声音的AVI文件。Play方法的运用格式为： Object.Play repeat,start,end其中，Object为Animation控件的称号；repeat为循环播放的次数；start为开场的帧，默许值为0，表示从第一帧开场；end指定终了帧。 Stop方法该方法用来停顿正在播放的AVI文件，但该方法只能停顿由Play方法启动的文件，

8、否那么会导致错误。Stop方法的运用格式为： Object. Stop Close方法该方法用来封锁当前翻开的AVI文件。Close方法的运用格式为： Object.Close2Windows Media Player控件Windows Media Player控件可以播放AVI、WAV、MIDI、MPEG和MOV等多媒体文件。将Windows Media Player控件添加到工具箱的方法是：在工具箱上右键单击，在弹出的“部件对话框中，选中“Windows Media Player，然后单击“确定 按钮。Windows Media Player控件的图标为3其他常用控件其他常用多媒体控件的称

9、号和根本功能，见表12-3。控件名称基本功能所在部件名称MCIWnd 控件用户不编写代码就可以播放诸如WAV、MID、AVE、DAT等格式的多媒体文件。MCIWnd ControlShockWaveFlash控件利用控件提供的属性、方法和事件可以制作Flsh播放器。 ShockWave FlashRealAudio控件可以利用该控件播放RM、RAM等格式的多媒体文件Real Player ActiveX Control LibraryActiveMovie控件只要将其“FileName”属性值设定为特定的文件名称，就可以播放MP3、AVI等多媒体文件。MicroSoft ActiveMovie

10、 Control4、运用API函数编写多媒体程序1运用sndPlaySound函数播放音频文件Windows的API函数sndPlaySound可以直接地播放音频文件和系统声音文件。sndPlaySound函数有lpszSoundName和uFlags两个参数，lpszSoundName用来指定播放的文件称号，uFlags用来控制播放的形状。在模块中mciExecute函数的声明语句为： Public Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal _ lpszSoundName As String,

11、 ByVal uFlags As Long) As Long2运用mciExecute函数编写多媒体程序运用Windows的API函数mciExecute函数可以播放WAV、MID、DAT等多种格式的多媒体文件。在模块中mciExecute函数的声明语句为： Public Declare Function mciExecute Lib winmm.dll (ByVal lpstrCommand As String) As Long 第12章 多媒体程序设计知识要点习题与解答实训指点 检验题 12.2习题与解答1、什么是MCI？ 答案：Windows3.1以后的Widows版本为控制音频、视频、

12、动画等外围设备提供了与设备无关的多媒体控制接口MCI，Media Control Interface，用户的运用程序可以运用MCI控制规范的多媒体设备。Multimedia MCI控件管理多媒体控制接口，对MCI设备支持的多媒体数据文件实施记录和回放。2、常见的多媒体设备有哪些？答案：常见的多媒体设备类型有：AVIVideo视频文件、CDAudio音频 CD 播放器、DAT数字音频磁带播放器、WaveAudio播放数字波形文件的音频设备和Sequencer音响设备数字接口MIDI 序列发生器。3、多媒体控件有哪些常用事件？答案：多媒体控件的常用事件主要有：ButtonClick事件、Butto

13、nCompleted事件、ButtonGotFocus事件、ButtonLostFocus事件、Done事件和StatusUpdate事件。Button泛指多媒体控件上的恣意一个按钮，详细为Prev按钮、Next按钮、Play按钮、Pause按钮、Back按钮、Step按钮、Stop按钮、Record按钮和Eject按钮。4、什么是多媒体控制命令？如何运用这些命令？答案：多媒体控件有本人的一套可控制多种多媒体设备，且功能强大的命令，这些命令被称之为多媒体控制接口命令MCI Command。它们可以经过多媒体控件的Command属性来执行。5、Animation控件的主要功能是什么？对播放的文件

14、有什么要求？答案：Animation控件被称为动画控件，可以播放无声的视频动画AVI文件。AVI动画类似于电影，由假设干帧位图组成，这些位图按一定的顺序播放，但是没有声音。有些AVI动画可以有声音，但是这类文件不能在Animation控件中播放，否那么会产生错误。6、MMControl控件和Windows Media Player控件有什么区别？答案：Windows Media Player控件是Microsoft公司晚些时候推出的多媒体控件，它的功能比MMControl控件功能要强大一些，不仅可以播放AVI、MIDI和WAV格式的文件，还可以播放MMControl控件无法播放的MEPG和MO

15、V等多媒体文件。用Windows Media Player控件播放动画文件时，还可以显示当前播放时间或播放帧。 第12章 多媒体程序设计知识要点习题与解答实训指点 检验题 12.3实训指点12.3.1技艺训练目的 熟练掌握运用用多媒体控件MMControl编写多媒体程序的方法 掌握运用Animation控件编写多媒体程序的方法 掌握运用Windows Media Player控件编写多媒体程序 了解其他常用多媒体控件的根本功能 根本掌握运用API函数编写多媒体程序的方法12.3.2技艺训练内容【实训12.1】制造一个CD播放器。窗体界面设计：在窗体上添加一个多媒体控件MMControl1、一个

16、列表框List1、一个命令按钮Command1、两个图像框Image1和Image2、和六个标签控件Label1Label6。各个控件的详细摆放如图12-1所示。两个图像框加载了两幅图片来装饰窗体界面；六个标签的AutoSize属性均为True，其它相关属性设置如表12-4所示。12-4 各控件的根本主要属性设置控件名称CaptionLabelLabel1当前正在播放的曲目序号是： LabelLabel2当前曲目已经播放的时间是：LabelLabel3CD播放器暂停播放LabelLabel40LabelLabel500:00LabelLabel6FormForm1CD播放器MMControlM

17、MControl1图12-1程序代码设计如下：Dim iTime As Integer 曲目播放总时(秒为单位)Dim iSecond As Integer 秒Dim iMinute As Integer 分翻开设备Private Sub Command1_Click() MsgBox (请将CD盘放在驱动器中,否那么产生错误！) MMControl1mand = Open 获得曲目数 Dim i As Integer For i = 1 To MMControl1.Tracks List1.AddItem 曲目 & Format(i) Next i MMControl1.TimeFormat

18、 = mciFormatTmsf 设置时间格式 Command1.Enabled = False 使按钮不可用,防止重载 设置最初曲目号 If List1.ListCount 0 Then Label4.Caption = 1 List1.ListIndex = 0 End If Exit SubEnd SubPrivate Sub Form_Load() MMControl1.Wait = True MMControl1.UpdateInterval = 0 MMControl1.DeviceType = CDAudio 设置设备类型 Label4.Caption = 0 设置曲目号为0 L

19、abel6.BackColor = &H404040 显示停顿播放形状End SubPrivate Sub Form_Unload(Cancel As Integer) MMControl1mand = Stop MMControl1mand = Close EndEnd Sub弹出CD光盘，使装载按钮可用Private Sub MMControl1_EjectClick(Cancel As Integer) Command1.Enabled = True MMControl1.UpdateInterval = 0 MMControl1mand = Eject 弹出CD MMControl1m

20、and = Close 封锁设备 Label4.Caption = 0 设置曲目号为0 List1.ListIndex = -1 Label6.BackColor = &H404040 显示停顿播放形状 Exit SubEnd Sub下一曲Private Sub MMControl1_NextCompleted(ErrorCode As Long) 播放下一个曲目,那么显示新的曲目号 Label4.Caption = Str$(MMControl1.Track) List1.ListIndex = MMControl1.Track - 1 iTime = 0 重新设置播放总时间End Sub暂

21、停Private Sub MMControl1_PauseClick(Cancel As Integer) MMControl1.UpdateInterval = 0 显示停顿播放形状 Label6.BackColor = &H404040 Label3.Caption = CD播放器暂停播放End Sub播放Private Sub MMControl1_PlayClick(Cancel As Integer) MMControl1.UpdateInterval = 1000 显示当前曲目号 Label4.Caption = Str$(MMControl1.Track) List1.ListI

22、ndex = MMControl1.Track - 1 iTime = 0 设置播放总时间为0End Sub前一曲Private Sub MMControl1_PrevCompleted(ErrorCode As Long) 显示新的曲目号 Label4.Caption = Str$(MMControl1.Track) List1.ListIndex = MMControl1.Track - 1 iTime = 0End Sub设备形状改动Private Sub MMControl1_StatusUpdate() 形状改动,显示当前曲目号 Label4.Caption = Str$(MMCon

23、trol1.TrackPosition) List1.ListIndex = MMControl1.Track - 1 判别能否正在播放,假设是,那么显示曾经播放的时间,否那么,显示停顿播放形状 If MMControl1.Mode = mciModePlay Then iTime = iTime + 1 iSecond = iTime Mod 60 求余数得秒数 iMinute = iTime 60 求模数得分数 Label5.Caption = Format(iMinute, 00) & : & Format(iSecond, 00) Label6.BackColor = &H80FF&

24、Label3.Caption = CD播放器正在播放 Else Label6.BackColor = &H404040 Label3.Caption = CD播放器暂停播放 End IfEnd Sub停顿播放Private Sub MMControl1_StopClick(Cancel As Integer) MMControl1.UpdateInterval = 0 停顿播放 Label6.BackColor = &H404040 Label3.Caption = CD播放器暂停播放 重置第一个曲目 MMControl1.To = MMControl1.Start MMControl1man

25、d = Seek MMControl1.Track = 1 Label4.Caption = 1 List1.ListIndex = MMControl1.Track - 1End Sub图12-2图12-3 第12章 多媒体程序设计知识要点习题与解答实训指点 检验题 12.4检验题12.4.1选择题1下面关于的描画错误的选项是 。AMMControl控件包含9个按钮，按钮数量不可以改动。B运用MMControl控件可以播放AVI文件。CStatusUpdate事件的时间间隔单位为毫秒。D在一个窗体中可以添加多个MMControl控件。答案：A2语句MMControl1mand= Open的含

26、义是： 。A开场播放多媒体文件。B弹出CD-ROM驱动器。C翻开一个MCI设备。D不符合语法要求。答案：C3关于Animation控件的说法错误的选项是 。AAnimation控件只能播放不带声音的AVI文件。BAnimation控件的背景可以经过BackStyle属性设置为透明。C当AutoPlay属性为真时，Stop方法无效。DAnimation1.Play 10,1,20表示从第1帧到第20帧延续播放10次。答案：D12.4.2填空题1语句MMControl1.PlayVisible=False的作用是 1 。答案：Play按钮不可见 2实现让MMControl1在图片框控件Picture1上播放动画的语句为： 2 。答案：MMControl1.hWndDisplay = Picture1.hWnd3添写代码使得Windows MediaPlayer以屏幕1/6大小显示图像 MediaPlayer1.DisplaySize= 。答案：mpOneSixthScreen或5 4利用mciExecuteAPI函数播放经过通用对话框CommonDialog1翻开的文件的代码为： k = mciExecute( )答案：play +