用VB设计多媒体应用程序

用VB设计多媒体应用程序
用VB设计多媒体应用程序
物理组董建勇
一、前言
Visual Basic是Microsoft公司开发的Windows应用程序开发工具。

由于它具有先进的面向对象和事件的程序设计方法、简洁高效的程序开发环境、控制媒体对象手段灵活多样等特点，受到了广大多媒体软件开发人员的青睐，也因此成为制作CAI多媒体课件的理想工具。

本文仅介绍用VB的多媒体控件MCI32.OCX设计多媒体应用程序的方法，希望能对初学用VB制作CAI课件的教师有所帮助。

二、VB的多媒体控件MCI32.OCX
MCI （媒体控制接口）是Microsoft公司为实现Windows系统下设备无关性而提供的媒体控制接口标准。

用户可以方便地使用MCI 控制标准的多媒体设备。

MCI提供了与设备无关的接口属性。

在一个窗体中可以同时操作多个MCI设备，通常应用程序是通过指定一个MCI设备类型来区分MCI设备的，设备类型指明了当前实际使用设备的物理类型，设备的类型可以用MCI控件MCI32.OCX的DeviceType属性来设置，这一命令的语法是：MMcontrol. DeviceType＝DeviceString 属性值DeviceString描述不同的设备类型：
MCI控件
MCI32.OCX对多媒体控制接口MCI设备的多媒体数据文件实施记录或回放，是通过一组按钮来发出各种设备控制命令，以实现对音频面板、MIDI音序器、CD-ROM驱动器、音频CD播放机、录像带播放、录音带录放等设备的控制。

MCI32.OCX的控制按钮有：向前（Prev）、向后（Next）、播放（Play）、暂停（Pause）、返回（Back）、单步（Step）、停止
（Stop）、记录（Record）和出带（Eject）。

应用程序对MCI32.OCX按钮的操作非常灵活方便，可以让用户直接操作控件的按钮，也可以在程序运行过程中用代码设置Command属性进行控制,这一命令的语法是：mand＝CmdString
属性值CmdString是如下可执行命令名:Open、Close、Play、Pause、Stop、Back、Step、Prev、Next、Seek、Record、Eject、Sound 和Save。

当程序运行到设置命令的代码，命令将立刻执行。

三、多媒体控件MCI32.OCX的调用
在Visual Basic5.0专业版中，多媒体控件MCI32.OCX是作为可选用部件提供的。

要使用它，首先要执行“工程—部件”菜单命令，在Available Controls列表框中选中Microsoft Multimedia Controls 6.0，就会在工具箱中出现MCI32.OCX图标。

双击工具箱中的多媒体控件MCI32.OCX 图标，调用MCI32.OCX控件，窗体FORM 中出现一排灰色的媒体控制按钮。

四、设计多媒体应用程序
1、下面先以播放.WA V（波形文件）文件为例，说明设计VB多媒体应用程序的步骤。

首先，创建一个窗体（Form），装入多媒体控件MCI32.OCX，双击工具箱中的MCI32.OCX图标，窗体上显示出形状类似录音机的控制按钮，但此时多媒体控件还不能工作（各按钮呈灰色），须通过程序代码来改变按钮的状态。

其次，在Form_Load过程中，插入相应程序代码。

Sub Form_Load( )
MMControl1.Notify=False
MMControl1.Wait=True
MMControl1.DeviceType="WaveAudio"
‘设置多媒体设备的属性
MMControl1.FileName="c:windows Mmdatademo.wav"
‘设置待播放的媒体文件
mand="Open"
‘打开媒体设备
End Sub
运行上述程序，控制按钮呈黑色，这时就可以使用Play、Record等按钮操作波形文件*.WA V了。

例如用鼠标点击Play键就能听到*.WA V的音效。

不难发现，Visual Basic利用MCI32.OCX 设计多媒体应用程序很容易掌握。

2、CD播放器
调入MCI32.OCX控件后，把下面的代码加入到相应事件中：
Sub Form_Load ( )
MMControl1.DeviceType = “CDaudio"
‘MCI设备类型为CD唱片
mand = “open"
End Sub
Sub Form_Unload(Cancel As Integer)
mand = “close"
‘退出时关闭MCI设备
End Sub
在CD驱动器中放入一张CD唱片，然后运行，将发现九个按钮中Prev、Next、Play、Eject 四个按钮变黑（有效状态），点一下Play按钮，音乐出来了！若驱动器中无CD盘则所有按钮都处于无效状态。

这样一个简易CD播放器就完成了。

3、播放A VI（音频视频接口）文件
电影（包括声音和图像）是现代化教学中应
用最为广泛的媒体信息之一。

下面以一个具体实例来说明如何播放A VI文件。

假设用户当前目录下有名字为DEMO.A VI的视频音频文件，则可以利用VB播放该影片。

（1）在Visual Basic的窗体中加入一个MCI32.OCX多媒体控件、一个PictureBox图片框控件和两个ComandButton命令按钮部件；
（2）设置各个控件的属性，其中窗体命名为Form1，MCI32.OCX多媒体控件命名为MMControl1、PictureBox图片框控件命名为Picture1、两个ComandButton命令按钮控件分别命名为Play和Close；
（3）编写各触发事件源程序代码并且运行。

源程序代码为：
Private Sub Play_Click()
MMControl1.Filename = "DEMO.A VI"
MMControl1.DeviceType= = "A VIVIDEO"
MMControl1.hWndDisplay = Picture1.hWnd
mand = "OPEN"
MMControl1.To = 1
mand = "SEEK"
mand = "PLAY"
End Sub
Private Sub Close_Click()
mand = "STOP"
mand = "CLOSE"
End Sub
以上仅描述了利用多媒体控制部件播放音频文件（.WA V）、CD唱片和音频视频文件
（.A VI）的操作过程。

实际上利用多媒体控制部件同样可以播放动画文件（.FLI、.FLC）、MIDI文件等其他媒体信息。

五、结束语
广大教师在制作CAI课件时，利用Visual Basic提供的多媒体控件MCI32.OCX，可以方便、快捷、高效地开发出各种多媒体应用程序。

需要指出的是，用VB开发设计CAI多媒体应用程序，除了可以利用多媒体控件以外，还可以采用其他手段，如通过调用API函数等等，但对专业知识要求较高，所以这里不做讨论。