高中信息技術(shù)教學(xué)論文用VisualBasic實現(xiàn)多畫面播放功能

1、用VisualBasic實現(xiàn)多畫面播放功能所謂動態(tài)畫中畫，指的是在大畫面視頻播放時，小畫面在大畫面中也播放另外的畫面，或者是兩個畫面都在做某種活動。 筆者前段時間用VisualBasic開發(fā)了一個vcd播放程序，可以實現(xiàn)以下功能： (1)可以多屏播放，也就是畫中畫功能，可同時播放幾個不同的畫面； (2)可以同時播放cd-rom中的視頻音頻文件(當(dāng)然，在硬盤中播放速度會更快些) (3)支持多種文件格式(如.dat、.wav、.avi、.mov、.mmm、.mid、.rmi、.mpg、.mpa、.mpv等)； (4)自帶畫面美觀且功能齊全的cd播放程序； (5)增強了鼠標(biāo)的右鍵功能，用它可以控制各

2、畫面的大小(1/16、1/4、1/2、1、2倍和全屏)、播放、暫停等； (6)控制聲音、圖像、時間/幀顯示轉(zhuǎn)換、自動重播等； (7)控制條隨意拖動播放，再加上定時播放、自定義播放時間等播放方式，可使您更加愜意地控制vcd； (8)屏幕可隨意拖動，畫面可任意放縮。 vcd中的影像文件都在光盤的mpegav目錄下，文件名只有兩種：avxeq01.dat或music01.dat(如果是音樂版的卡拉ok，則還有music02.dat等。) 可視動畫控件activemovie是microsoft公司的控件，從不成熟的1.0、1.2到2.0，每次都有了很大的改進，如1.0版本中有幾個屬性是只讀的(例如，d

3、isplaymode只能為amvtime，而不能改為amvframes)。該控件支持音頻文件(.wav、.mid、.rmi)、影片文件(.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv)和vcd文件(.dat)等。播放時若用鼠標(biāo)右鍵單擊畫面，則可以直接對畫面的播放、暫停、停止等進行控制，讀者還可以自行在“屬性”欄中對影片播放進行控制設(shè)置，諸如設(shè)置“播放次數(shù)”、“音量”、“影片大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“顏色”、“過濾器”等。這種技術(shù)的實現(xiàn)實際上是vb調(diào)用activemovie控制器來完成的，而activemovie控制器內(nèi)嵌了micros

4、oftmpeg音頻解碼器和microsoftmpeg視頻解碼器。 首先，我們建立一個“項目”，依次選擇“項目/部件”，然后添加microsoftactivemoviecontrol(amovie.ocx)、microsoftcommandialogcontrol(comdlg32.ocx)，控件即出現(xiàn)在“工具箱”中。將上述兩個控件加進窗體，再單擊“菜單”工具欄，建立一個主菜單項：“文件”(file)及其子菜單項：“打開a畫面”(opena)。 在opena中加入如下代碼： privatesubopena-click() onerrorresumenext commondialog1.filte

5、r=videofile(*.dat)*.datwavefile(*.wav)avifile(*.avi)(*.avi)moviefile(*.mov)(*.mov)mediafile(*.mmm)(*.mmm)midfile(*.mid;*.rmi)(*.mid;*.rmi)mpegfile(*.mpeg)(*.mpeg)allfile(*.*)*.* commondialog1.filterindex=1 commondialog1.showopen activemove1.filename=commondialog1.filename activemove1.height=form1.he

6、ight activemove1.width=form1.width activemove1.run endsub 這是對單個的activemovie1進行控制。還可以在“文件”(file)中依次加入子菜單：“打開b畫面”(openb)、“打開c畫面”(openc)，并相應(yīng)地加入activemovie2、activemovie3等多個畫面，將上述程序代碼略為改動后加入。這樣，當(dāng)您按下f5鍵即運行程序，打開您想要播放的vcd文件就可以欣賞vcd了。在屏幕上單擊右鍵，還可以控制畫面呢！ 現(xiàn)在是否就滿足了呢？不行！我們再增加一個用鼠標(biāo)任意拖動屏幕的功能： privatesubactivemovie1

7、-mousedown(buttonasinteger,shiftasinteger,xassingle,yassingle) activemovie1.drag1 x1=x y1=y endsub 我們還增加了一個定義任意播放時間的主菜單項：“時間”(time)及其子菜單項：“畫面a時間”(settimea)： privatesubsettimea-click() onerrorresumenext dimrasinteger r=inputbox(請輸入時間(分鐘：0-60) r=r*60 activemovie1.currentposition=int(r) activemovie1.ru

8、n endsub currentposition是控制vcd播放的時間：(1)activemovie1.currentposition=0(從頭開始)；(2)activemovie1.currentposition=900(15分鐘后)；(3)activemovie1.currentpo-sition=1800(30分鐘后)。依次類推，但是不能超過60分鐘。 我們再增加一個主菜單項：“屏幕”(screen)及其子菜單項：“全屏a”(fullscreena)，用來控制屏幕大?。?privatesubfullscreena-click() onerrorresumenext activemovie

9、1.fullscreenmode=true activemovie1.run activemovie1.moviewindowsize=amvmaximized endsub fullscreenmode用來控制畫面是否為全屏，當(dāng)它為true時則全屏方式播放vcd，為false時則取消全屏方式。 moviewindowsize也是控制屏幕的大小：(1)全屏大?。篴ctivemovie1.moviewindow-size=amvmaximized；(2)正常大小：activemovie1.moviewindowsize=amvoriginalsize；(3)倍屏：activemovie1.mov

10、iewindowsize=amvdoubleoriginalsize；(4)1/2屏：activemovie1.moviewindowsize=amvonehalscreen；(5)1/4屏：activemovie1.movie-windowsize=amvonefourthscreen；(6)1/16屏：activemovie1.moviewindowsize=amvonesixteenscreen。 我們可以隨意控制屏幕了。下面，讓我們再把聲音控制一下吧！ microsoftactivemovie控件2.0版的確比1.2、1.0改善不少！1.2、1.0版在我的創(chuàng)新awe64頂級聲卡中的表現(xiàn)

11、很不盡人意，但2.0版卻把我拉“科達”音箱功能在創(chuàng)新awe64的驅(qū)動下發(fā)揮得淋漓盡致！想必microsoft公司對activemovie控制器中內(nèi)嵌的mpeg音頻解碼器下了苦功！ 我們在菜單中增加主菜單項：“聲音”及其子菜單項“增加”(soundadd棗快捷鍵設(shè)置為f4)和“減少”(soundduce棗快捷鍵設(shè)置為f5)，分別用來控制聲音的增強： privatesubsoundadd-click() activemovie1.volume=activemovie1.volume+100 endsub privatesubsoundduce-click() activemovie1.volume

12、=activemovie1.volume-100 endsub 當(dāng)然，我們還想增加“靜音”(soundno)功能。經(jīng)我反復(fù)試驗，當(dāng)activemovie1.volume=-4000時效果最好！ 我們還需要讓vcd播放完后乖乖地“自動重播”(autoreplay)： privatesubautoreplay-click() activemovie1.autorewind=true autorewind設(shè)置播放時是否“自動播放” endsub 為了讓vcd播放時交替“顯示幀”(showframe)或“顯示時間”(showtime)，可在displaymode中進行設(shè)置： privatesubshowframe-click() onerrorresumenext ac