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

第12章多媒体程序设计,CompanyLogo,第12章多媒体程序设计,CompanyLogo,12.1知识要点,1、多媒体控件MMControl（1）多媒体控件基本知识MCI：Windows3.1以后的Widows版本为控制音频、视频、动画等外围设备提供了与设备无关的多媒体控制接口（MCI，MediaControlInterface），用户的应用程序可以使用MCI控制标准的多媒体设备。,CompanyLogo,引入多媒体控件的方法：在“工程”菜单中单击“部件”，或者在工具箱上单击右键，在弹出的“部件”对话框中，选择“MicrosoftMultimediaControl6.0”，然后单击“确定”按钮，将多媒体控件添加到工具箱当中。多媒体控件的图标和外观组成：多媒体控件的图标为，通常被称之为MultimediaMCI控件。,CompanyLogo,它是由一系列能执行MCI命令的下压式按钮组成。根据控件上按钮的顺序，它们分别被定义为Prev（回到当前轨迹起点）、Next（到下一个轨迹起点）、Play（播放）、Pause（暂停）、Back（退后一步）、Step（前进一步）、Stop（停止）、Record（记录）、Eject（弹出）。,CompanyLogo,“属性页”设置：在“属性页”对话框中，选择“通用”选项卡，主要包含属性有设备类型、文件名、方向、更新间隔。选择“属性页”对话框中的“控件”选项卡，对话框中可以对每一个按钮的有效性和可视性进行设置。,CompanyLogo,（2）多媒体控件的属性多媒体控件的主要属性见表12-1。,CompanyLogo,表12-1多媒体控件的主要属性和含义,CompanyLogo,（3）多媒体控件的常用事件多媒体控件的常用事件主要有：ButtonClick事件、ButtonCompleted事件、ButtonGotFocus事件、ButtonLostFocus事件、Done事件和StatusUpdate事件。Button泛指多媒体控件上的任意一个按钮，具体为Prev按钮、Next按钮、Play按钮、Pause按钮、Back按钮、Step按钮、Stop按钮、Record按钮和Eject按钮。,CompanyLogo,2、利用MMControl控件制作媒体播放器利用MMControl控件可以制作出功能强大的媒体播放器，参见教材【例12-1】。3、其他多媒体控件（1）Animation控件Animation控件被称为动画控件，可以播放无声的视频动画AVI文件。AVI动画类似于电影，由若干帧位图组成，这些位图按一定的顺序播放，但是没有声音。,CompanyLogo,有些AVI动画可以有声音，但是这类文件不能在Animation控件中播放，否则会产生错误。将Animation控件添加到工具箱的方法是：在工具箱上右键单击，在弹出的“部件”对话框中，选中“MicrosoftWindowsCommonControls-26.0”，然后单击“确定”。多媒体控件的图标为Animation控件的常用属性见表12-2。,CompanyLogo,表12-2Animation控件的属性,CompanyLogo,Animation控件的常用方法有：Open方法该方法功能为打开不带声音的AVI文件。Open方法的使用格式为：Object.OpenFileName其中：Object为Animation控件的名称；FileName为要播放的文件名。Play方法该方法用来播放不带声音的AVI文件。Play方法的使用格式为：Object.Playrepeat,start,end,CompanyLogo,其中，Object为Animation控件的名称；repeat为循环播放的次数；start为开始的帧，默认值为0，表示从第一帧开始；end指定结束帧。Stop方法该方法用来停止正在播放的AVI文件，但该方法只能停止由Play方法启动的文件，否则会导致错误。Stop方法的使用格式为：Object.StopClose方法该方法用来关闭当前打开的AVI文件。Close方法的使用格式为：Object.Close,CompanyLogo,（2）WindowsMediaPlayer控件WindowsMediaPlayer控件可以播放AVI、WAV、MIDI、MPEG和MOV等多媒体文件。将WindowsMediaPlayer控件添加到工具箱的方法是：在工具箱上右键单击，在弹出的“部件”对话框中，选中“WindowsMediaPlayer”，然后单击“确定”按钮。WindowsMediaPlayer控件的图标为,CompanyLogo,（3）其他常用控件其他常用多媒体控件的名称和基本功能，见表12-3。,CompanyLogo,CompanyLogo,4、使用API函数编写多媒体程序（1）使用sndPlaySound函数播放音频文件Windows的API函数sndPlaySound（）可以直接地播放音频文件和系统声音文件。sndPlaySound（）函数有lpszSoundName和uFlags两个参数，lpszSoundName用来指定播放的文件名称，uFlags用来控制播放的状态。,CompanyLogo,在模块中mciExecute函数的声明语句为：PublicDeclareFunctionsndPlaySoundLibwinmm.dllAliassndPlaySoundA(ByVal_lpszSoundNameAsString,ByValuFlagsAsLong)AsLong,CompanyLogo,（2）使用mciExecute函数编写多媒体程序使用Windows的API函数mciExecute（）函数可以播放WAV、MID、DAT等多种格式的多媒体文件。在模块中mciExecute函数的声明语句为：PublicDeclareFunctionmciExecuteLibwinmm.dll(ByVallpstrCommandAsString)AsLong,CompanyLogo,第12章多媒体程序设计,CompanyLogo,12.2习题与解答,1、什么是MCI？答案：Windows3.1以后的Widows版本为控制音频、视频、动画等外围设备提供了与设备无关的多媒体控制接口（MCI，MediaControlInterface），用户的应用程序可以使用MCI控制标准的多媒体设备。MultimediaMCI控件管理多媒体控制接口，对MCI设备支持的多媒体数据文件实施记录和回放。,CompanyLogo,2、常见的多媒体设备有哪些？答案：常见的多媒体设备类型有：AVIVideo（视频文件）、CDAudio（音频CD播放器）、DAT（数字音频磁带播放器）、WaveAudio（播放数字波形文件的音频设备）和Sequencer（音响设备数字接口（MIDI）序列发生器）。,CompanyLogo,3、多媒体控件有哪些常用事件？答案：多媒体控件的常用事件主要有：ButtonClick事件、ButtonCompleted事件、ButtonGotFocus事件、ButtonLostFocus事件、Done事件和StatusUpdate事件。Button泛指多媒体控件上的任意一个按钮，具体为Prev按钮、Next按钮、Play按钮、Pause按钮、Back按钮、Step按钮、Stop按钮、Record按钮和Eject按钮。,CompanyLogo,4、什么是多媒体控制命令？如何使用这些命令？答案：多媒体控件有自己的一套可控制多种多媒体设备，且功能强大的命令，这些命令被称之为多媒体控制接口命令（MCICommand）。它们可以通过多媒体控件的Command属性来执行。,CompanyLogo,5、Animation控件的主要功能是什么？对播放的文件有什么要求？答案：Animation控件被称为动画控件，可以播放无声的视频动画AVI文件。AVI动画类似于电影，由若干帧位图组成，这些位图按一定的顺序播放，但是没有声音。有些AVI动画可以有声音，但是这类文件不能在Animation控件中播放，否则会产生错误。,CompanyLogo,6、MMControl控件和WindowsMediaPlayer控件有什么区别？答案：WindowsMediaPlayer控件是Microsoft公司晚些时候推出的多媒体控件，它的功能比MMControl控件功能要强大一些，不仅可以播放AVI、MIDI和WAV格式的文件，还可以播放MMControl控件无法播放的MEPG和MOV等多媒体文件。用WindowsMediaPlayer控件播放动画文件时，还可以显示当前播放时间或播放帧。,CompanyLogo,第12章多媒体程序设计,CompanyLogo,12.3实训指导,12.3.1技能训练目的熟练掌握使用用多媒体控件（MMControl）编写多媒体程序的方法掌握使用Animation控件编写多媒体程序的方法掌握使用WindowsMediaPlayer控件编写多媒体程序了解其他常用多媒体控件的基本功能基本掌握使用API函数编写多媒体程序的方法,CompanyLogo,12.3.2技能训练内容【实训12.1】制作一个CD播放器。窗体界面设计：在窗体上添加一个多媒体控件（MMControl1）、一个列表框（List1）、一个命令按钮（Command1）、两个图像框（Image1和Image2）、和六个标签控件（Label1Label6）。各个控件的具体摆放如图12-1所示。两个图像框加载了两幅图片来装饰窗体界面；六个标签的AutoSize属性均为True，其它相关属性设置如表12-4所示。,CompanyLogo,12-4各控件的基本主要属性设置,CompanyLogo,图12-1,CompanyLogo,程序代码设计如下：DimiTimeAsInteger曲目播放总时(秒为单位)DimiSecondAsInteger秒DimiMinuteAsInteger分打开设备PrivateSubCommand1_Click()MsgBox(请将CD盘放在驱动器中,否则产生错误！)MMControl1.Command=Open获得曲目数DimiAsIntegerFori=1ToMMControl1.TracksList1.AddItem曲目&Format(i)NextiMMControl1.TimeFormat=mciFormatTmsf设置时间格式Command1.Enabled=False使按钮不可用,避免重载,CompanyLogo,设置最初曲目号IfList1.ListCount0ThenLabel4.Caption=1List1.ListIndex=0EndIfExitSubEndSubPrivateSubForm_Load()MMControl1.Wait=TrueMMControl1.UpdateInterval=0MMControl1.DeviceType=CDAudio设置设备类型Label4.Caption=0设置曲目号为0Label6.BackColor=&H404040显示停止播放状态EndSub,CompanyLogo,PrivateSubForm_Unload(CancelAsInteger)MMControl1.Command=StopMMControl1.Command=CloseEndEndSub弹出CD光盘，使装载按钮可用PrivateSubMMControl1_EjectClick(CancelAsInteger)Command1.Enabled=TrueMMControl1.UpdateInterval=0MMControl1.Command=Eject弹出CDMMControl1.Command=Close关闭设备Label4.Caption=0设置曲目号为0List1.ListIndex=-1Label6.BackColor=&H404040显示停止播放状态ExitSubEndSub,CompanyLogo,下一曲PrivateSubMMControl1_NextCompleted(ErrorCodeAsLong)播放下一个曲目,则显示新的曲目号Label4.Caption=Str$(MMControl1.Track)List1.ListIndex=MMControl1.Track-1iTime=0重新设置播放总时间EndSub暂停PrivateSubMMControl1_PauseClick(CancelAsInteger)MMControl1.UpdateInterval=0显示停止播放状态Label6.BackColor=&H404040Label3.Caption=CD播放器暂停播放EndSub,CompanyLogo,播放PrivateSubMMControl1_PlayClick(CancelAsInteger)MMControl1.UpdateInterval=1000显示当前曲目号Label4.Caption=Str$(MMControl1.Track)List1.ListIndex=MMControl1.Track-1iTime=0设置播放总时间为0EndSub前一曲PrivateSubMMControl1_PrevCompleted(ErrorCodeAsLong)显示新的曲目号Label4.Caption=Str$(MMControl1.Track)List1.ListIndex=MMControl1.Track-1iTime=0EndSub,CompanyLogo,设备状态改变PrivateSubMMControl1_StatusUpdate()状态改变,显示当前曲目号Label4.Caption=Str$(MMControl1.TrackPosition)List1.ListIndex=MMControl1.Track-1判别是否正在播放,若是,则显示已经播放的时间,否则,显示停止播放状态IfMMControl1.Mode=mciModePlayTheniTime=iTime+1iSecond=iTimeMod60求余数得秒数iMinute=iTime60求模数得分数Label5.Caption=Format(iMinute,00)&:&Format(iSecond,00)Label6.BackColor=&H80FF&Label3.Caption=CD播放器正在播放ElseLabel6.BackColor=&H404040Label3.Caption=CD播放器暂停播放EndIfEndSub,CompanyLogo,停止播放PrivateSubMMControl1_StopClick(CancelAsInteger)MMControl1.UpdateInterval=0停止播放Label6.BackColor=&H404040Label3.Caption=CD播放器暂停播放重置第一个曲目MMControl1.To=MMControl1.StartMMControl1.Command=SeekMMControl1.Track=1Label4.Caption=1List1.ListIndex=MMControl1.Track-1EndSub,CompanyLogo,图12-2,图12-3,CompanyLogo,第12章多媒体程序设计,CompanyLogo,12.4测验题,12.4.1选择题1下面关于的描述错误的是。AMMControl控件包含9个按钮，按钮数量不可以改变。B使用MMControl控件可以播放AVI文件。CStatusUpdate事件的时间间隔单位为毫秒。D在一个窗体中可以添加多个MMControl控件。答案：A,CompanyLogo,2语句MMControl1.Command=Open的含义是：。A开始播放多媒体文件。B弹出CD-ROM驱动器。C打开一个MCI设备。D不合乎语法要求。答案：C,CompanyLogo,3关于Animation控件的说法错误的是。AAnimation控件只能播放不带声音的AVI文件。BAnimation控件的背景可以通过BackStyle属性设置为透明。C当AutoPlay属性为真时，Stop方法无效。DAnimation1.Play10,1,20表示从第1帧到第20帧连续播放10次。答案：D,CompanyLogo,12.4.2填空题1语句MMControl1.PlayVisible=False的作用是（1）。答案：Play按钮不可见2实现让MMControl1在图片框控件（Picture1）上播放动画的语句为：（2）。答案：MMControl1.hWndDisplay=Picture1.hWnd,CompanyLogo,3添写代码使得WindowsMediaPlayer以屏幕1/6大小显示图像MediaPlayer1.DisplaySize=。答案：mpOneSixthScreen或54利用mciExecute（）API函数播放通过通用对话框（CommonDialog1）打开的文件的代码为：k=mciExecute()答案：play+CommonDialog1.FileName,CompanyLogo,12.4.3编程题使用ShockwaveFlash控件制作一Flash播放器。窗体如图12-4所示。,图12-4,CompanyLogo,参考答案窗体设计。在窗体上