实用技巧

---- 本 人 在 电 脑 报 上 发 现 一 个 非 常 实 用 的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 播 放 器 了。

在日常的工作生活中， 我们对计算机软硬件技术的应用开发肯定有许多的心得体会， 拿来和众人分享：让别人得到他们想要的，使自己找到苦苦寻觅的； 小的点点滴滴，大的工程系统，这里都需要。投稿 的关键在“技巧”二 字，知他人所不知，这样的稿件本栏最最欢迎! 大家公认的 好文章自然会有好的奖励。希望每个人 在这里都有所收获...

  中国惠普
  3Com中国
  Motorola中国
  CA中国
  Cabletron
  Sony在中国
  西门子WinCC
  爱普生中国
  中国建设银行
  德州仪器(TI)
  问博医药