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

1、用VisualBasic實(shí)現(xiàn)多畫面播放功能所謂動(dòng)態(tài)畫中畫，指的是在大畫面視頻播放時(shí)，小畫面在大畫面中也播放另外的畫面，或者是兩個(gè)畫面都在做某種活動(dòng)。  筆者前段時(shí)間用Visual Basic開發(fā)了一個(gè)vcd播放程序，可以實(shí)現(xiàn)以下功能：  (1) 可以多屏播放，也就是畫中畫功能，可同時(shí)播放幾個(gè)不同的畫面；  (2) 可以同時(shí)播放cd-rom中的視頻音頻文件(當(dāng)然，在硬盤中播放速度會(huì)更快些)  (3)支持多種文件格式(如.dat、 .wav、 .avi、 .mov、 .mmm、 

2、.mid、 .rmi、 .mpg、 .mpa、 .mpv等)；  (4) 自帶畫面美觀且功能齊全的cd播放程序；  (5) 增強(qiáng)了鼠標(biāo)的右鍵功能，用它可以控制各畫面的大小(1/16、1/4、1/2、1、2倍和全屏)、播放、暫停等；  (6) 控制聲音、圖像、時(shí)間/幀顯示轉(zhuǎn)換、自動(dòng)重播等；  (7) 控制條隨意拖動(dòng)播放，再加上定時(shí)播放、自定義播放時(shí)間等播放方式，可使您更加愜意地控制vcd；  (8) 屏幕可隨意拖動(dòng)，畫面可任意放縮。  vcd中的影

3、像文件都在光盤的mpegav目錄下，文件名只有兩種：avxeq01.dat或music01 .dat(如果是音樂版的卡拉ok，則還有music02 .dat等。)  可視動(dòng)畫控件activemovie是microsoft公司的控件，從不成熟的1.0、1.2到2.0，每次都有了很大的改進(jìn)，如1.0版本中有幾個(gè)屬性是只讀的(例如，displaymode只能為amvtime，而不能改為amvframes)。該控件支持音頻文件(.wav、.mid、.rmi)、影片文件(.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv)和vcd文件(.dat)等。播放

4、時(shí)若用鼠標(biāo)右鍵單擊畫面，則可以直接對(duì)畫面的播放、暫停、停止等進(jìn)行控制，讀者還可以自行在“屬性”欄中對(duì)影片播放進(jìn)行控制設(shè)置，諸如設(shè)置“播放次數(shù)”、“音量”、“影片大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“顏色”、“過濾器”等。這種技術(shù)的實(shí)現(xiàn)實(shí)際上是vb調(diào)用activemovie控制器來完成的，而activemovie控制器內(nèi)嵌了microsoft mpeg音頻解碼器和microsoft mpeg視頻解碼器。  首先，我們建立一個(gè)“項(xiàng)目”，依次選擇“項(xiàng)目/部件”，然后添加microsoft activemoviecontrol 

5、(amovie.ocx)、microsoft commandialog control(comdlg32.ocx)，控件即出現(xiàn)在“工具箱”中。將上述兩個(gè)控件加進(jìn)窗體，再單擊“菜單”工具欄，建立一個(gè)主菜單項(xiàng)：“文件”(file)及其子菜單項(xiàng)：“打開a畫面”(opena)。  在opena中加入如下代碼：  private sub opena-click ()  on error resume next  commondialog1.filter ="vide

6、o file (*.dat)*.datwave file (*.wav)avi file (*.avi)(*.avi)movie file (*.mov)(*.mov)media file (*.mmm)(*.mmm)mid file (*.mid;*.rmi)(*.mid;*.rmi)mpeg file (*.mpeg)(*.mpeg)all file (*.*)*.*"  commondialog1.filter

7、index =1  commondialog1.showopen  activemove1.filename = commondialog1. filename  activemove1.height = form1.height  activemove1.width =form1.width  activemove1.run  end sub  這是對(duì)單個(gè)的activemovie1進(jìn)行控制。還可以在“文件”(file)中依次加入子菜單：“打開b

8、畫面”(openb)、“打開c畫面”(openc)，并相應(yīng)地加入activemovie2、 activemovie3等多個(gè)畫面，將上述程序代碼略為改動(dòng)后加入。這樣，當(dāng)您按下f5鍵即運(yùn)行程序，打開您想要播放的vcd文件就可以欣賞vcd了。在屏幕上單擊右鍵，還可以控制畫面呢！  現(xiàn)在是否就滿足了呢？不行！我們?cè)僭黾右粋€(gè)用鼠標(biāo)任意拖動(dòng)屏幕的功能：  private sub activemovie1-mousedown (button as integer ,shift as integer&

9、#160;,x as single ,y as single)  activemovie1.drag 1  x1=x  y1=y  end sub  我們還增加了一個(gè)定義任意播放時(shí)間的主菜單項(xiàng)：“時(shí)間”(time)及其子菜單項(xiàng)：“畫面a時(shí)間”(settimea)：  private sub settimea-click ()  on error resume next  dim 

10、;r as integer  r=inputbox ("請(qǐng)輸入時(shí)間(分鐘：0-60)")  r=r*60  activemovie1.currentposition =int(r)  activemovie1.run  end sub  currentposition是控制vcd播放的時(shí)間：(1)activemovie1.currentposition =0(從頭開始)；(2)activemovie1.currentposition =900(1

11、5分鐘后)；(3)activemovie1.currentpo-sition =1800(30分鐘后)。依次類推，但是不能超過60分鐘。  我們?cè)僭黾右粋€(gè)主菜單項(xiàng)：“屏幕”(screen)及其子菜單項(xiàng)：“全屏a”(fullscreena)，用來控制屏幕大小：  private sub fullscreena -click ()  on error resume next  activemovie1.fullscreenmode=true  activemovie1.

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

13、ivemovie1.moviewindowsize =amvdoubleoriginalsize；(4)1/2屏：activemovie1.moviewindowsize =amvonehalscreen；(5)1/4屏：activemovie1.movie-windowsize =amvonefourthscreen；(6)1/16屏：activemovie1.moviewindowsize =amvonesixteenscreen。  我們可以隨意控制屏幕了。下面，讓我們?cè)侔崖曇艨刂埔幌掳桑?#160; microsoft act

14、ivemovie控件2.0版的確比1.2、1.0改善不少！1.2、1.0版在我的創(chuàng)新awe64頂級(jí)聲卡中的表現(xiàn)很不盡人意，但2.0版卻把我拉“科達(dá)”音箱功能在創(chuàng)新awe64的驅(qū)動(dòng)下發(fā)揮得淋漓盡致！想必microsoft 公司對(duì)activemovie控制器中內(nèi)嵌的mpeg音頻解碼器下了苦功！  我們?cè)诓藛沃性黾又鞑藛雾?xiàng)：“聲音”及其子菜單項(xiàng)“增加”(soundadd棗快捷鍵設(shè)置為f4)和“減少”(soundduce棗快捷鍵設(shè)置為f5)，分別用來控制聲音的增強(qiáng)：  private sub soundadd -click ()&#

15、160; activemovie1.volume= activemovie1.volume +100  end sub  private sub soundduce -click ()  activemovie1.volume= activemovie1.volume -100  end sub  當(dāng)然，我們還想增加“靜音”(soundno)功能。經(jīng)我反復(fù)試驗(yàn)，當(dāng)activemovie1.volume= -4000時(shí)效果最好！ 

16、; 我們還需要讓vcd播放完后乖乖地“自動(dòng)重播”(autoreplay)：  private sub autoreplay -click ()  activemovie1.autorewind= true   autorewind設(shè)置播放時(shí)是否“自動(dòng)播放”  end sub  為了讓vcd播放時(shí)交替“顯示幀”(showframe)或“顯示時(shí)間”(showtime)，可在displaymode 中進(jìn)行設(shè)置：  private sub showframe -click ()  on error resume next  activemovie1. displaymode =amvframes  end s