多媒体技术与应用教程之多媒体程序设计(ppt 65页).ppt

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

2、asic程序中使用图像 10.4 在Visual Basic程序中使用动画 10.5 在Visual Basic程序中使用声音 10.6 在Visual Basic程序中使用视频 10.7 在Visual Basic程序中调用电子幻灯片 10.8 其他实例 10.9 上机指导 10.10 习题,10.1 Visual Basic简介,10.1.1 Visual Basic基本特点 10.1.2 Visual Basic设计界面 10.1.3 用Visual Basic开发应用程序,10.1.1 Visual Basic基本特点,Visual Basic由Basic语言发展而来，是高级程序设计语

3、言。“Visual”是指可视化的图形用户界面(GUI)。Visual Basic是对Basic语言的扩充，既保留了Basic语言简单易用的优点，又充分利用了Windows的图形环境，提供了崭新的可视化设计工具。,10.1.2 Visual Basic设计界面,启动Visual Basic 6.0时，首先可以看到【新建工程】对话框。 根据需要选择一种开始方式，通常选择“标准.EXE”方式，单击【打开】按钮，即可进入Visual Basic集成开发环境，其基本界面。 Visual Basic 6.0集成开发环境(IDE)主要由菜单条、工具栏、工具箱、窗体设计器、工程管理器和属性窗口等部分组成。,1

4、0.1.3 用Visual Basic开发应用程序,1. 创建应用程序的主要步骤 (1)创建应用程序界面 (2)设置界面上各个对象的属性 (3)编写对象响应的程序代码 (4)保存工程 (5)运行和调试程序 (6) 生成可执行程序,10.1.3 用Visual Basic开发应用程序,2. 程序打包 为了保存和安装方便，Visual Basic语言提供了程序打包功能。当Visual Basic源程序编制完成后，应编译可执行的.exe文件，并制作安装文件setup.exe。安装文件把程序中用到的.dll文件、.vbx文件、.ocx文件等压缩到硬盘指定的文件夹中，这个过程称为“程序打包”。打包后的程

5、序可记录在CD-R或CD-RW光盘上。需要使用时，可以运行光盘上的“setup.exe”安装文件，Visual Basic程序以及相关的文件就可以自动装入硬盘中。,10.2 与多媒体有关的控件,10.2.1 Visual Basic的控件简介 10.2.2 Animation控件和Multimedia控件 10.2.3 Animation控件的使用,10.2.1 Visual Basic的控件简介,Visual Basic的控件可以分为内部控件、ActiveX控件和可插入控件3类。内部控件是Visual Basic本身提供的控件，这些控件显示在控件箱中。ActiveX控件是Visual Bas

6、ic控件箱的扩充部分，这些控件在使用前必须添加到工具箱内，可插入控件是由其他应用程序创建的对象。利用可插入对象，可以在Visual Basic应用程序中使用其他应用程序的对象。,10.2.2 Animation控件和Multimedia控件,与多媒体有关的控件主要有Animation和Multimedia控件。 1. Animation控件 Animation控件用于播放简单的动画，有声音的.avi文件不能在Animation控件中使用，如果试图装载这样的文件将会产生错误。该控件是Active X控件，并不是Visual Basic标准.exe格式的控件，因此要想使用它，应该通过单击【工程】|

7、【部件】(ProjectComponents) 命令添加Microsoft Windows Common Controls-2 6.0控件，或直接建立“VB专业版”控件或“VB企业版”控件。添加Animation 控件后的控件箱如图10.3所示。 图10.3,10.2.2 Animation控件和Multimedia控件,2. Multimedia控件 Multimedia控件是一组按钮，用来向声卡、MIDI序列发生器、CD-ROM驱动器、视频CD播放器和视频磁带记录器等设备发出MCI命令。MCI设备还支持Windows视频文件的回放。,10.2.3 Animation控件的使用,Animat

8、ion控件和Multimedia控件都是开发多媒体应用程序时经常使用的两个控件，而在播放音频、视频文件时较多使用Multimedia控件，这里先介绍Animation控件的简单使用，对于Multimedia控件，将在以后的几节中详细介绍其使用方法。下面先介绍使用Animation控件播放.avi文件实现类似Windows中文件删除应用程序的例子。 新建一个工程，在窗体中添加两个按钮：Command1和Command2，将其属性设置为【开始】和【停止】，分别用于开始和停止播放。再添加一个Animation控件(Animation1)和一个标签控件Label1，其属性设置为【删除文件】。,10.3

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

