[精选]《多媒体技术与应用教程》第10章：Visual Basic多媒体程序设计692.pptx

《[精选]《多媒体技术与应用教程》第10章：Visual Basic多媒体程序设计692.pptx》由会员分享，可在线阅读，更多相关《[精选]《多媒体技术与应用教程》第10章：Visual Basic多媒体程序设计692.pptx（65页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、http:/ Visual Basic多媒体程序设计（时间：3次课，6学时）n教学提示：本章学习应该注意Visual Basic中如何使用多媒体元素，尤其注意Visual Basic中控件的概念，因为许多功能的实现都要依赖控件来实现。n教学目标：通过本章的学习，用户应掌握有关Visual Basic的特点及一般程序的设计过程，还要掌握如何在Visual Basic中使用图像、动画、音频以及视频文件。第10章 Visual Basic多媒体程序设计第10章 Visual Basic多媒体程序设计n10.1 Visual Basic简介简介n10.2 与多媒体有关的控件与多媒体有关的控件n10.3

2、 在在Visual Basic程序中使用图像程序中使用图像n10.4 在在Visual Basic程序中使用动画程序中使用动画n10.5 在在Visual Basic程序中使用声音程序中使用声音n10.6 在在Visual Basic程序中使用视频程序中使用视频n10.7 在在Visual Basic程序中调用电子幻灯片程序中调用电子幻灯片n10.8 其他实例其他实例n10.9 上机指导上机指导n10.10 习题习题10.1 Visual Basic简介简介n10.1.1 Visual Basic基本特点基本特点n10.1.2 Visual Basic设计界面设计界面n10.1.3 用用Vis

3、ual Basic开发应用程序开发应用程序10.1.1 Visual Basic基本特点uVisual Basic由由Basic语言发展而来，是高级程序设计语言发展而来，是高级程序设计语言。语言。“Visual”是指可视化的图形用户界面是指可视化的图形用户界面(GUI)。Visual Basic是对是对Basic语言的扩充，既保留了语言的扩充，既保留了Basic语言简单易用的优点，又充分利用了语言简单易用的优点，又充分利用了Windows的图形的图形环境，提供了崭新的可视化设计工具。环境，提供了崭新的可视化设计工具。10.1.2 Visual Basic设计界面u启动Visual Basic

4、6.0时，首先可以看到【新建工程】对话框。u根据需要选择一种开始方式，通常选择“标准.EXE”方式，单击【打开】按钮，即可进入Visual Basic集成开发环境，其基本界面。uVisual Basic 6.0集成开发环境(IDE)主要由菜单条、工具栏、工具箱、窗体设计器、工程管理器和属性窗口等部分组成。10.1.3 用Visual Basic开发应用程序1.创建应用程序的主要步骤(1)创建应用程序界面(2)设置界面上各个对象的属性(3)编写对象响应的程序代码(4)保存工程(5)运行和调试程序(6)生成可执行程序10.1.3 用Visual Basic开发应用程序2.程序打包u为了保存和安装方

5、便，Visual Basic语言提供了程序打包功能。当Visual Basic源程序编制完成后，应编译可执行的.exe文件，并制作安装文件setup.exe。安装文件把程序中用到的.dll文件、.vbx文件、.ocx文件等压缩到硬盘指定的文件夹中，这个过程称为“程序打包”。打包后的程序可记录在CD-R或CD-RW光盘上。需要使用时，可以运行光盘上的“setup.exe”安装文件，Visual Basic程序以及相关的文件就可以自动装入硬盘中。10.2 与多媒体有关的控件与多媒体有关的控件n10.2.1 Visual Basic的控件简介的控件简介n10.2.2 Animation控件和控件和M

6、ultimedia控件控件n10.2.3 Animation控件的使用控件的使用10.2.1 Visual Basic的控件简介的控件简介uVisual Basic的控件可以分为内部控件、ActiveX控件和可插入控件3类。内部控件是Visual Basic本身提供的控件，这些控件显示在控件箱中。ActiveX控件是Visual Basic控件箱的扩充部分，这些控件在使用前必须添加到工具箱内，可插入控件是由其他应用程序创建的对象。利用可插入对象，可以在Visual Basic应用程序中使用其他应用程序的对象。10.2.2 Animation10.2.2 Animation控件和控件和控件和控件

