用VB設計VCD播放器

2019-11-18 17:35:18

字體：大中小

來源：轉載

供稿：網(wǎng)友

當你在用老牌的XingPlay或是華麗的《超級解霸5.0》的時候,你有沒有想過擁有一個你自己編寫的軟解壓播放器呢?其實你只要掌握一點VB的技巧,那么要實現(xiàn)這個愿望就變得很簡單了。
　　筆者在初步研究了Windows的SYSTEM.INI后發(fā)現(xiàn)，通過VB的多媒體控件MCI.VBX可以打開MPEG壓縮文件(如VCD2.0版的.DAT文件)。
　　首先你的Windows系統(tǒng)中SYSTEM.INI文件關于[MCI]中需有MPEGVideo項(一般Windows95和Windows98中都已有此項,通過安裝XingPlay或CCDVP95等軟件也可增加此項)。
　　其次在VB中建立一個新窗口,將MCI.VBX加入ToolBox中,將MCI控件拖放至窗體Form上,調整其大小,將九個按鈕(從左至右為:PRev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按鈕Visible屬性設為False,其余按鈕的Visible屬性和Enabled屬性設置為True,以上按鈕的設置可通過MMControl的屬性欄內“自定義”項來設置。
　　假設光驅為E:,VCD碟片文件為E:/MPEGAV/MUSIC01.DAT。
　　源代碼如下：
　　PrivateSubForm_Load()
　　MMControl.DeviceType=″MPEGVideo″
　　MMControl.FileName=″E:/MPEGAV/MUSIC01.DAT″
　　MMControl.Command=″OPEN″
　　MMControl.Command=″PLAY″
　　EndSub
　　SubForm_Unload(CancelAsInteger)
　　MMControl.Command=″close″
　　EndSub
　　筆者通過實踐發(fā)現(xiàn)Step和Back按鈕功能不明顯,所以對以上兩個按鈕進行了一些改進。
　　SubMMControl_StepClick(CancelAsInteger)
　　j=MMControl.Position＋100　′數(shù)值100為前進量,可適當調整
　　Ifj>MMControl.LengthThen
　　MMControl.From=MMControl.Length
　　Else
　　MMControl.From=j
　　EndIf
　　MMControl.Command=″Play″
　　EndSub
　　SubMMControl_BackClick(CancelAsInteger)
　　I=MMControl.Position－100　′數(shù)值100為后退量,可適當調整
　　IfI<0Then
　　MMControl.From=0
　　Else
　　MMControl.From=I
　　EndIf
　　MMControl.Command=″Play″
　　EndSub
　　MCI控件還有很多屬性,如畫面播放位置hWndDisplay屬性等,讀者可參閱相關資料自行摸索,這里不再介紹。讀者還可以通過建立通用對話框來打開文件,以解決VCD文件名不統(tǒng)一或多文件的問題。
　　調整好窗體Form的標題、圖標、顏色等,然后編譯成EXE文件,你就可以在Windows下?lián)碛凶约旱腣CD播放器了。
　　另外,因電腦性能差異及VCD解碼質量的不同,播放畫面質量和音質將有所差異。(江蘇　任毅)->

上一篇：利用VB測聲卡

下一篇：VB設計動畫時鐘