10、只是其中的一小部分，可以在图像中把动画的那一小部分截取下来，作为小动画的背景。利用动画制作软件，在截取的背景上制作动画。然后，在Visual Basic中，选择Image工具调入图像，使用Animation控件调入动画。仔细调整动画在图像上的位置，使动画恰好位于截取背景的那个区域。,10.4 在Visual Basic程序中使用动画,10.4.1 实现动画的几种方法 10.4.2 在Visual Basic中制作动画 10.4.3 几种不同格式动画的播放,10.4.1 实现动画的几种方法,1. 制作动画的几种方法 利用定时器控件，其实质是每隔一段时间间隔移动一次图形或每隔一段时间间隔重新绘制图

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

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

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

14、te Sub cmdOpen_Click() CmdDlg.ShowOpen 打开按钮代码 skFlash.Movie = CmdDlg.FileName End Sub,10.4.3 几种不同格式动画的播放,Private Sub cmdPlay_Click() skFlash.Play 播放按钮代码 End Sub Private Sub cmdRewind_Click() skFlash.Rewind 重头播放按钮代码 skFlash.Play End Sub Private Sub cmdStop_Click() skFlash.Stop 停止按钮代码 图10.8 End Sub (6

15、)运行程序。程序运行画面如图10.8所示。,10.4.3 几种不同格式动画的播放,2. 使用WebBrowser控件播放GIF动画 (1)由于WebBrowser控件并不是Visual Basic的基本控件，因此在使用该控件之前必须先将其装入工具箱中。装入方法为：在工具箱中单击鼠标右键，选择【部件】选项，选中Microsoft Internet Controls复选框，然后单击【确定】按钮即可。 (2)选取WebBrowser控件(注意，不同版本IE的WebBrowser控件的图标是不同的，IE 4.0及以上版本中的WebBrowser控件的图标是一个地球；IE 3.0是一个搜索图标)，添加到

16、窗体的相应位置上。 (3)设计相应代码，通过使用WebBrowser控件的Navigate方法播放GIF动画文件。 3. 播放FLC格式动画 播放 .flc 动画文件的方法与 .wav 和.midi 并没有不同，在此不再详细介绍。,10.5 在Visual Basic程序中使用声音,10.5.1 Windows高级音频函数 10.5.2 多媒体MCI控件 10.5.3 利用OLE控件播放WAV声音文件 10.5.4 利用API函数播放WAV声音文件,10.5.1 Windows高级音频函数,采用Windows提供的高级音频函数可以播放声音，常用于简单声音，例如报警声、简短的语音提示和标志性音乐

17、片段等。播放声音的高级音频函数有： MessageBeep函数，主要用于启动计算机内扬声器播放报警音响。 SndPlaySound函数，主要用于播放器数据量小于100KB的波形音频文件。 PlaySound函数，主要在32b的应用程序中播放波形音频文件。 上述3种函数的作用是促使计算机内扬声器发声，不需要使用MCI设备。另外不支持MIDI音频信号的播放。,10.5.2 多媒体MCI控件,1. 使用播放控制按钮播放声音 当在窗体上添加了播放控制按钮后，属性栏中的Name项自动定义为MMControl1。播放控制按钮包括播放、停止、暂停、录音等9个按钮，可以根据实际需要决定在界面上显示的按钮。 2

18、. 使用程序播放声音 在制作多媒体产品时，一般不在界面上使用声音控制按钮，而是通过程序对声音进行灵活的控制，操作的具体方法和使用播放控制器播放声音类似，只有两点不同： 首先把声音按钮的Visible属性设置为False，使其不可见。 在程序中安排控制命令，实现对声音的控制。,10.5.3 利用OLE控件播放WAV声音文件,建立一个窗体，用鼠标选择OLE控件，在窗体上拖出OLE区域，打开如图10.11所示的窗口。在该窗口中选择新建对象的类型，然后单击【确定】按钮完成在窗口中添加OLE控件的操作。添加OLE控件后的窗体。 这样就可以在OLE控件的ResourceDoc属性中选择所要播放的文件。要运