7、和MultimediaMultimedia控件控件控件控件u与多媒体有关的控件主要有Animation和Multimedia控件。1.Animation控件uAnimation控件用于播放简单的动画，有声音的.avi文件不能在Animation控件中使用，如果试图装载这样的文件将会产生错误。该控件是Active X控件，并不是Visual Basic标准.exe格式的控件，因此要想使用它，应该通过单击【工程】|【部件】(ProjectComponents)命令添加Microsoft Windows Common Controls-2 6.0控件，或直接建立“VB专业版”控件或“VB企业版”控件

8、。添加Animation 控件后的控件箱如图10.3所示。图10.310.2.2 Animation控件和控件和Multimedia控件控件2.Multimedia控件uMultimedia控件是一组按钮，用来向声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器等设备发出MCI命令。MCI设备还支持Windows视频文件的回放。10.2.3 Animation控件的使用控件的使用uAnimation控件和Multimedia控件都是开发多媒体应用程序时经常使用的两个控件，而在播放音频、视频文件时较多使用Multimedia控件，这里先介绍Animation控件的简单使

9、用，对于Multimedia控件，将在以后的几节中详细介绍其使用方法。下面先介绍使用Animation控件播放.avi文件实现类似Windows中文件删除应用程序的例子。u新建一个工程，在窗体中添加两个按钮：Command1和Command2，将其属性设置为【开始】和【停止】，分别用于开始和停止播放。再添加一个Animation控件(Animation1)和一个标签控件Label1，其属性设置为【删除文件】。10.3 在在Visual Basic程序中使用图像程序中使用图像n10.3.1 直接粘贴图像直接粘贴图像n10.3.2 图像与动画组合图像与动画组合10.3.1 直接粘贴图像直接粘贴图像

10、1.处理图像u在多媒体产品中，通常在保证显示质量的前提下，对图像进行预处理。预处理的内容包括：降低图像的颜色深度、统一画面尺寸、统一分辨率和文件格式。2.使用图像u在界面上直接粘贴图像是最简单的图像使用形式。但是，通常为了灵活使用图像，不直接粘贴图像本身，而只粘贴与图像大小相等的空白区域。该区域使用Image工具创建，图像的调入在程序中进行。10.3.2 图像与动画组合图像与动画组合u初学者往往把整幅画面制作成动画，不仅数量大，而且程序的动作速度慢。实际上，真正活动的对象只是其中的一小部分，可以在图像中把动画的那一小部分截取下来，作为小动画的背景。利用动画制作软件，在截取的背景上制作动画。然后

11、，在Visual Basic中，选择Image工具调入图像，使用Animation控件调入动画。仔细调整动画在图像上的位置，使动画恰好位于截取背景的那个区域。10.4 在在Visual Basic程序中使用动画程序中使用动画n10.4.1 实现动画的几种方法实现动画的几种方法n10.4.2 在在Visual Basic中制作动画中制作动画n10.4.3 几种不同格式动画的播放几种不同格式动画的播放10.4.1 实现动画的几种方法实现动画的几种方法1.制作动画的几种方法u利用定时器控件，其实质是每隔一段时间间隔移动一次图形或每隔一段时间间隔重新绘制图形。u交替显示一组图片，一般是两幅或三幅图片，

12、从而实现交替的动画效果。u利用PictureClip等控件，连续播放一系列图片，从而形成动画。2.动画控件与函数u在Visual Basic中，可以使用以下几种方法来播放动画：使用MCI控件播放动画使用API函数播放动画使外挂控件播放动画10.4.2 10.4.2 在在在在Visual BasicVisual Basic中制作动画中制作动画中制作动画中制作动画1.用定时器控件实现动画u本例用Line控件做成指针式电子钟的3个指针，并固定这些指针的一端，另一端的坐标随时间变化，这就形成了一个钟表。2.用PictureClip控件制作动画u利用PictureClip控件制作动画，实质上就是把存放在

13、PictureClip控件中的“地球图集.bmp”图片逐个放到图片框中。图10.7所示为“地球图集.bmp”图片的内容。图10.710.4.3 10.4.3 几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放u动画的格式有SWF、GIF等，不同格式的动画需要不同的插件，使用不同的方法进行播放。1.通过“Shockwave Flash”控件和“Microsoft Common Dialog Control 6.0”控件播放Flash动画.(1)用Visual Basic新建一个工程。(2)在工具箱中右击，在打开的菜单中选择【部件】选项，在【部件】对话框中选中

