用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 播 放 器 了。