程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 用VB設計VCD播放器的方法與技巧

用VB設計VCD播放器的方法與技巧

編輯:VB綜合教程
筆者在初步研究了Windows的SYSTEM.INI後發現,通過VB的多媒體控件MCI.VBX可以打開MPEG壓縮文件(如VCD2.0版的.DAT文件)。
  首先你的Windows系統中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:MPEGAVMUSIC01.DAT。
  源代碼如下:
  PrivateSubForm_Load()
  MMControl.DeviceType=″MPEGVideo″
  MMControl.FileName=″E:MPEGAVMUSIC01.DAT″
  MMControl.Command=″OPEN″
  MMControl.Command=″PLAY″
  EndSub
  SubForm_Unload(CancelAsInteger)
  MMControl.Command=″close″
  EndSub
  筆者通過實踐發現Step和Back按鈕功能不明顯,所以對以上兩個按鈕進行了一些改進。
  SubMMControl_StepClick(CancelAsInteger)
  j=MMControl.Position+100 ′數值100為前進量,可適當調整
  Ifj>MMControl.LengthThen
  MMControl.From=MMControl.Length
  Else
  MMControl.From=j
  EndIf
  MMControl.Command=″Play″
  EndSub
  SubMMControl_BackClick(CancelAsInteger)
  i=MMControl.Position-100 ′數值100為後退量,可適當調整
  Ifi<0Then
  MMControl.From=0
  Else
  MMControl.From=i
  EndIf
  MMControl.Command=″Play″
  EndSub
  MCI控件還有很多屬性,如畫面播放位置hWndDisplay屬性等,讀者可參閱相關資料自行摸索,這裡不再介紹。讀者還可以通過建立通用對話框來打開文件,以解決VCD文件名不統一或多文件的問題。
  調整好窗體Form的標題、圖標、顏色等,然後編譯成EXE文件,你就可以在Windows下擁有自己的VCD播放器了。
  另外,因電腦性能差異及VCD解碼質量的不同,播放畫面質量和音質將有所差異。->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved