利用VB进行多媒体程序设计初步

VB(Visual Basic)具有强大的多媒体处理控制功能。VB的多媒体控件MCI(媒体控制接口)包含了一组控制音视频设备但与设备无关的命令。用它进行多媒体设计非常方便。比如你想拥有一个自己编写的CD播放器，只需要写几行代码
，就可以用VB的MCI生成一个功能齐全的CD播放器。下面简单讲一下用VB的MCI进行多媒体设计的初步知识，举一个非常简单的CD播放器的例子。
在使用MCI之前，您必须安装许多媒体设备，如声卡、光盘等。，以及这些设备的驱动程序，否则MCI将不会遵循说明。
一、MCI控件的安装
在不同版本的VB中，MCI控件的安装方法是不同的。在VB 3.0专业版中，MCI控制文件是MCI。VBX，而在VB 4.0中，MCI控制文件是MCI16。OCX(16位)和MCI32。OCX
(32位)。一般启动VB后不会在工具箱中添加MCI控件，需要自己安装。
1。在VB 3.0中安装MCI。打开VB的文件菜单，选择添加文件项，找到MCI。从windows系统目录中选择VBX，然后选择确定。最后，考试多了一个工具。大提示工具箱，也就是MCI。如果经常使用，建议在VB目录下找到Autoload.mak文件，用文字处理软件打开，添加MCI。VBX给它，这样它会在你每次启动VB时自动调入。
2。在VB 4.0中安装MCI。VB 4.0支持16位和32位系统，WINDOWS 3.1下只能使用16位系统。不能像在VB 3.0中那样用Add File调用MCI。如果这样做，会发现系统提示错误，所以需要调用Autoload.mak文件。打开Autoload.mak文件后，笔者发现调用格式为:OBJECT={序列号} # 1.0 # 0；文件名，不知道MCI16的序列号是无法安装的。OCX幸运的是，在VB目录下的SAMPLE下有一个MCI子目录。当你输入它，你可以看到一个MCITEST。MAK文件。打开后可以看到:object = { C1 A8 af 28-1257-101 b-8fb 0-0020 af 039 ca 3 } # 1.0 # 0；32.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图标。如果表单中出现9个熟悉的按钮，则安装成功。
二。MCI的属性和事件
MCI提供了许多关于MCI控件的属性和事件。常用的属性有:
Button visible确定按钮在MCI控件中是否可见。
Command要执行的MCI命令，如打开关闭播放停止弹出等。
Device Type要打开的MCI设备的类型，如动画播放设备、MIDI音序器、激光光盘播放器、WAV文件播放器、录像机等。
Filename由open命令打开或由save命令保存的文件名。
Length确定文件或CD的长度。
Track为Tracklength和Trackposition指定特定的轨道。
跟踪当前MCI设备的磁道数。
Tracklength，当前时间格式，返回Track指向的曲目的时间长度。
Trackposition在当前时间格式下，返回Track指向的曲目的起始位置。
Visible确定多媒体MCI控件在运行时是否可见。
常用的事件有:
Buttonclick当用户在多媒体MCI控制的按钮上按下或释放鼠标时生成该事件。
默认情况下，每个按钮单击事件都会执行一个MCI命令。
当由多媒体MCI控制按钮激活的MCI命令完成时，发送Buttoncompleted。
Statusupdate该事件可以监视当前多媒体设备的状态信息，例如使用滚动条来指示当前曲目的位置。关于属性和事件的详细用法，请参考控制帮助文件。
三。CD播放器的例子
对于初学者来说，能够用基础知识写出一个成功的小程序是非常鼓舞人心的。我们来写一个很简单的例子:迷你CD机。MCI被调入工具箱后，双击MCI工具，表单中将出现9个按钮。用鼠标将这些按钮移动到适当的位置，然后双击表单。将以下代码添加到该事件中:[/Br/]subform _ load()[/Br/]mm control 1 . device type = " CD audio " ' MCI设备类型是CD记录
mmcontrol1.command = "open " '打开设备
End Sub[/ Br/]subform _ unload(作为整数取消)[/Br/]mm control 1 . command = " Close " '退出时关闭MCI设备[/Br/]End Sub[/Br/]保存文件，将CD记录放入CD驱动器中，然后你会在九个按钮中找到上一页、弹出、播放和播放。如果驱动器中没有CD，所有按钮都处于无效状态。这么简单的CD机就完成了。它有四个功能，但是自己写的代码只有三行，上面有注释。这台激光唱机有点太简单了。考不考由你自己决定。可以添加一些文字信息如开发时间，作者，版权等。，然后进一步学习MCI添加其他功能如显示播放时间和曲目等。