表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
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!




