用VB进行多媒体程序设计初步 VB(Visual Basic)具有很强的多媒体处理控制功能，VB的多媒体控制MCI
(Media control interface)包括一套控制音频和视频设备但具有与设备无关的
命令，用它来进行多媒体设计是很方便的。比如：你也许想拥有一个自己
编写的CD播放器，那么利用VB的MCI只需写几行代码就可生成一个功能
比较齐全的CD播放器。下面简单谈谈用VB的MCI进行多媒体设计的初步
知识并给出一个非常简单的CD播放器的例子。在使用MCI之前必须安装好
多媒体设备如声卡、CD—ROM等以及这些设备的驱动程序，否则MCI将
不听指挥。
一、MCI控制的安装
MCI控制在VB不同版本中的安装方法是不一样的。在VB 3.0专业版中，
MCI控制文件为MCI.VBX，在VB 4.0中MCI控制文件为MCI16.OCX
(16位)、MCI32.OCX(32位)。一般情况下MCI控制在启动VB之后并没有
加入到工具箱中(TOOLBOX)，需要自己动手安装它。1.VB 3.0中MCI的
安装。打开VB的FILE菜单，选择Add File项，从Windows\system目录下找
到MCI.VBX，选择OK即可，这时你将发现TOOLBOX最后又多了一个工具，
这就是MCI。如果你经常要用它，建议在VB目录下找到Autoload.mak文件，
用字处理软件打开它，把MCI.VBX添加在其中，这样每次启动VB时就将其
自动调入。2.VB 4.0中MCI的安装。VB 4.0支持16位和32位两种系统，在
WINDOWS 3.1下只能使用16位系统。MCI不能和VB 3.0中一样用Add File
调入，如果你这样做将会发现系统提示错误，需在Autoload.mak文件中调入。
笔者打开Autoload.mak文件后发现调用格式为：OBJECT={序列号}＃1.0＃0;
文件名，不知道MCI16.OCX的序列号是无法安装的。幸好在VB目录下的子
目录SAMPLE下有一个MCI的子目录，进入它可以看到有一个MCITEST.MAK
文件，打开它可以看到有：Object={C1A8AF28－1257－101B－8FB0－0020AF039CA3}
＃1.0＃0;MCI32.OCX一行（也许您的序列号不一定和这相同），将这
一行复制到Autoload.mak文件中即可。由于本人使用的是WINDOWS 3.1，在安装
VB 4.0时32位系统无法装入，硬盘中根本没有MCI32.OCX文件，VB何以将
MCI32.OCX调入呢？经试验发现VB以序列号选择文件，可能上述序列号是
MCI16.OCX文件的序列号，进一步试验发现即使将序列号后面的MCI32.OCX
去掉也可调入，这进一步说明了VB 4.0中一个OCX文件有一个对应的序
列号，因此绝对不能改变序列号，否则将无法正确调入所需的文件。
MCI安装完毕，用鼠标双击工具箱的MCI图标，如果在Form中出现9个
熟悉的按扭，那么安装就成功了。
二、MCI的属性和事件
MCI提供许多关于MCI控制方面的属性和事件。
比较常用的属性有：
Button visible 决定该按钮在MCI控制中是否可见。
Command 要执行的MCI命令，如Open Close Play Stop Eject等。
Device Type 要打开的MCI设备类型，如动画播放设备、MIDI序列发生器、
激光视盘机、WAV文件播放器、录相机等。
Filename 使用Open命令打开或Save命令保存的文件名。
Length 确定一个文件或CD唱片的长度。
Track 指定特定的轨道，供Tracklength和Trackposition使用。
Tracks 当前MCI设备的轨道数。
Tracklength 在当前时间格式下，传回Track所指轨道的时间长度。
Trackposition 在当前时间格式下，传回Track所指轨道的起始位置。
Visible 决定在运行时刻多媒体MCI控制是否可见。
比较常用的事件有：
Buttonclick 当用户在多媒体MCI控制的按钮上按下或释放鼠标时产生该事件，
每一个Buttonclick事件缺省执行一个MCI命令。
Buttoncompleted 当多媒体MCI控制按钮激活的MCI命令完成后发送。
Statusupdate 这个事件可监测目前多媒体设备的状态信息，比如用滚动条来表示
当前轨道的位置。
详细的属性和事件的用法请参看控制帮助文件。
三、CD播放器的例子
对初学者来说，能利用入门知识编写一个的成功小程序是很鼓舞人心的，
下面我们来编写一个非常简单的例子：迷你CD播放器。
在MCI调入Toolbox之后，双击MCI工具，将会在Form中出现9个按钮，
用鼠标移动这些按钮至合适的位置，然后双击Form窗体，把下面的代码加入
到事件中：
Sub Form_Load()
MMControl1.DeviceType = “CDaudio" 'MCI设备类型为CD唱片
MMControl1.Command = “open" '打开设备
End Sub
Sub Form_Unload(Cancel As Integer)
MMControl1.Command = “close" '退出时关闭MCI设备
End Sub
保存文件，在CD驱动器中放入一张CD唱片，然后运行，你将发现九个按钮中
Prev、Next、Play、Eject四个按钮变黑（有效状态），点一下Play按钮，
音乐出来了！若驱动器中无CD盘则所有按钮都处于无效状态。这样一个简易
CD播放器就完成了，它具有四种功能，但自己动手写的代码只有上面加注释
的三行。这个CD播放器有点太简单了，下面就看你的了，你可以加入一些文
字信息如开发时间、作者、版权等，再进一步学习MCI可加入其他功能如显
示播放时间、曲目等。
|