14、Shockwave Flash控件和Microsoft Common Dialo g Control 6.0控件。(3)在窗体上创建一个Flash 控件，命名为skFlash，并创建一个“Common Dialog Control”控件,命名为“CmdDlg”，用于打开文件。另外还要添加4个命令按钮，分别命名为cmdPlay、cmdStop、cmdRewind、cmdOpen。(4)设置对象属性，如表10.3所示。10.4.3 10.4.3 几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放表10.3(5)在代码窗口中输入以下代码：Private Sub

15、Form_Load()CmdDlg.Filter=*.swf 设置过滤器，专门打开Flash动画(swf格式)End SubPrivate Sub cmdOpen_Click()CmdDlg.ShowOpen 打开按钮代码 skFlash.Movie=CmdDlg.FileNameEnd Sub10.4.3 几种不同格式动画的播放几种不同格式动画的播放Private Sub cmdPlay_Click()skFlash.Play 播放按钮代码End SubPrivate Sub cmdRewind_Click()skFlash.Rewind 重头播放按钮代码 skFlash.PlayEnd S

16、ubPrivate Sub cmdStop_Click()skFlash.Stop 停止按钮代码 图10.8End Sub (6)运行程序。程序运行画面如图10.8所示。10.4.3 10.4.3 几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放几种不同格式动画的播放2.使用WebBrowser控件播放GIF动画(1)由于WebBrowser控件并不是Visual Basic的基本控件，因此在使用该控件之前必须先将其装入工具箱中。装入方法为：在工具箱中单击鼠标右键，选择【部件】选项，选中Microsoft Internet Controls复选框，然后单击【确定】按钮即可。(

17、2)选取WebBrowser控件(注意，不同版本IE的WebBrowser控件的图标是不同的，IE 4.0及以上版本中的WebBrowser控件的图标是一个地球；IE 3.0是一个搜索图标)，添加到窗体的相应位置上。(3)设计相应代码，通过使用WebBrowser控件的Navigate方法播放GIF动画文件。3.播放FLC格式动画u播放.flc 动画文件的方法与.wav 和.midi 并没有不同，在此不再详细介绍。10.5 在在Visual Basic程序中使用声音程序中使用声音n10.5.1 Windows高级音频函数高级音频函数n10.5.2 多媒体多媒体MCI控件控件n10.5.3 利用

18、利用OLE控件播放控件播放WAV声音文件声音文件n10.5.4 利用利用API函数播放函数播放WAV声音文件声音文件10.5.1 Windows高级音频函数高级音频函数u采用Windows提供的高级音频函数可以播放声音，常用于简单声音，例如报警声、简短的语音提示和标志性音乐片段等。播放声音的高级音频函数有：MessageBeep函数，主要用于启动计算机内扬声器播放报警音响。SndPlaySound函数，主要用于播放器数据量小于100KB的波形音频文件。PlaySound函数，主要在32b的应用程序中播放波形音频文件。u上述3种函数的作用是促使计算机内扬声器发声，不需要使用MCI设备。另外不支持

19、MIDI音频信号的播放。10.5.2 多媒体多媒体MCI控件控件1.使用播放控制按钮播放声音u当在窗体上添加了播放控制按钮后，属性栏中的Name项自动定义为MMControl1。播放控制按钮包括播放、停止、暂停、录音等9个按钮，可以根据实际需要决定在界面上显示的按钮。2.使用程序播放声音u在制作多媒体产品时，一般不在界面上使用声音控制按钮，而是通过程序对声音进行灵活的控制，操作的具体方法和使用播放控制器播放声音类似，只有两点不同：u 首先把声音按钮的Visible属性设置为False，使其不可见。u 在程序中安排控制命令，实现对声音的控制。10.5.3 利用利用OLE控件播放控件播放WAV声音

20、文件声音文件u建立一个窗体，用鼠标选择OLE控件，在窗体上拖出OLE区域，打开如图10.11所示的窗口。在该窗口中选择新建对象的类型，然后单击【确定】按钮完成在窗口中添加OLE控件的操作。添加OLE控件后的窗体。u这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件。要运行程序只需双击OLE控件即可。10.5.4 利用利用API函数播放函数播放WAV声音文件声音文件u在窗体的DECLARATIONS(声明)区域中输入如下代码：uPrivate Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA(ByV

21、al lpszSoundName As String,ByVal uFlags As Long)As LongulpszSoundName是一个字符串变量，表示一个WAV格式的文件名。uuFlags 用于设定播放状态的各种选项。参数值为0X00时，实现同步播放，参数值为0X01时实现非同步播放。10.5.4 利用利用API函数播放函数播放WAV声音文件声音文件u在命令按钮的单击事件中输入如下代码：uPrivate Sub Command1_Click()uDim plays As Longu plays=sndPlaySound(G:调节音量21秒音乐.WAV,&H0)uEnd Subu运行时

