西工大VB的课件

1、第12章 Visual Basic多媒体应用多媒体技术是计算机处理文本（text）、图像（image）、图形（graphic）、音频（audio）、视频（video）等多种信息的综合技术。它的出现使计算机在人类的文化娱乐活动中扮演了重要的角色，使越来越多的人和计算机交上了朋友。本章主要介绍多媒体控件、API函数、外部引用等方法，通过实例来介绍多媒体应用程序的开发。退出12.1 多媒体基础12.2 MCI命令和MMControl控件12.3 API函数12.4 引用外部功能编程12.1 多媒体基础VB6.0提供了媒体控制接口MCI（Media Control Interface）命令，让用户可以

2、方便地使用计算机中的多媒体设备；提供了访问Windows应用程序接口（API）的方法，通过调用API函数，可以使用许多Windows的高级功能。还可以通过引用外部程序如MStts（微软发音引擎）等，实现更多的多媒体功能。多媒体的音频和视频有多种格式。12.2 MCI命令和MMControl控件12.2.1 MCI命令MCI提供了许多与设备无关，由应用程序直接调用的命令。12.2.2 MMControl控件MMControl（Microsoft Multimedia Control）控件是一个用户和Windows多媒体系统之间的接口，是Visual Basic 6.0中进行多媒体设计的重要部件。

3、1MMControl控件的添加2MMControl控件的按钮功能3MMControl控件的常用属性12.2.3 MMControl控件的特有事件及编程步骤1事件2编程步骤（1）在工具箱中加载MMControl控件，并绘制到窗体中。（2）用MMControl控件的DeviceType属性设定多媒体设备类别。其值如表12-1所示。（3）用FileName属性指定多媒体文件。（4）用MMControl控件的Command属性控制多媒体设备。（5）编写相应特殊按钮的响应代码。（6）设备使用完毕后，注意用MMControl控件的Command属性的Close关闭设备。12.2.4 应用举例【例12.1】

4、制作一个简单的.wav文件播放器。在窗体上放置多媒体控制部件MMControl，运行界面如图12-2所示。以播放“c：windowsmedialogoff.wav”为例。程序代码如下： Private Sub Form_Load（） Form1.MMControl1.Notify = False Form1.MMControl1.Wait = True Form1.MMControl1.Shareable = False Form1.MMControl1.DeviceType = WaveAudio Form1.MMControl1.FileName = c：windowsmedialogof

5、f.wav Form1.MMControl1.Command = Open End Sub启动程序，点击播放按钮，就可以听到logoff.wav的声音效果了。12.3 API函数12.3.1 API函数简介所谓API就是“应用程序接口”（Application Programing Interface），它是一些由操作系统自身调用的函数。Windows API函数由许多“动态链接库”或DLL组成。在32位Windows中，核心的API DLL有：gdi32.dll：图形显示界面的API。kernel32.dll：处理低级任务（比如内存和任务管理）的API。user32.d11：处理窗口和消息（

6、Visual Basic程序员能把其中一些当作事件访问）的API。Winmm.dll：处理多媒体任务（如波形音频、MIDI音乐和数字影像等）的API。多媒体编程中主要使用的API函数就在这个链接库中。还不断有新的API出现，处理新的操作系统扩展，比如E-MAIL、联网和新的外设。12.3.2 API函数的说明由于Windows API函数不是Visual Basic的内部函数，所以在使用它们之前必须加以声明。说明API函数一般有两种方法：一种是使用说明语句，另一种是使用Win32api.txt中的说明文本复制到代码窗口中。下面先介绍说明语句，使读者对其中的主要关键字的意义有所了解，然后介绍VB

7、中访问Win32api.txt的方法。格式：Declare Function 函数名 Lib库名 Alias 别名（ByVal 参数1 As 类型，ByVal 参数n As 类型）As 函数类型。说明：（1）声明中的Lib 和 Alias 的意义（2）常见的API参数类型的说明（3）声明中ByVal的作用（4）API函数完整声明的简便方法访问步骤：首先打开“外接程序”菜单执行“外接程序管理器”命令，在“可用外接程序”框中选定VB6 API VIEWER，在“加载行为”复选框中选定“加载/卸载”，确定后在“外接程序”菜单中添加了“API浏览器”。API浏览器如图12-4所示。在“文件”菜单中执行

8、“加载文本文件”，出现打开文件对话框，如图12-5所示所示。选择Win32API.TXT在API浏览器中出现了可用项，选中需要声明的函数，把“选定项”中的文本复制到相应的模块（一般是.BAS标准模块或代码的通用说明部分），API函数的声明就完成了。由于API函数大多是由C+编制，而C+和VB的变量类型有很大差异，声明中如考虑不周很容易造成错误调用。因此，建议读者尽量使用API浏览器声明API函数。12.3.3 API多媒体函数应用举例【例12.3】 利用API函数制作CD播放器。在本例中使用mciExecute函数，首先添加标准模块写入声明使用该函数。 Public Declare Funct

9、ion mciExecute Lib winmm.dll _ Alias mciExecute（ByVal lpstrCommand As String）As Long界面设置如图12-6所示，各控件属性按图例修改Caption属性值。其它属性用默认值。 在窗体加载模块设置按钮属性 Private Sub Form_Load（） Command1.Enabled = True Command2.Enabled = False Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False Command6.E

10、nabled = True End Sub 打开媒体设备 Private Sub Command1_Click（） mciExecute open cdaudio alias cd Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Command5.Enabled = False End Sub 播放音乐 Private Sub Command2_Click（） mciExecute play cd Command2.Enabled = False

11、 Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False End Sub 停止 Private Sub Command3_Click（） mciExecute stop cd Command2.Enabled = True Command3.Enabled = False Command4.Enabled = True Command5.Enabled = True End Sub 倒回开头位置 Private Sub Command4_Click（） mciExecute seek cd to sta

12、rt Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False Command5.Enabled = True End Sub 弹出CD Private Sub Command5_Click（） If Command5.Caption = 弹碟 Then mciExecute seek cd door open Command5.Caption = 回位 Else mciExecute seek cd to close Command5.Caption =

13、 弹碟 End If Command1.Enabled = False Command2.Enabled = True Command3.Enabled = False Command4.Enabled = False End Sub 关闭设备及程序 Private Sub Command6_Click（） mciExecute close cd End End Sub 声道及声音控制 Private Sub Option1_Click（index As Integer） mciExecute set cd audio all off Select Case index Case 0 mciE

14、xecute set cd audio lift on Case 1 mciExecute set cd audio right on Case 2 mciExecute set cd audio all on mciExecute set cd audio lift on mciExecute set cd audio right on End Select End Sub12.4 引用外部功能编程12.4.1 MSTTS简介在VB中除了Windows的功能外，还可以调用外部的功能链接库。下面我们通过对英文发音引擎的调用，来介绍通过外部引用的方法进行多媒体编程。MSTTS是微软出品的一套文字朗读引擎（Microsoft Text-To-Speech Engine）。由两个文件组成（MSTTS.EXE和SPCHAPI.EXE），执行后在Windows文件夹下添加了一个Speech文件夹。它提供了全篇英文朗读功能。在Windows中安装MSTTS后，实质上就是添加了语音朗读功能和英文朗读API功能联接库（Microsoft Text-To-Speech Engine和 Microsoft Speech API 4.0），在VB中可以通过引用Speech文件夹下的Vtxtauto.tlb文件来实现英文朗