top
Loading...
用VB設計VCD播放器
p>本人在電腦報上發現一個非常實用的VB小程序經過一定的修改后,不敢獨享,奉獻給諸位。

該程序通過VB的多媒體控件MCI32.OCX可以打開MPEG壓縮文件(如VCD2.0版的.DAT文件)來實現一個VCD播放器的設計

首先必須確保在你的Windows系統中SYSTEM.INI文件關于[MCI]中需有MPEGVideo項(一般Windows95和Windows98中均有此項)。

其次在VB中建立一個新窗口,加入多媒體部件MicrosoftMultimediaControl5.0(位于C:WindowsSystemMCI32.OCX),以及對話框部件MicrosoftCommonDialogControl5.0(位于C:WindowsSystemCOMMONDLG32.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)。

源代碼如下:

OptionExplicitPrivateSubForm_Load()DimResponseAsIntegerMMControl1.DeviceType="MPEGVideo"CommonDialog1.ShowOpen通過對話框選擇不同的VCD文件MMControl1.filename=CommonDialog1.filename選定要播放的文件MMControl1.Command="Open"MMControl1.Command="Play"EndSubPrivateSubForm_Unload(CancelAsInteger)MMControl1.Command="close"EndSubPrivateSubMMControl1_BackClick(CancelAsInteger)對Back按鈕的功能改進DimiAsIntegeri=MMControl1.Position-100數值100為后退量,可適當調整Ifi$#@60;0ThenMMControl1.From=0ElseMMControl1.From=iEndIfMMControl1.Command="Play"EndSubPrivateSubMMControl1_StepClick(CancelAsInteger)對Step按鈕的功能改進DimjAsIntegerj=MMControl1.Position+100數值100為前進量,可適當調整Ifj$#@62;MMControl1.LengthThenMMControl1.From=MMControl1.LengthElseMMControl1.From=jEndIfMMControl1.Command="Play"EndSub

MCI控件 瀉芏嗍糶?,如畫面播放位置hWndDisplay屬性等等,大家可參閱相關資料自行摸索。

調整好窗體的標題、圖標、顏色等,然后編譯成.EXE文件,你就可以在Windows下擁有自己的VCD播放器了。

作者:http://www.zhujiangroad.com
來源:http://www.zhujiangroad.com
北斗有巢氏 有巢氏北斗