22、单击命令按钮即可播放WAV文件。10.6 在在Visual Basic程序中使用视频程序中使用视频n10.6.1 视频信号处理视频信号处理n10.6.2 多媒体多媒体MCI控件控件n10.6.3 使用使用OLE控件播放视频文件控件播放视频文件10.6.1 视频信号处理视频信号处理u视频信号的处理原则是：u尽量截取重要内容，省略多余部分，以便减少数据量。u采用AVI文件格式保存视频信号。u充分考虑多媒体产品存储介质的容量，确定使用视频文件的数量。10.6.2 多媒体多媒体MCI控件控件u在Visual Basic语言中，使用MCI控件播放视频文件可以通过定义播放区域播放，也可以不定义播放区域，系

23、统会自动打开一个播放窗口进行播放。1.不定义播放区域u具体操作步骤如下：u(1)通过菜单在工具箱中添加MMC控件。u(2)设置对象属性：将表单保持自动命名，将其Caption属性修改为【播放视频】。u(3)输入程序。u(4)运行程序，存盘后运行程序，出现视频影片，单击播放按钮，开始播放影片。10.6.2 10.6.2 多媒体多媒体多媒体多媒体MCIMCI控件控件控件控件2.定义播放区域u具体步骤如下：u(1)通过菜单在工具箱中添加MMC控件。u(2)建立视频播放对象首先利用工具箱中的MMControl工具建立一个播放视频信号的对象。该对象被自动命名为“MMControl”。u(3)使用工具箱中

24、的PictureBox工具，建立一个播放视频信号的区域，该区域被自动命名为Picturel。u(4)编写程序。程序中主要包括以下几个部分：u 控制按钮处理 建立对象后，产生一组控制按钮，按钮的个数和功能与播放声音时相同。如果希望隐藏按钮，则在程序中定义包括“播放”在内的多种控制功能，并应把各按钮的Visible属性设置成False。10.6.2 多媒体多媒体MCI控件控件u 定义视频播放 用MMContuol1.Device=AVIVideo语句把播放类型定义为视频信号，该语句非常重要，否则MCI控件无法播放视频信号。u 指定播放文件 用MMControl1.filename=路径文件名语句指

25、定文件路径和名字。u 定义视频播放区域用MMControl1.hWndDisplay=picture1.hWnd语句将Picture1区域定义在播放视频信号的区域。u 控制视频文件可使用MMControl1.Command=Open语句打开视频文件，至于播放或其他控制可使用MMControl1.Command=命令参数语句发出播放或其他命令。10.6.3 使用使用OLE控件播放视频文件控件播放视频文件u使用OLE控件播放AVI格式的视频文件时，将自动打开一个播放窗口播放视频信号。u首先用OLE工具创建一个矩形。在随后显示的Insert Object画面中，选中【建立文件关联】复选框，再单击Br

26、owse按钮，找到需要运行的视频文件。选中【链接】和【显示为图标】两个复选框，使其有效。最后单击OK按钮，在窗口中将出现OLE图标和视频文件名。10.7 在在Visual Basic程序中调程序中调用电子幻灯片用电子幻灯片n10.7.1 电子幻灯片电子幻灯片n10.7.2 建立连接建立连接10.7.1 电子幻灯片电子幻灯片1.文件格式u通常，电子幻灯片的默认保存类型是“演示文稿”，文件扩展名为“.ppt”。如果用鼠标双击该文件，则启动PowerPoint软件，自动进入幻灯片的编辑状态。为了和Visual Basic多媒体程序相链接，电子幻灯片的保存类型应改为“PowerPoint放映”方式，对

27、应的文件扩展名是“.pps”。用鼠标双击该格式文件时，不进入PowerPoint编辑状态，而是直接进行演示。2.存放位置u电子幻灯片的存放地点应相对固定在硬盘的某个逻辑区中，文件夹和文件名也不应变更，否则Visual Basic多媒体程序将找不到电子幻灯片文件。10.7.2 建立连接建立连接1.建立方法u建立连接的具体操作步骤如下：u(1)选择工具箱中的OLE工具，在窗口界面上画一个矩形，随后显示插入对象画面。u(2)在画面中，选择【由文件创建】单选按钮，然后单击Browse按钮，找到一个电子幻灯片文件。再选择【链接】和【显示为图标】两个复选框，使其有效。最后单击OK按钮。在窗口界面上随之出现

