利用Visual Basic设计多媒体应用程序(2)

　　 表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确实是专业与非专业多媒体软件开发人员共同拥有的理想开发工具。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有