随着多媒体技术的迅速发展，管理信息系统中不可避免地出现了表格、图形、图像、声音、动画等非结构化数据。非结构化数据和结构化数据（数值和字符）的存储格式和存储模式不同，需要多媒体数据库来统一管理。
本文介绍了利用Visual Basic 6.0来实现显示或播放多媒体数据，所运用的进程调用等技术对于Windows环境下的其他编程应用也有重要的参考价值。
利用VB实现多媒体数据的显示或播放，主要有以下四种方法:
1、利用进程调用方法
调用其他应用程序来实现对多媒体数据的显示或播放。利用现有的工具软件完成多媒体数据的操作，不需要自己开发。例如可以编程调用WinWord 来显示一篇文本文件，而要显示一幅图形，可以调用Windows 中的画笔(PBrush)来实现，程序如下：
Private Sub Command1－Click()
′本程序调用画笔来显示一幅图形
Dim strTemp As String
Dim strFileName As String
Dim intTemp As Integer
strFileName =″c:\windows\picture1.bmp″
′待显示文件名
strTemp = ″c:\windows\pbrush.exe″
′画笔文件名
strTemp = strTemp ＆ ″ ″ ＆ strFileName
intTemp = Shell(strTemp, 3)′进程调用函数
End Sub
2、利用OLE方法
OLE是两个应用程序间交换信息的一种方法。对于OLE，用于交换信息的两个应用程序分别称为服务者和客户。服务者是数据的提供者,客户是数据的接受者，在VB中，OLE客户控件作为数据的接受者。通过OLE方法显示图形的示例程序如下：
Private Sub Command2－Click()
′本程序用来通过OLE调用一幅图形
OLE1.Class = ″MSDRAW″
′确定嵌入的OLE对象的类名
OLE1.SourceDoc=″c:\windows\picture2.bmp″
′待显示的文件名
OLE1.Action = 0 ′OLE－CREATE－EMBED
OLE1.Verb = －3
′当OLE对象被激活时指定一种操作
OLE1.Action = 7 ′OLE－ACTIVATE
OLE1.Enabled = False
′确定控件是否响应用户产生的事件
End Sub
Class属性用来确定服务者应用程序名及它所提供的数据类型；Verb用来确定对象被激活时的操作，值为－3表示对象被激活时隐藏生成该对象的应用程序；Enabled的值为True,允许对象响应事件,为False 阻止对象响应事件。
3、利用VB提供的MCI控件
控 件是VB提供的标准化的对象，VB为它提供了标准的事件处理函数或过程，用户可在此基础上编写实际的事件处理程序来响应用户的操作。VB提供的多媒体控件 （MCI16.OCX），把很多API的函数转化为简单的属性或事件，简化了编程。例如要播放一段录音，用VB实现如下：
Private Sub Command4－Click()
′本程序利用MCI16.OCX 控件来播放声音
MMControl1.DeviceType = ″ WaveAudio″
′设备类型
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.FileName = ″ c:\access\songs\note.wav″
MMControl1.Command = ″ Open″
MMControl1.UpdateInterval = conInterval
′conInterval 为不等于零的常量
End Sub
MMControl 为控件名称，DeviceType为设备类型。Windows 为多种多媒体设备指定了设备类型，如Animation(动画播放设备)、DAT(数码录音机)、Sequencer(MIDI音序器)、VCR(程控录 像机)等，只需修改DeviceType属性，就可以实现对多种设备的驱动。
4、通过对相应设备直接编程
通过对相应外设直接编程控制 可以实现更高级的多媒体显示或播放操作，许多设备都提供了标准的函数或过程，另外Windows还提供了一百多个有关多媒体操作的函数，VB可以直接调用 大多数函数或过程来实现多媒体的操作。例如MciSendString()函数，用来向MCI接口传送MCI指令字符串；又如 MciGetErrorString()函数，用来返回MCI错误代码的含义。
用VB调用API函数必须先在全程模块中作函数声明，例如 MciSendString()函数的声明为：Declare Function MciSendString Lib ″ MMSYSTEM.DLL″(ByVal MciCommand as string)as integer。我们通过VB调用API函数实现了声音的播放，限于篇幅文中程序从略。
以上所介绍的是笔者为一企业开发的MIS中对多媒体数据实现显示或播放的几种方法，实际应用中取得了较好的效果。