28、OLE图标和对应的电子幻灯片文件名。u(3)运行程序时，用鼠标双击OLE图标即可启动对应的电子幻灯片文件，并进入演示状态。在电子幻灯片演示结束或者按Esc键后，返回程序状态。10.8 其他实例其他实例n10.8.1 调节音量调节音量n10.8.2 用用Visual Basic设计设计VCD播放器播放器n10.8.3 只播放一帧只播放一帧10.8.1 调节音量调节音量u本例通过API调用来实现对扬声器音量的控制。具体操作步骤如下：(1)单击【文件】|【新建工程】命令，创建一个新工程。(2)在窗体上添加8个命令控件和一个标签控件，整体布局如图10.18所示。图10.1810.8.1 调节音量调节音

29、量(3)设置对象属性，将Form1的Caption属性改为【调节音量】；Command1至Command8的Caption属性分别设置为【静】、【左】、【右】、【双】、【+】、【-】、【恢复】、【退出】；Label1的Caption属性设置为空白。(4)编写事件处理程序。双击窗体，打开代码窗口，输入以下程序：Private Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA(ByVal lpszSoundName As String,ByVal uFlags As Long)As LongPrivate Declare

30、 Function waveOutGetVolume Lib winmm.dll(ByVal uDeviceID As Long,lpdwVolume As Long)As Long10.8.1 调节音量调节音量Private Declare Function waveOutSetVolume Lib winmm.dll(ByVal uDeviceID As Long,ByVal dwVolume As Long)As LongDim savVolPrivate Sub Command1_Click()i=waveOutSetVolume(0,0)End SubPrivate Sub Comm

31、and2_Click()i=waveOutSetVolume(0,&HFF00)End SubPrivate Sub Command3_Click()i=waveOutSetVolume(0,&HFF)End Sub10.8.1 调节音量调节音量Private Sub Command4_Click()i=waveOutSetVolume(0,&HFFFF)End SubPrivate Sub Command5_Click()x=waveOutGetVolume(0,0)-&H808 i=waveOutSetVolume(0,x)End SubPrivate Sub Command6_Click

32、()x=waveOutGetVolume(0,0)+&H808 i=waveOutSetVolume(0,x)End SubPrivate Sub Command7_Click()i=waveOutSetVolume(0,savVol)End Sub10.8.1 调节音量调节音量Private Sub Command8_Click()EndEnd SubPrivate Sub Form_Load()Me.Show savVol=&H4F4F i=waveOutSetVolume(0,savVol)k=App.Path+21秒音乐.wav Label1.Caption=音乐文件名：+k l=&H

33、1 Or&H2 i=sndPlaySound(k,l)End Sub10.8.2 用用Visual Basic设计设计VCD播放器播放器具体操作步骤如下：(1)在Visual Basic中建立一个新窗口,加入多媒体部件Microsoft Multimedia Control 6.0以及对话框部件Microsoft Common Dialog Control 6.0。(2)在窗体中添加 MCI 控件并调整其大小，并将窗体的大小也调整为与其同样大小。(3)设置对象属性。u将9个按钮(从左至右为：Prev、Next、Play、Pause、Back、Step、Stop、Record 和 Eject)中

34、的Record 按钮的 Visible 属性设为 False，其余按钮的Visible 属性和 Enabled 属性设为 True,以上按钮的设置可通过MMControl属性栏内的【自定义】选项来设置。对话框控件的DefaultExt属性设为“.DAT”,DialogTitle 属性设为【打开多媒体文件】,Filter 属性设为“*.DAT,*.WAV”,InitDir 属性设为“G:MPEGAV”(假设光驱盘符为G)。10.8.2 用用Visual Basic设计设计VCD播放器播放器(4)编写代码。在代码窗口中输入如下程序:Option ExplicitPrivate Sub Form_L

35、oad()Dim Response As Integer MMControl1.DeviceType=MPEGVideo CommonDialog1.ShowOpen 通过对话框选择不同的VCD文件 MMControl1.filename=CommonDialog1.filename 选定要播放的文件 MMControl1.Command=Open MMControl1.Command=Play End Sub10.8.2 用用Visual Basic设计设计VCD播放器播放器Private Sub Form_Unload(Cancel As Integer)MMControl1.Comman