19、行程序只需双击OLE控件即可。,10.5.4 利用API函数播放WAV声音文件,在窗体的DECLARATIONS(声明)区域中输入如下代码： Private Declare Function sndPlaySound Lib winmm.dll Alias sndPlaySoundA (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long lpszSoundName是一个字符串变量，表示一个WAV格式的文件名。 uFlags 用于设定播放状态的各种选项。参数值为0X00时，实现同步播放，参数值为0X01时实现非同步播放。,10

20、.5.4 利用API函数播放WAV声音文件,在命令按钮的单击事件中输入如下代码： Private Sub Command1_Click() Dim plays As Long plays = sndPlaySound(G:调节音量21秒音乐.WAV, &H0) End Sub 运行时单击命令按钮即可播放WAV文件。,10.6 在Visual Basic程序中使用视频,10.6.1 视频信号处理 10.6.2 多媒体MCI控件 10.6.3 使用OLE控件播放视频文件,10.6.1 视频信号处理,视频信号的处理原则是： 尽量截取重要内容，省略多余部分，以便减少数据量。 采用AVI文件格式保存视频

21、信号。 充分考虑多媒体产品存储介质的容量，确定使用视频文件的数量。,10.6.2 多媒体MCI控件,在Visual Basic语言中，使用MCI控件播放视频文件可以通过定义播放区域播放，也可以不定义播放区域，系统会自动打开一个播放窗口进行播放。 1. 不定义播放区域 具体操作步骤如下： (1)通过菜单在工具箱中添加MMC控件。 (2)设置对象属性：将表单保持自动命名，将其Caption属性修改为【播放视频】。 (3)输入程序。 (4)运行程序，存盘后运行程序，出现视频影片，单击播放按钮，开始播放影片。,10.6.2 多媒体MCI控件,2. 定义播放区域 具体步骤如下： (1)通过菜单在工具箱中

22、添加MMC控件。 (2)建立视频播放对象首先利用工具箱中的MMControl工具建立一个播放视频信号的对象。该对象被自动命名为“MMControl”。 (3)使用工具箱中的PictureBox工具，建立一个播放视频信号的区域，该区域被自动命名为Picturel。 (4)编写程序。程序中主要包括以下几个部分： 控制按钮处理 建立对象后，产生一组控制按钮，按钮的个数和功能与播放声音时相同。如果希望隐藏按钮，则在程序中定义包括“播放”在内的多种控制功能，并应把各按钮的Visible属性设置成False。,10.6.2 多媒体MCI控件,定义视频播放 用MMContuol1.Device=AVIVid

23、eo语句把播放类型定义为视频信号，该语句非常重要，否则MCI控件无法播放视频信号。 指定播放文件 用MMControl1.filename=路径文件名语句指定文件路径和名字。 定义视频播放区域用MMControl1.hWndDisplay=picture1.hWnd语句将Picture1区域定义在播放视频信号的区域。 控制视频文件可使用MMControl1.Command=Open语句打开视频文件，至于播放或其他控制可使用MMControl1.Command=命令参数语句发出播放或其他命令。,10.6.3 使用OLE控件播放视频文件,使用OLE控件播放AVI格式的视频文件时，将自动打开一个播放

24、窗口播放视频信号。 首先用OLE工具创建一个矩形。在随后显示的Insert Object画面中，选中【建立文件关联】复选框，再单击Browse按钮，找到需要运行的视频文件。选中【链接】和【显示为图标】两个复选框，使其有效。最后单击OK按钮，在窗口中将出现OLE图标和视频文件名。,10.7 在Visual Basic程序中调用电子幻灯片,10.7.1 电子幻灯片 10.7.2 建立连接,10.7.1 电子幻灯片,1.文件格式 通常，电子幻灯片的默认保存类型是“演示文稿”，文件扩展名为“.ppt”。如果用鼠标双击该文件，则启动PowerPoint软件，自动进入幻灯片的编辑状态。为了和Visual

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

26、再选择【链接】和【显示为图标】两个复选框，使其有效。最后单击OK按钮。在窗口界面上随之出现OLE图标和对应的电子幻灯片文件名。 (3)运行程序时，用鼠标双击OLE图标即可启动对应的电子幻灯片文件，并进入演示状态。在电子幻灯片演示结束或者按Esc键后，返回程序状态。,10.8 其他实例,10.8.1 调节音量 10.8.2 用Visual Basic设计VCD播放器 10.8.3 只播放一帧,10.8.1 调节音量,本例通过API调用来实现对扬声器音量的控制。具体操作步骤如下： (1)单击【文件】|【新建工程】命令，创建一个新工程。 (2)在窗体上添加8个命令控件和一个标签控件，整体布局如图10

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

28、 As Long) As Long Private Declare Function waveOutGetVolume Lib winmm.dll (ByVal uDeviceID As Long, lpdwVolume As Long) As Long,10.8.1 调节音量,Private Declare Function waveOutSetVolume Lib winmm.dll (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long Dim savVol Private Sub Command1_Click() i = wa

29、veOutSetVolume(0, 0) End Sub Private Sub Command2_Click() i = waveOutSetVolume(0, &HFF00) End Sub Private Sub Command3_Click() i = waveOutSetVolume(0, &HFF) End Sub,10.8.1 调节音量,Private Sub Command4_Click() i = waveOutSetVolume(0, &HFFFF) End Sub Private Sub Command5_Click() x = waveOutGetVolume(0, 0

30、) - &H808 i = waveOutSetVolume(0, x) End Sub Private Sub Command6_Click() x = waveOutGetVolume(0, 0) + &H808 i = waveOutSetVolume(0, x) End Sub Private Sub Command7_Click() i = waveOutSetVolume(0, savVol) End Sub,10.8.1 调节音量,Private Sub Command8_Click() End End Sub Private Sub Form_Load() Me.Show sa

31、vVol = &H4F4F i = waveOutSetVolume(0, savVol) k = App.Path + 21秒音乐.wav Label1.Caption = 音乐文件名： + k l = &H1 Or &H2 i = sndPlaySound(k, l) End Sub,10.8.2 用Visual Basic设计VCD播放器,具体操作步骤如下： (1) 在Visual Basic中建立一个新窗口, 加入多媒体部件Microsoft Multimedia Control 6.0以及对话框部件Microsoft Common Dialog Control 6.0。 (2)在窗体

32、中添加 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”, InitDi

33、r 属性设为“G:MPEGAV”(假设光驱盘符为G)。,10.8.2 用Visual Basic设计VCD播放器,(4)编写代码。 在代码窗口中输入如下程序: Option Explicit Private Sub Form_Load() Dim Response As Integer MMControl1.DeviceType = MPEGVideo CommonDialog1.ShowOpen 通过对话框选择不同的VCD文件 MMControl1.filename = CommonDialog1.filename 选定要播放的文件 MMControl1.Command = Open MMC

34、ontrol1.Command = Play End Sub,10.8.2 用Visual Basic设计VCD播放器,Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = close End Sub Private Sub MMControl1_BackClick(Cancel As Integer) 对Back按钮的功能改进 Dim i As Integer i = MMControl1.Position - 100 数值100为后退量,可适当调整 If i 0 Then MMControl1.From=0,10.8

35、.2 用Visual Basic设计VCD播放器,Else MMControl1.From=i End If MMControl1.Command=Play End Sub Private Sub MMControl1_StepClick(Cancel As Integer) 对Step按钮的功能改进 Dim j As Integer j=MMControl1.Position + 100 数值100为前进量,可适当调整 If j MMControl1.Length Then MMControl1.From = MMControl1.Length,10.8.2 用Visual Basic设计V

36、CD播放器,Else MMControl1.From = j End If MMControl1.Command = Play End Sub 调整好窗体的标题、图标、颜色等，然后编译成.EXE文件，就可以在Windows下拥有自己的VCD播放器了。,10.8.3 只播放一帧,利用PictureClip控件可以实现观看动画中任意一帧的功能。具体操作如下： (1)新建一个工程。 (2)在窗体上创建一个命令按钮控件、一个水平滚动条控件、一个标签控件、一个图片框控件和一个PictureClip控件，窗体布局如图10.19所示。 (3)设置对象属性，如表10.4所示。,10.8.3 只播放一帧,图10

37、.19,10.8.3 只播放一帧,表10.4,10.8.3 只播放一帧,(4)编写事件处理程序。 在代码窗口中输入以下程序： Private Sub Command1_Click() End End Sub Private Sub Form_Load() Picture1.ScaleMode = 3 PictureClip1.Rows = 3 PictureClip1.Cols = 5 Picture1.Picture = PictureClip1.GraphicCell(0) End Sub,10.8.3 只播放一帧,Private Sub HScroll1_Change() Picture

38、1.Picture = PictureClip1.GraphicCell(HScroll1.Value) Label1.Caption = 第 + Format(HScroll1.Value, 00) + 帧 End Sub Private Sub HScroll1_Scroll() Picture1.Picture = PictureClip1.GraphicCell(HScroll1.Value) Label1.Caption = 第 + Format(HScroll1.Value, 00) + 帧 End Sub,10.8.3 只播放一帧,(5)运行程序。 将文件存盘后运行。当拖动滑块时

39、动画当前帧立即更换，如图10.20就是其中的一个画面。 图10.20,10.9 上机指导,10.9.1 播放CD 10.9.2 调节音量,10.9.1 播放CD,设计CD播放器的具体操作如下： (1)单击【文件】|【新建工程】命令，创建一个新工程。 (2)在窗体上创建16个命令按钮控件和一个标签控件。 (3)设置对象的属性，前15个命令按钮的name都是Command1，各按钮靠Index属性来区别。 (4)编写事件处理程序。在代码窗口中添加以下程序：,10.9.1 播放CD,Option Explicit Private Sub Command1_Click(Index As Integer) playCD (Index +