Visual Basic6多媒体设计小结

前言

　　随着计算机技术、信息技术的发展，多媒体已经成为计算机应用所涉及到的一个十分重要的领域，各种图像、声音处理技术层出不穷，使人感到应接不暇。对于当前广泛流行的多媒体文件，如WAVE、AVI、MPEG等，如何通过代码来播放它们，为开发的应用程序添加信息量是每一个程序员必须面对的课题。虽然上述这些多媒体文件格式复杂，但是它们的实现原理并不需要我们掌握，并不需要我们从底层来开发解码程序来实现它们的播放，我们完全可以利用Visual Basic 提供的各种控件、Windows提供的API函数来实现多媒体文件的播放。为此，本文介绍了一些播放多媒体文件的常用方法，希望能够对爱好Visual Basic编程的朋友们有所帮助。

　　一、OLE控制方法

　　Visual Basic的标准工具箱中有一个OLE 控件, 将它放在程序的窗口上后会弹出一个窗口，该窗口列出了所有可以链接或嵌入到OLE控件中的对象，其中就包括了如声音、MIDI音乐、视频等各种多媒体格式，此时可选择"新建"或"由文件创建"将多媒体文件作为对象嵌入到OLE控件中来，然后在相应的代码部分添加 OLE1.Verb=0（verb取不同的值OLE控件将采取不同的动作）来直接实现多媒体的播放。这样程序经过编译运行后就会调用与嵌入或链接对象所对应的多媒体播放器播放该对象。虽然上述方法实现起来十分简单，但是笔者并不推荐它，因为该方法要调用另外的程序，破坏了应用程序和谐统一的界面效果，而且它的运行速度也很慢。

　　二、MMControl控件方法

　　MMControl 是一个专用的多媒体控件, 使用过程中要通过"工程\部件"菜单打开选择窗口, 并选中 "MICROSOFT MULTIMEDIA CONTROL6.0"项，这样才能在工具箱中出现"MM CONTROL"图标，在应用程序中添加该控件后，需要再添加代码来指定媒体对象、打开媒体对象、控制媒体对象等。MMControl控件的成员变量DeviceType表示要打开的 MCI 设备的类型，它可以为：AVIVideo、CDAudio、DAT、DigitalVideo、MMMovie、其它、Overlay、扫描仪、序列发生器、VCR、视盘或 WaveAudio等。

　　用户从 Multimedia MCI 控件选取按钮之前，应用程序必须先将 MCI 设备打开，并在 Multimedia MCI 控件上启用适当的按钮。在 Visual Basic 中，应将 MCI Open 命令放到 Form_Load 事件中。例如要播放一个WAV文件, 可用鼠标点亮此MCI图标,并在FROM1 窗体中绘制一个长方形的区域, 此时一组功能齐全的播放按钮出现在窗口中, 然后双击窗体空白处, 打开 From1 的代码窗口, 此时输入以下命令：

MMControl1.DeviceType = "WaveAudio" MMControl1.FileName = "d:\sound.wav" MMControl1.Command = "open"

　　为了正确管理多媒体资源，在退出应用程序之前，应该关闭那些已经打开的 MCI 设备。将下面的语句放到 Form_Unload 过程，那么在退出包含MMControl控件的窗体之前，就可以关闭那些已经打开的 MCI 设备。

Private Sub Form_Unload (Cancel As Integer) MMControl1.Command = "Close" End Sub

　　程序编译运行后, 窗口中MMControl控件的有关按钮将处于可用状态，此时按下PLAY键,美妙的声音就会随之送出。如果不想使用 MMControl 控件中的按钮，可将 Visible 和 Enabled 属性设置为 False。然后通过设置MMControl控件的"Command"属性来实现多媒体文件的操作。