36、d=closeEnd SubPrivate Sub MMControl1_BackClick(Cancel As Integer)对Back按钮的功能改进 Dim i As Integer i=MMControl1.Position-100 数值100为后退量,可适当调整 If i MMControl1.Length Then MMControl1.From=MMControl1.Length10.8.2 用用Visual Basic设计设计VCD播放器播放器 Else MMControl1.From=j End If MMControl1.Command=PlayEnd Sub调整好窗体的标

37、题、图标、颜色等，然后编译成.EXE文件，就可以在Windows下拥有自己的VCD播放器了。10.8.3 只播放一帧只播放一帧u利用PictureClip控件可以实现观看动画中任意一帧的功能。具体操作如下：(1)新建一个工程。(2)在窗体上创建一个命令按钮控件、一个水平滚动条控件、一个标签控件、一个图片框控件和一个PictureClip控件，窗体布局如图10.19所示。(3)设置对象属性，如表10.4所示。10.8.3 只播放一帧只播放一帧图10.1910.8.3 只播放一帧只播放一帧表10.410.8.3 只播放一帧只播放一帧(4)编写事件处理程序。u在代码窗口中输入以下程序：uPrivat

38、e Sub Command1_Click()u EnduEnd SubuPrivate Sub Form_Load()u Picture1.ScaleMode=3u PictureClip1.Rows=3u PictureClip1.Cols=5u Picture1.Picture=PictureClip1.GraphicCell(0)uEnd Sub10.8.3 只播放一帧只播放一帧uPrivate Sub HScroll1_Change()u Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)u Label1.Caption=

39、第 +Format(HScroll1.Value,00)+帧uEnd SubuPrivate Sub HScroll1_Scroll()u Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)u Label1.Caption=第 +Format(HScroll1.Value,00)+帧uEnd Sub10.8.3 只播放一帧只播放一帧(5)运行程序。u将文件存盘后运行。当拖动滑块时动画当前帧立即更换，如图10.20就是其中的一个画面。图10.2010.9 上机指导上机指导n10.9.1 播放播放CDn10.9.2 调节音量调节音量1

40、0.9.1 播放播放CDu设计CD播放器的具体操作如下：u(1)单击【文件】|【新建工程】命令，创建一个新工程。u(2)在窗体上创建16个命令按钮控件和一个标签控件。u(3)设置对象的属性，前15个命令按钮的name都是Command1，各按钮靠Index属性来区别。u(4)编写事件处理程序。在代码窗口中添加以下程序：10.9.1 10.9.1 播放播放播放播放CDCDu Option Explicitu Private Sub Command1_Click(Index As Integer)u playCD(Index+1)u End Subu Private Sub Command2_Cl

41、ick()u Endu End Subu Private Sub Form_Load()u Dim i As Integeru i=auxTest()u If i True Then 10.9.1 10.9.1 播放播放播放播放CDCDuMsgBox 对不起，没有检测到声卡，有可能不能欣赏CDu End Ifu End Subu(5)单击【工程】|【添加模块】命令，在项目窗口中添加一个模块图标。双击该模块图标，打开模块代码窗口，输入以下程序：u Declare Function mciSendString Lib winmm.dll Alias mciSendStringA(ByVal lps

42、trCommand As String,ByVal lpstrReturnString As String,ByVal uReturnLength As Long,ByVal hwndCallback As Long)As Long 10.9.1 10.9.1 播放播放播放播放CDCDuDeclare Function auxGetNumDevs Lib winmm.dll()As Longu Global Const SND_ASYNC=&H1u Global Const SND_NODEFAULT=&H2u Global Const SND_LOOP=&H8u Global Const S

43、ND_NOSTOP=&H10u Function auxTest()As Booleanu Dim i As Integeru i=auxGetNumDevs()u If i 0 Thenu auxTest=Trueu Elseu auxTest=Falseu End Ifu End Function 10.9.1 10.9.1 播放播放播放播放CDCDuSub playCD(b As Integer)u Dim a As Longu a=mciSendString(open cdaudio alias cd wait,0&,0,0)u a=mciSendString(set cd time

44、format tmsf,0&,0,0)u a=mciSendString(play cd from&Str(b),0&,0,0)u End Subu(6)运行程序，以“播放CD”为名存盘后运行程序，出现图10.21所示的界面，在光驱中放入一张CD音乐光盘，然后选择一首曲子开始播放。10.9.2 调节音量调节音量u在用Visual Basic编程的时候，通常要调用图片，如果图片出现的时候是以各种完美的效果出现的(如马赛克效果，百叶窗效果等)，那么程序就会显得更灵活、更专业化。图片淡入淡出示例程序讲述了在Visual Basic中如何调用API函数中的AlphaBlend和CopyMemory函数

