用VB设计多媒体应用程序
- 格式：doc
- 大小：42.00 KB
- 文档页数：7
用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描述不同的设备类型：
属性值 设备类型
AVIVideo 视频音频设备
CDAud激光唱盘播放
MCI控件 MCI32.OCX对多媒体控制接口MCI设备的多媒体数据文件实施记录或回放，是通过一组按钮来发出各种设备控制命令，以实现对音频面板、MIDI音序器、CD-ROM驱动器、音频CD播放机、录像带播放、录音带录放等设备的控制。MCI32.OCX的控制按钮有：向前（Prev）、向后（Next）、播放（Play）、暂停（Pause）、返回（Back）、单步（Step）、停止（Stop）、记录（Record）和出带（Eject）。 io 设备
VideoDisc 可以使用程序控制的激光视盘机
DAT 数字化磁带音频播放机
Sequence MIDI音序发生器
DigitalVideo 动态数字视频图像设备
WaveAudio 播放数字化波形音频的设备
Overlay 模拟视频图像叠加设备
Other 未给出标准定义的MCI设备 应用程序对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、下面先以播放 .WAV（波形文件）文件为例，说明设计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等按钮操作波形文件*.WAV了。例如用鼠标点击Play键就能听到*.WAV的音效。 不难发现，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、播放AVI（音频视频接口）文件 电影（包括声音和图像）是现代化教学中应用最为广泛的媒体信息之一。下面以一个具体实例来说明如何播放AVI文件。假设用户当前目录下有名字为DEMO.AVI的视频音频文件，则可以利用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.AVI" MMControl1.DeviceType= =
"AVIVIDEO" 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
以上仅描述了利用多媒体控制部件播放音频文件（.WAV）、CD唱片和音频视频文件（.AVI）的操作过程。实际上利用多媒体控制部件同样可以播放动画文件（.FLI、.FLC）、MIDI文件等其他媒体信息。
五、结束语
广大教师在制作CAI课件时，利用Visual
Basic提供的多媒体控件MCI32.OCX，可以方便、快捷、高效地开发出各种多媒体应用程序。需要指出的是，用VB开发设计CAI多媒体应用程序，除了可以利用多媒体控件以外，还可以采用其他手段，如通过调用API函数等等，但对专业知识要求较高，所以这里不做讨论。
