表1给出了简易CD播放器的主要控制部件定义，其后是对应于各个触发事件的源程序代码。
完整的源程序清单如下:
'CD播放机实用程序
'运行程序前请在CD-ROM驱动器中装入一张激光唱碟'“LOAD”按钮触发事件
Private Sub Command1_Click()
'装入CD唱片
On Error GoTo MCI_ERROR
MMControl1.Command = "Open"
On Error GoTo 0
'设置时间格式
MMControl1.TimeFormat = vbMCIFormatTmsf
'关闭LOAD按钮，显示图片
Command1.Enabled = False
Picture1.Picture = Picture3.Picture
' 设置初始轨道数
Label1.Caption = "1"
Exit Sub
MCI_ERROR:
DisplayErrorMessageBox
Resume MCI_EXIT
MCI_EXIT:
Unload CD
End Sub
Private Sub Form_Load()
MMControl1.Wait = True
MMControl1.UpdateInterval = 0
' 设置设备类型
MMControl1.DeviceType = "CDAudio"
'设置缺省轨道数为0
Label1.Caption = "0"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MCITest.Show
End Sub
'“出带”按钮触发事件
Private Sub MMControl1_EjectClick(Cancel As Integer)
Command1.Enabled = True
Picture1.Picture = Picture2.Picture
MMControl1.UpdateInterval = 0
On Error GoTo MCI_ERROR2
MMControl1.Command = "Eject"
MMControl1.Command = "Close"
On Error GoTo 0
Label1.Caption = "0"
Label3.BackColor = &H404040
Exit Sub
MCI_ERROR2:
DisplayErrorMessageBox
Resume Next
End Sub
'“向前”按钮触发事件
Private Sub MMControl1_NextCompleted(ErrorCode As Long)
Label1.Caption = Str$(MMControl1.Track)
End Sub
'“暂停”按钮触发事件
Private Sub MMControl1_PauseClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
Label3.BackColor = &H404040
End Sub
'“播放”按钮触发事件
Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.UpdateInterval = 1000
Label1.Caption = Str$(MMControl1.Track)
End Sub
'“向后”按钮触发事件
Private Sub MMControl1_PrevCompleted(ErrorCode As Long)
Label1.Caption = Str$(MMControl1.Track)
End Sub
Private Sub MMControl1_StatusUpdate()
Label1.Caption = Str$(MMControl1.Position And &HFF)
If MMControl1.Mode = vbMCIModePlay Then
Label3.BackColor = &H80FF&
Else
Label3.BackColor = &H404040
End If
End Sub
'“停止”按钮触发事件
Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.UpdateInterval = 0
Label3.BackColor = &H404040
MMControl1.To = MMControl1.Start
MMControl1.Command = "Seek"
MMControl1.Track = 1
Label1.Caption = "1"
End Sub
2、播放AVI（音频视频接口）文件
电影（包括声音和图像）是广大计算机工作者最为关心的媒体信息之一，电影处理技术也是多媒体关键技术之一。而在多媒体系统中，AVI（Audio Video Interface，音频视频接
口）文件是存储电影（包括声音和图像）的标准格式，这些AVI文件一般是通过捕获实时视频信号得来的，也可以通过扫描仪获取图像或者使用动画制作软件得到。于是，屏幕窗口上的音频视频操作，就变成了对AVI文件（文件后缀为AVI）的处理。在实际工作中，播放AVI文件（即影片）的方法有许多种，而其中以利用Visual Basic的多媒体控件方法最为简单、方便。下面以一个具体实例来说明如何播放AVI文件：假设用户当前目录下有名字为DEMO.AVI的视频音频文件，则利用Visul Basic播放该影片需要经过
如下步骤：
（1）在Visual Basic的窗体中加入一个MMControl多媒体控件、一个PictureBox图片框控件和两个ComandButton命令按钮部件；
（2）设置各个控件的属性，其中窗体命名为Form1，MMControl多媒体控件命名为MMControl1、PictureBox图片框控件命名为Picture1、两个ComandButton命令按钮控件分别命名为Play和Close；
（3）编写各触发事件源程序代码并且运行。源程序代码为：
Private Sub Play_Click()
MMControl1.Filename = "DEMO.AVI"
MMControl1.DeviceType= = "AVIVIDEO"
MMControl1.hWndDisplay = Picture1.hWnd
MMControl1.Command = "OPEN"
MMControl1.To = 1
MMControl1.Command = "SEEK"
MMControl1.Command = "PLAY"
End Sub
Private Sub Close_Click()
MMControl1.Command = "STOP"
MMControl1.Command = "CLOSE"
End Sub
值得注意的是：在播放AVI文件之前，首先应该把AVI（音频视频）驱动程序安装在Windows下。AVI的驱动程序名为MCIAVI.DRV，必须将它拷贝到\WINDOWS\SYSTEM目录下，同时在SYSTEM.INI文件的[MCI]部分加上：
AVIVIDEO=MCIAVI.DRV
这样，运行Windows时，Windows会自动地将AVI的驱动程序安装好。
以上仅描述了利用多媒体控制部件播放音频文件（.WAV）、CD唱片和音频视频文件（.AVI）的操作过程。实际上利用多媒体控制部件同样可以播放动画文件（.FLI、.FLC）、MIDI
文件等其他媒体信息。
六、结束语
通过前面论述，不难看出：利用Visual Basic提供的多媒体控制部件MCI.OCX，广大计算机用户可以方便、快捷、高效率地开发出各种多媒体应用程序。但需要强调的是：开发设计Visual Basic多媒体应用程序，除了可以利用多媒体控制部件以外，还可以采用其他手段，例如通过调用API函数等等（鉴于篇幅，这里未做讨论）。可见， Visual Basic确实是专业与非专业多媒体软件开发人员共同拥有的理想开发工具。
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
