62(1).txt

VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）

用 VB 设 计 VCD 播 放 器
 

成 都 傅能红
　　 本人在电脑报上发现一个非常实用的 VB 小程序经过一定的修改后, 不敢独享, 奉献给诸位。
　  该程序通过 VB 的多媒体控件 MCI32.OCX 可以打开MPEG 压缩文件( 如VCD2.0 版的.DAT 文件) 来实现一个VCD 播放器的设计
　  首先必须确保在你的 Windows 系统中 SYSTEM.INI 文件关于 [MCI] 中需有 MPEGVideo 项(一般 Windows 95 和  Windows 98 中均有此项)。
　  其次在 VB 中建立一个新窗口, 加入多媒体部件 Microsoft Multimedia Control 5.0(位于 C:\Windows\System\MCI32.OCX), 以及对话框部件 Microsoft Common Dialog Control 5.0 (位于 C:\Windows\System\COMMONDLG32.OCX), 将 MCI 控件拖放至窗体 Form 上, 调整其大小, 并将窗体的大小也调整为与其同样大小；将其九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record 和 Eject)中的Record 按钮的 Visible 属性设为 False，其余按钮中的 Visible 属性和 Enabled 属性设为 True , 以上按钮的设置可通过 MMControl 的属性栏内" 自定义" 项来设置。对话框控件的 DefaultExt 属性设为.DAT, DialogTitle 属性设为"打开多媒体文件", Filter 属性设为"*.DAT, *.WAV", InitDir 属性设为"G:\MPEGAV"(假设光驱盘符为G)。

　  源代码如下:

Option Explicit

Private Sub Form_Load()
  Dim Response As Integer
  MMControl1.DeviceType = "MPEGVideo"
  CommonDialog1.ShowOpen　  
  '通过对话框选择不同的VCD文件
  MMControl1.filename = CommonDialog1.filename
　 '选定要播放的文件
  MMControl1.Command = "Open"
  MMControl1.Command = "Play"  
End Sub

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

Private Sub MMControl1_BackClick(Cancel As Integer)
  '对Back按钮的功能改进
  Dim i As Integer
  i = MMControl1.Position - 100  
  '数值100为后退量,可适当调整
  If i < 0 Then
　 MMControl1.From="0"
  Else
　 MMControl1.From="i"
  End If
  MMControl1.Command="Play"
End Sub

Private Sub MMControl1_StepClick(Cancel As Integer)
  '对Step按钮的功能改进
  Dim j As Integer
  j="MMControl1.Position" + 100 '数值100为前进量,可适当调整
  If j> MMControl1.Length Then
　  MMControl1.From = MMControl1.Length
  Else
　  MMControl1.From = j
  End If
  MMControl1.Command = "Play"
End Sub

　  MCI 控件还有很多属性, 如画面播放位置 hWndDisplay 属性等等, 大家可参阅相关资料自行摸索。
　  调整好窗体的标题、图标、颜色等, 然后编译成 .EXE 文件, 你就可以在 Windows 下拥有自己的 VCD 播放器了。