《多媒体技术与应用教程》第章：Visual Basic多媒体程序设计

第10章VisualBasic多媒体程序设计（时间：3次课，6学时）教学提示：本章学习应该注意VisualBasic中如何使用多媒体元素，尤其注意VisualBasic中控件的概念，因为许多功能的实现都要依赖控件来实现。教学目标：通过本章的学习，用户应掌握有关VisualBasic的特点及一般程序的设计过程，还要掌握如何在VisualBasic中使用图像、动画、音频以及视频文件。第10章VisualBasic多媒体程序设计第10章VisualBasic多媒体程序设计10.1VisualBasic简介10.2与多媒体有关的控件10.3在VisualBasic程序中使用图像10.4在VisualBasic程序中使用动画10.5在VisualBasic程序中使用声音10.6在VisualBasic程序中使用视频10.7在VisualBasic程序中调用电子幻灯片10.8其他实例10.9上机指导10.10习题10.1VisualBasic简介10.1.1VisualBasic基本特点10.1.2VisualBasic设计界面10.1.3用VisualBasic开发应用程序10.1.1VisualBasic基本特点VisualBasic由Basic语言发展而来，是高级程序设计语言。“Visual”是指可视化的图形用户界面(GUI)。VisualBasic是对Basic语言的扩充，既保留了Basic语言简单易用的优点，又充分利用了Windows的图形环境，提供了崭新的可视化设计工具。10.1.2VisualBasic设计界面启动VisualBasic6.0时，首先可以看到【新建工程】对话框。根据需要选择一种开始方式，通常选择“标准.EXE”方式，单击【打开】按钮，即可进入VisualBasic集成开发环境，其基本界面。VisualBasic6.0集成开发环境(IDE)主要由菜单条、工具栏、工具箱、窗体设计器、工程管理器和属性窗口等部分组成。10.1.3用VisualBasic开发应用程序1.创建应用程序的主要步骤(1) 创建应用程序界面(2) 设置界面上各个对象的属性(3) 编写对象响应的程序代码(4) 保存工程(5) 运行和调试程序(6)生成可执行程序10.1.3用VisualBasic开发应用程序2.程序打包为了保存和安装方便，VisualBasic语言提供了程序打包功能。当VisualBasic源程序编制完成后，应编译可执行的.exe文件，并制作安装文件setup.exe。安装文件把程序中用到的.dll文件、.vbx文件、.ocx文件等压缩到硬盘指定的文件夹中，这个过程称为“程序打包”。打包后的程序可记录在CD-R或CD-RW光盘上。需要使用时，可以运行光盘上的“setup.exe”安装文件，VisualBasic程序以及相关的文件就可以自动装入硬盘中。10.2与多媒体有关的控件 10.2.1VisualBasic的控件简介10.2.2Animation控件和Multimedia控件10.2.3Animation控件的使用10.2.1VisualBasic的控件简介VisualBasic的控件可以分为内部控件、ActiveX控件和可插入控件3类。内部控件是VisualBasic本身提供的控件，这些控件显示在控件箱中。ActiveX控件是VisualBasic控件箱的扩充部分，这些控件在使用前必须添加到工具箱内，可插入控件是由其他应用程序创建的对象。利用可插入对象，可以在VisualBasic应用程序中使用其他应用程序的对象。10.2.2Animation控控件件和和Multimedia控控件件与多多媒媒体体有有关关的的控控件件主主要要有有Animation和和Multimedia控控件件。。1.Animation控控件件Animation控控件件用用于于播播放放简简单单的的动动画画，，有有声声音音的的.avi文文件件不不能能在在Animation控控件件中中使使用用，，如如果果试试图图装装载载这这样样的的文文件件将将会会产产生生错错误误。。该该控控件件是是ActiveX控控件件，，并并不不是是VisualBasic标标准准.exe格格式式的的控控件件，，因因此此要要想想使使用用它它，，应应该该通通过过单单击击【【工工程程】】|【【部部件件】】(Project→→Components)命命令令添添加加MicrosoftWindowsCommonControls-26.0控控件件，，或或直直接接建建立立““VB专专业业版版””控控件件或或““VB企企业业版版””控控件件。。添添加加Animation控控件件后后的的控控件件箱箱如如图图10.3所所示示。。图10.310.2.2Animation控控件件和和Multimedia控控件件2.Multimedia控件Multimedia控控件是一组按按钮，用来向向声卡、MIDI序列发发生器、CD-ROM驱驱动器、视频频CD播放器器和视频磁带带记录器等设设备发出MCI命令。MCI设备还还支持Windows视视频文件的回回放。10.2.3Animation控件的使使用Animation控件件和Multimedia控件都是是开发多媒体体应用程序时时经常使用的的两个控件，，而在播放音音频、视频文文件时较多使使用Multimedia控件，这这里先介绍Animation控件件的简单使用用，对于Multimedia控件件，将在以后后的几节中详详细介绍其使使用方法。下下面先介绍使使用Animation控件播放.avi文件件实现类似Windows中文件删删除应用程序序的例子。新建一个工程程，在窗体中中添加两个按按钮：Command1和Command2，，将其属性设设置为【开始始】和【停止止】，分别用用于开始和停停止播放。再再添加一个Animation控件件(Animation1)和一个个标签控件Label1，其属性设设置为【删除除文件】。10.3在在VisualBasic程序序中使用图像像10.3.1直接粘粘贴图像10.3.2图像与与动画组合10.3.1直接粘粘贴图像1.处理图图像在多媒体产品品中，通常在在保证显示质质量的前提下下，对图像进进行预处理。。预处理的内内容包括：降降低图像的颜颜色深度、统统一画面尺寸寸、统一分辨辨率和文件格格式。2.使用图图像在界面上直接接粘贴图像是是最简单的图图像使用形式式。但是，通通常为了灵活活使用图像，，不直接粘贴贴图像本身，，而只粘贴与与图像大小相相等的空白区区域。该区域域使用Image工具创创建，图像的的调入在程序序中进行。10.3.2图像与与动画组合初学者往往把把整幅画面制制作成动画，，不仅数量大大，而且程序序的动作速度度慢。实际上上，真正活动动的对象只是是其中的一小小部分，可以以在图像中把把动画的那一一小部分截取取下来，作为为小动画的背背景。利用动动画制作软件件，在截取的的背景上制作作动画。然后后，在VisualBasic中中，选择Image工具具调入图像，，使用Animation控件调入入动画。仔细细调整动画在在图像上的位位置，使动画画恰好位于截截取背景的那那个区域。10.4在在VisualBasic程序序中使用动画画10.4.1实现动动画的几种方方法10.4.2在VisualBasic中制作动画画10.4.3几几种种不不同同格格式式动动画画的的播播放放10.4.1实实现现动动画画的的几几种种方方法法1.制制作作动动画画的的几几种种方方法法利用用定定时时器器控控件件，，其其实实质质是是每每隔隔一一段段时时间间间间隔隔移移动动一一次次图图形形或或每每隔隔一一段段时时间间间间隔隔重重新新绘绘制制图图形形。。交替替显显示示一一组组图图片片，，一一般般是是两两幅幅或或三三幅幅图图片片，，从从而而实实现现交交替替的的动动画画效效果果。。利用用PictureClip等等控控件件，，连连续续播播放放一一系系列列图图片片，，从从而而形形成成动动画画。。2.动动画画控控件件与与函函数数在VisualBasic中中，，可可以以使使用用以以下下几几种种方方法法来来播播放放动动画画：：使使用MCI控件件播放放动画画使使用API函数数播放放动画画使使外挂挂控件件播放放动画画10.4.2在在VisualBasic中制制作动动画1.用用定定时器器控件件实现现动画画本例用用Line控件件做成成指针针式电电子钟钟的3个指指针，，并固固定这这些指指针的的一端端，另另一端端的坐坐标随随时间间变化化，这这就形形成了了一个个钟表表。2.用用PictureClip控件件制作作动画画利用PictureClip控件件制作作动画画，实实质上上就是是把存存放在在PictureClip控控件中中的““地球球图集集.bmp”图图片逐逐个放放到图图片框框中。。图10.7所所示为为“地地球图图集.bmp””图片片的内内容。。图10.710.4.3几几种不不同格格式动动画的的播放放动画的的格式式有SWF、GIF等，，不同同格式式的动动画需需要不不同的的插件件，使使用不不同的的方法法进行行播放放。1.通过过“ShockwaveFlash”控件和和“MicrosoftCommonDialogControl6.0”控件播播放Flash动画画.(1)用VisualBasic新建一个个工程。(2)在工具箱中中右击，在在打开的菜菜单中选择择【部件】】选项，在在【部件】】对话框中中选中ShockwaveFlash控件和和MicrosoftCommonDialogControl6.0控件。(3)在窗体上创创建一个Flash控件，，命名为skFlash，并并创建一个个“CommonDialogControl”控控件,命名名为“CmdDlg”，用于于打开文件件。另外还还要添加4个命令按按钮，分别别命名为cmdPlay、cmdStop、cmdRewind、cmdOpen。(4)设置对象属属性，如表表10.3所示。10.4.3几几种不同格格式动画的的播放表10.3(5)在代码窗口口中输入以以下代码：：PrivateSubForm_Load()CmdDlg.Filter="*.swf"'设置过过滤器，专专门打开Flash动画(swf格式式)EndSubPrivateSubcmdOpen_Click()CmdDlg.ShowOpen'打开按按钮代码skFlash.Movie=CmdDlg.FileNameEndSub10.4.3几几种不同格格式动画的的播放PrivateSubcmdPlay_Click()skFlash.Play'播放放按钮代码码EndSubPrivateSubcmdRewind_Click()skFlash.Rewind'重头播放放按钮代码码skFlash.PlayEndSubPrivateSubcmdStop_Click()skFlash.Stop‘‘停停止按钮代代码图图10.8EndSub(6)运运行程序。。程序运行行画面如图图10.8所示。10.4.3几几种不同格格式动画的的播放2.使用用WebBrowser控件件播放GIF动画(1)由于WebBrowser控控件并不是是VisualBasic的基本控控件，因此此在使用该该控件之前前必须先将将其装入工工具箱中。。装入方法法为：在工工具箱中单单击鼠标右右键，选择择【部件】】选项，选选中MicrosoftInternetControls复选框，，然后单击击【确定】】按钮即可可。(2)选取WebBrowser控控件(注注意，不不同版本本IE的的WebBrowser控件件的图标标是不同同的，IE4.0及及以上版版本中的的WebBrowser控件件的图标标是一个个地球；；IE3.0是一个个搜索图图标)，，添加到到窗体的的相应位位置上。。(3)设计相应应代码，，通过使使用WebBrowser控控件的Navigate方法法播放GIF动动画文件件。3.播播放FLC格式式动画播放.flc动画画文件的的方法与与.wav和和.midi并没没有不同同，在此此不再详详细介绍绍。10.5在在VisualBasic程序中中使用声声音10.5.1Windows高高级音频频函数10.5.2多多媒媒体MCI控件件10.5.3利利用用OLE控件播播放WAV声音音文件10.5.4利利用用API函数播播放WAV声音音文件10.5.1Windows高高级音频频函数采用Windows提提供的高高级音频频函数可可以播放放声音，，常用于于简单声声音，例例如报警警声、简简短的语语音提示示和标志志性音乐乐片段等等。播放声音音的高级级音频函函数有：：MessageBeep函数数，主要用于于启动计计算机内内扬声器器播放报报警音响响。SndPlaySound函函数，主要用于于播放器器数据量量小于100KB的波波形音频频文件。。PlaySound函函数，主要在32b的的应用程程序中播播放波形形音频文文件。上述3种种函数的的作用是是促使计计算机内内扬声器器发声，，不需要要使用MCI设设备。另另外不支支持MIDI音音频信号号的播放放。10.5.2多多媒媒体MCI控件件1.使使用播放放控制按按钮播放放声音当在窗体体上添加加了播放放控制按按钮后，，属性栏栏中的Name项自动动定义为为MMControl1。播播放控制制按钮包包括播放放、停止止、暂停停、录音音等9个个按钮，，可以根根据实际际需要决决定在界界面上显显示的按按钮。2.使使用用程程序序播播放放声声音音在制制作作多多媒媒体体产产品品时时，，一一般般不不在在界界面面上上使使用用声声音音控控制制按按钮钮，，而而是是通通过过程程序序对对声声音音进进行行灵灵活活的的控控制制，，操操作作的的具具体体方方法法和和使使用用播播放放控控制制器器播播放放声声音音类类似似，，只只有有两两点点不不同同：：①首首先先把把声声音音按按钮钮的的Visible属属性性设设置置为为False，，使使其其不不可可见见。。②在在程程序序中中安安排排控控制制命命令令，，实实现现对对声声音音的的控控制制。。10.5.3利利用用OLE控控件件播播放放WAV声声音音文文件件建立立一一个个窗窗体体，，用用鼠鼠标标选选择择OLE控控件件，，在在窗窗体体上上拖拖出出OLE区区域域，，打打开开如如图图10.11所所示示的的窗窗口口。。在在该该窗窗口口中中选选择择新新建建对对象象的的类类型型，，然然后后单单击击【【确确定定】】按按钮钮完完成成在在窗窗口口中中添添加加OLE控控件件的的操操作作。。添添加加OLE控控件件后后的的窗窗体体。。这样就可可以在OLE控控件的ResourceDoc属性性中选择择所要播播放的文文件。要要运行程程序只需需双击OLE控控件即可可。10.5.4利利用用API函数播播放WAV声音音文件在窗体的的DECLARATIONS(声明明)区域域中输入入如下代代码：PrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong′lpszSoundName是一一个字符符串变量量，表示示一个WAV格格式的文文件名。。′uFlags用于于设定播播放状态态的各种种选项。。参数值值为0X00时时，实现现同步播播放，参参数值为为0X01时实实现非同同步播放放。10.5.4利利用用API函数播播放WAV声音音文件在命令按按钮的单单击事件件中输入入如下代代码：PrivateSubCommand1_Click()DimplaysAsLongplays=sndPlaySound("G:\调节音音量\21秒音音乐.WAV",&H0)EndSub运行时单单击命令令按钮即即可播放放WAV文件。。10.6在在VisualBasic程序中中使用视视频10.6.1视视频频信号处处理10.6.2多多媒媒体MCI控件件10.6.3使使用用OLE控件播播放视频频文件10.6.1视视频频信号处处理视频信号号的处理理原则是是：尽量截取取重要内内容，省省略多余余部分，，以便减减少数据据量。采用AVI文件件格式保保存视频频信号。。充分考虑虑多媒体体产品存存储介质质的容量量，确定定使用视视频文件件的数量量。10.6.2多多媒媒体MCI控件件在VisualBasic语言中中，使用用MCI控件播播放视频频文件可可以通过过定义播播放区域域播放，，也可以以不定义义播放区区域，系系统会自自动打开开一个播播放窗口口进行播播放。1.不不定定义播播放区区域具体操操作步步骤如如下：：(1)通过菜菜单在在工具具箱中中添加加MMC控控件。。(2)设置对对象属属性：：将表表单保保持自自动命命名，，将其其Caption属属性修修改为为【播播放视视频】】。(3)输入程程序。。(4)运行程程序，，存盘盘后运运行程程序，，出现现视频频影片片，单单击播播放按按钮，，开始始播放放影片片。10.6.2多多媒体体MCI控控件2.定定义义播放放区域域具体步步骤如如下：：(1)通过菜菜单在在工具具箱中中添加加MMC控控件。。(2)建立视视频播播放对对象———首首先利利用工工具箱箱中的的MMControl工工具建建立一一个播播放视视频信信号的的对象象。该该对象象被自自动命命名为为“MMControl”。。(3)使用工具箱箱中的PictureBox工具，建建立一个播播放视频信信号的区域域，该区域域被自动命命名为Picturel。(4)编写程序。。程序中主主要包括以以下几个部部分：① 控制按按钮处理———建立对象后后，产生一一组控制按按钮，按钮钮的个数和和功能与播播放声音时时相同。如如果希望隐隐藏按钮，，则在程序序中定义包包括“播放放”在内的的多种控制制功能，并并应把各按按钮的Visible属性设设置成False。。10.6.2多多媒体MCI控件② 定义视视频播放———用MMContuol1.Device="AVIVideo"语句把播播放类型定定义为视频频信号，该该语句非常常重要，否否则MCI控件无法法播放视频频信号。③ 指定播播放文件———用MMControl1.filename="路径文文件名"语语句指定文文件路径和和名字。④ 定义视视频播放区区域——用MMControl1.hWndDisplay=picture1.hWnd语句将Picture1区区域定义在在播放视频频信号的区区域。⑤ 控制视视频文件———可使用MMControl1.Command="Open"语语句打开视视频文件，，至于播放放或其他控控制可使用用MMControl1.Command="命令参数数"语句发发出播放或或其他命令令。10.6.3使使用OLE控件播放放视频文件件使用OLE控件播放放AVI格格式的视频频文件时，，将自动打打开一个播播放窗口播播放视频信信号。首先用OLE工具创创建一个矩矩形。在随随后显示的的InsertObject画面中中，选中【【建立文件件关联】复复选框，再再单击Browse按钮，找找到需要运运行的视频频文件。选选中【链接接】和【显显示为图标标】两个复复选框，使使其有效。。最后单击击OK按钮钮，在窗口口中将出现现OLE图图标和视频频文件名。。10.7在在VisualBasic程序序中调用电电子幻灯片片10.7.1电电子幻灯片片10.7.2建建立连接10.7.1电电子幻灯片片1.文件格格式通常，电子子幻灯片的的默认保存存类型是““演示文稿稿”，文件件扩展名为为“.ppt”。如如果用鼠标标双击该文文件，则启启动PowerPoint软软件，自动动进入幻灯灯片的编辑辑状态。为为了和VisualBasic多媒媒体程序相相链接，电电子幻灯片片的保存类类型应改为为“PowerPoint放放映”方式式，对应的的文件扩展展名是“.pps””。用鼠标标双击该格格式文件时时，不进入入PowerPoint编辑辑状态，而而是直接进进行演示。。2.存放位位置电子幻灯片片的存放地地点应相对对固定在硬硬盘的某个个逻辑区中中，文件夹夹和文件名名也不应变变更，否则则VisualBasic多媒体程程序将找不不到电子幻幻灯片文件件。10.7.2建建立连接1.建立立方法建立连接的的具体操作作步骤如下下：(1)选择工具箱箱中的OLE工具，，在窗口界界面上画一一个矩形，，随后显示示插入对象象画面。(2)在画面中，，选择【由由文件创建建】单选按按钮，然后后单击Browse按钮，找找到一个电电子幻灯片片文件。再再选择【链链接】和【【显示为图图标】两个个复选框，，使其有效效。最后单单击OK按按钮。在窗窗口界面上上随之出现现OLE图图标和对应应的电子幻幻灯片文件件名。(3)运行程序时时，用鼠标标双击OLE图标即即可启动对对应的电子子幻灯片文文件，并进进入演示状状态。在电电子幻灯片片演示结束束或者按Esc键后后，返回程程序状态。。10.8其其他实实例10.8.1调调节音量10.8.2用用VisualBasic设计VCD播放器器10.8.3只只播放一帧帧10.8.1调调节音量本例通过API调用用来实现对对扬声器音音量的控制制。具体操作步步骤如下：：(1)单击【文件件】|【新新建工程】】命令，创创建一个新新工程。(2)在窗体上添添加8个命命令控件和和一个标签签控件，整整体布局如如图10.18所示示。图10.1810.8.1调调节音量(3)设置对象属属性，将Form1的Caption属性改为为【调节音音量】；Command1至至Command8的Caption属性分别别设置为【【静】、【【左】、【【右】、【【双】、【【+】、、【-】、、【恢复】】、【退出出】；Label1的Caption属性设置置为空白。。(4)编写事件处处理程序。。双击窗体，，打开代码码窗口，输输入以下程程序：PrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongPrivateDeclareFunctionwaveOutGetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,lpdwVolumeAsLong)AsLong10.8.1调调节音量PrivateDeclareFunctionwaveOutSetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByValdwVolumeAsLong)AsLongDimsavVolPrivateSubCommand1_Click()i=waveOutSetVolume(0,0)EndSubPrivateSubCommand2_Click()i=waveOutSetVolume(0,&HFF00)EndSubPrivateSubCommand3_Click()i=waveOutSetVolume(0,&HFF)EndSub10.8.1调调节音量PrivateSubCommand4_Click()i=waveOutSetVolume(0,&HFFFF)EndSubPrivateSubCommand5_Click()x=waveOutGetVolume(0,0)-&H808i=waveOutSetVolume(0,x)EndSubPrivateSubCommand6_Click()x=waveOutGetVolume(0,0)+&H808i=waveOutSetVolume(0,x)EndSubPrivateSubCommand7_Click()i=waveOutSetVolume(0,savVol)EndSub10.8.1调调节音量PrivateSubCommand8_Click()EndEndSubPrivateSubForm_Load()Me.ShowsavVol=&H4F4Fi=waveOutSetVolume(0,savVol)k=App.Path+"\21秒音音乐.wav"Label1.Caption="音乐文文件名："+kl=&H1Or&H2i=sndPlaySound(k,l)EndSub10.8.2用用VisualBasic设计VCD播放器器具体操作步步骤如下：：(1)在VisualBasic中建立一一个新窗口口,加入入多媒体部部件MicrosoftMultimediaControl6.0以及对对话框部件件MicrosoftCommonDialogControl6.0。。(2)在窗体中添添加MCI控件件并调整其其大小，并并将窗体的的大小也调调整为与其其同样大小小。(3)设置对象属属性。将9个按钮钮(从左至至右为：Prev、、Next、Play、Pause、、Back、Step、Stop、Record和Eject)中的的Record按按钮的Visible属属性设为False，其余余按钮的Visible属属性和Enabled属属性设为True,以上上按钮的设设置可通过过MMControl属性栏栏内的【自自定义】选选项来设置置。对话框框控件的DefaultExt属性设设为“.DAT”,DialogTitle属属性设为为【打开多多媒体文件件】,Filter属性性设为“*.DAT,*.WAV””,InitDir属性性设为“G:\MPEGAV”(假设设光驱盘符符为G)。。10.8.2用用VisualBasic设设计计VCD播播放放器器(4)编写写代代码码。。在代代码码窗窗口口中中输输入入如如下下程程序序:OptionExplicitPrivateSubForm_Load()DimResponseAsIntegerMMControl1.DeviceType="MPEGVideo"CommonDialog1.ShowOpen′′通通过过对对话话框框选选择择不不同同的的VCD文文件件MMControl1.filename=CommonDialog1.filename′′选选定定要要播播放放的的文文件件MMControl1.Command="Open"MMControl1.Command="Play"EndSub10.8.2用用VisualBasic设设计计VCD播播放放器器PrivateSubForm_Unload(CancelAsInteger)MMControl1.Command="close"EndSubPrivateSubMMControl1_BackClick(CancelAsInteger)′对Back按钮的的功能改进DimiAsIntegeri=MMControl1.Position-100′′数值100为后退量,可适当调整整Ifi<0ThenMMControl1.From="0"10.8.2用VisualBasic设计VCD播放器ElseMMControl1.From="i"EndIfMMControl1.Command="Play"EndSubPrivateSubMMControl1_StepClick(CancelAsInteger)′对Step按钮的的功能改进DimjAsIntegerj="MMControl1.Position"+100′′数值100为前进量,可适当调整整Ifj>MMControl1.LengthThenMMControl1.From=MMControl1.Length10.8.2用VisualBasic设计VCD播放器ElseMMControl1.From=jEndIfMMControl1.Command="Play"EndSub调整好窗体的的标题、图标标、颜色等，，然后编译成成.EXE文文件，就可以以在Windows下拥拥有自己的VCD播放器器了。10.8.3只播放放一帧利用PictureClip控件可可以实现观看看动画中任意意一帧的功能能。具体操作作如下：(1)新建一个工程程。(2)在窗体上创建建一个命令按按钮控件、一一个水平滚动动条控件、一一个标签控件件、一个图片片框控件和一一个PictureClip控件，，窗体布局如如图10.19所示。(3)设置对对象属属性，，如表表10.4所示示。10.8.3只只播放放一帧帧图10.1910.8.3只只播放放一帧帧表10.410.8.3只只播放放一帧帧(4)编写事事件处处理程程序。。在代码码窗口口中输输入以以下程程序：：PrivateSubCommand1_Click()EndEndSubPrivateSubForm_Load()Picture1.ScaleMode=3PictureClip1.Rows=3PictureClip1.Cols=5Picture1.Picture=PictureClip1.GraphicCell(0)EndSub10.8.3只只播放放一帧帧PrivateSubHScroll1_Change()Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)Label1.Caption="第第"+Format(HScroll1.Value,"00")+"帧帧"EndSubPrivateSubHScroll1_Scroll()Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)Label1.Caption="第第"+Format(HScroll1.Value,"00")+"帧帧"EndSub10.8.3只播放放一帧(5)运行程序。将文件存盘后后运行。当拖拖动滑块时动动画当前帧立立即更换，如如图10.20就是其中中的一个画面面。图10.2010.9上上机指导10.9.1播放CD10.9.2调节音音量10.9.1播放CD设计CD播放放器的具体操操作如下：(1)单击【文件】】|【新建工工程】命令，，创建一个新新工程。(2)在窗体上创建建16个命令令按钮控件和和一个标签控控件。(3)设置对象的属属性，前15个命令按钮钮的name都是Command1，各按钮靠靠Index属性来区别别。(4)编写事件处理理程序。在代代码窗口中添添加以下程序序：10.9.1播放CDOptionExplicitPrivateSubCommand1_Click(IndexAsInteger)playCD(Index+1)EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()DimiAsIntegeri=auxTest()Ifi<>TrueThen10.9.1播放CDMsgBox"对不起起，没有检测测到声卡，有有可能不能欣欣赏CD"EndIfEndSub(5)单击【工程】】|【添加模模块】命令，，在项目窗口口中添加一个个模块图标。。双击该模块块图标，打开开模块代码窗窗口，输入以以下程序：DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong10.9.1播放CDDeclareFunctionauxGetNumDevsLib"winmm.dll"()AsLongGlobalConstSND_ASYNC=&H1GlobalConstSND_NODEFAULT=&H2GlobalConstSND_LOOP=&H8GlobalConstSND_NOSTOP=&H10FunctionauxTest()AsBooleanDimiAsIntegeri=auxGetNumDevs()Ifi>0ThenauxTest=TrueElseauxTest=FalseEndIfEndFunction10.9.1播放CDSubplayCD(bAsInteger)DimaAsLonga=mciSendString("opencdaudioaliascdwait",0&,0,0)a=mciSendString("setcdtimeformattmsf",0&,0,0)a=mciSendString("playcdfrom"&Str(b),0&,0,0)EndSub(6)运运行程程序，，以““播放放CD”为为名存存盘后后运行行程序序，出出现图图10.21所所示的的界面面，在在光驱驱中放放入一一张CD音音乐光光盘，，然后后选择择一首首曲子子开始始播放放。10.9.2调调节音音量在用VisualBasic编编程的的时候候，通通常要要调用用图片片，如如果图图片出出现的的时候候是以以各种种完美美的效效果出出现的的(如如马赛赛克效效果，，百叶叶窗效效果等等)，，那么么程序序就会会显得得更灵灵活、、更专专业化化。图图片淡淡入淡淡出示示例程程序讲讲述了了在VisualBasic中中如何何调用用API函函数中中的AlphaBlend和和CopyMemory函数数实现现图片片淡入入淡出出效果果的过过程。。具体的的操作作步骤骤参见见书302页。。10.10习习题题参见书书p216页：：一、、选择择题、、二二、填填空题题、三三、判判断改改错题题、四四、、简答答题、、五五、操操作题题。三Q&A?Thanks!9、静夜四无邻邻，荒居旧业业贫。。1月-231月-23Thursday,January5,202310、雨中中黄叶叶树，，灯下下白头头人。。。02:42:0902:42:0902:421/5/20232:42:09AM11、以我独沈久久，愧君相见见频。。1月-2302:42:0902:42Jan-2305-Jan-2312、故人江海别别，几度隔山山川。。02:42:0902:42:0902:42Thursday,January5,202313、乍见翻疑疑梦，相悲悲各问年。。。1月-231月-2302:42:0902:42:09January5,202314、他乡生白发发，旧国见青青山。。05一月20232:42:09上