45、实现图片淡入淡出效果的过程。具体的操作步骤参见书302页。10.10 习题习题u参见书p216页：一、选择题、二、填空题、三、判断改错题、四、简答题、五、操作题。三Q&A?Thanks!n9、静夜四无邻，荒居旧业贫。、静夜四无邻，荒居旧业贫。3月月-233月月-23Friday,March 31,2023n10、雨中黄叶树，灯下白头人。、雨中黄叶树，灯下白头人。05:20:0005:20:0005:203/31/2023 5:20:00 AMn11、以我独沈久，愧君相见频。、以我独沈久，愧君相见频。3月月-2305:20:0005:20Mar-2331-Mar-23n12、故人江海别，几度隔山

46、川。、故人江海别，几度隔山川。05:20:0005:20:0005:20Friday,March 31,2023n13、乍见翻疑梦，相悲各问年。、乍见翻疑梦，相悲各问年。3月月-233月月-2305:20:0005:20:00March 31,2023n14、他乡生白发，旧国见青山。、他乡生白发，旧国见青山。31 三月三月 20235:20:00 上午上午05:20:003月月-23n15、比不了得就不比，得不到的就不要。、比不了得就不比，得不到的就不要。三月三月 235:20 上午上午3月月-2305:20March 31,2023n16、行动出成果，工作出财富。、行动出成果，工作出财富。2

47、023/3/31 5:20:0005:20:0031 March 2023n17、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。5:20:00 上午上午5:20 上午上午05:20:003月月-23n9、没有失败，只有暂时停止成功！。、没有失败，只有暂时停止成功！。3月月-233月月-23Friday,March 31,2023n10、很多事情努力了未必有结果，但是不努力却什么改变也没有。、很多事情努力了未必有结果，但是不努力却什么改变也没有。05:20:0005:20:0005:203/31/2023 5

48、:20:00 AMn11、成功就是日复一日那一点点小小努力的积累。、成功就是日复一日那一点点小小努力的积累。3月月-2305:20:0005:20Mar-2331-Mar-23n12、世间成事，不求其绝对圆满，留一份不足，可得无限完美。、世间成事，不求其绝对圆满，留一份不足，可得无限完美。05:20:0005:20:0005:20Friday,March 31,2023n13、不知香积寺，数里入云峰。、不知香积寺，数里入云峰。3月月-233月月-2305:20:0005:20:00March 31,2023n14、意志坚强的人能把世界放在手中像泥块一样任意揉捏。、意志坚强的人能把世界放在手中像

49、泥块一样任意揉捏。31 三月三月 20235:20:00 上午上午05:20:003月月-23n15、楚塞三湘接，荆门九派通。、楚塞三湘接，荆门九派通。三月三月 235:20 上午上午3月月-2305:20March 31,2023n16、少年十五二十时，步行夺得胡马骑。、少年十五二十时，步行夺得胡马骑。2023/3/31 5:20:0005:20:0031 March 2023n17、空山新雨后，天气晚来秋。、空山新雨后，天气晚来秋。5:20:00 上午上午5:20 上午上午05:20:003月月-23n9、杨柳散和风，青山澹吾虑。、杨柳散和风，青山澹吾虑。3月月-233月月-23Frida

50、y,March 31,2023n10、阅读一切好书如同和过去最杰出的人谈话。、阅读一切好书如同和过去最杰出的人谈话。05:20:0005:20:0005:203/31/2023 5:20:00 AMn11、越是没有本领的就越加自命不凡。、越是没有本领的就越加自命不凡。3月月-2305:20:0005:20Mar-2331-Mar-23n12、越是无能的人，越喜欢挑剔别人的错儿。、越是无能的人，越喜欢挑剔别人的错儿。05:20:0005:20:0005:20Friday,March 31,2023n13、知人者智，自知者明。胜人者有力，自胜者强。、知人者智，自知者明。胜人者有力，自胜者强。3月月