VisualBasic中怎么實現多畫面播放功能

本篇文章給大家分享的是有關VisualBasic中怎么實現多畫面播放功能，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

文章目錄  

(1) 可以多屏播放，也就是畫中畫功能，可同時播放幾個不同的畫面；

(2) 可以同時播放cd-rom中的視頻音頻文件(當然，在硬盤中播放速度會更快些)

(3)支持多種文件格式(如.dat、 .wav、 .avi、 .mov、 .mmm、 .mid、 .rmi、 .mpg、 .mpa、 .mpv等)；

(4) 自帶畫面美觀且功能齊全的cd播放程序；

(5) 增強了鼠標的右鍵功能，用它可以控制各畫面的大小(1/16、1/4、1/2、1、2倍和全屏)、播放、暫停等；

(6) 控制聲音、圖像、時間/幀顯示轉換、自動重播等；

(7) 控制條隨意拖動播放，再加上定時播放、自定義播放時間等播放方式，可使您更加愜意地控制vcd；

(8) 屏幕可隨意拖動，畫面可任意放縮。

vcd中的影像文件都在光盤的mpegav目錄下，文件名只有兩種：avxeq01.dat或music01 .dat(如果是音樂版的卡拉ok，則還有music02 .dat等。)

可視動畫控件activemovie是microsoft公司的控件，從不成熟的1.0、1.2到2.0，每次都有了很大的改進，如1.0版本中有幾個屬性是只讀的(例如，displaymode只能為amvtime，而不能改為amvframes)。該控件支持音頻文件(.wav、.mid、.rmi)、影片文件(.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv)和vcd文件(.dat)等。播放時若用鼠標右鍵單擊畫面，則可以直接對畫面的播放、暫停、停止等進行控制，讀者還可以自行在“屬性”欄中對影片播放進行控制設置，諸如設置“播放次數”、“音量”、“影片大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“顏色”、“過濾器”等。這種技術的實現實際上是vb調用activemovie控制器來完成的，而activemovie控制器內嵌了microsoft mpeg音頻解碼器和microsoft mpeg視頻解碼器。

首先，我們建立一個“項目”，依次選擇“項目/部件”，然后添加microsoft activemoviecontrol (amovie.ocx)、microsoft commandialog control(comdlg32.ocx)，控件即出現在“工具箱”中。將上述兩個控件加進窗體，再單擊“菜單”工具欄，建立一個主菜單項：“文件”(file)及其子菜單項：“打開a畫面”(opena)。

在opena中加入如下代碼：

private sub opena-click ()

on error resume next

commondialog1.filter ="video file (*.dat)∣*.dat∣wave 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.filterindex =1

commondialog1.showopen

activemove1.filename = commondialog1. filename

activemove1.height = form1.height

activemove1.width =form1.width

activemove1.run

end sub

這是對單個的activemovie1進行控制。還可以在“文件”(file)中依次加入子菜單：“打開b畫面”(openb)、“打開c畫面”(openc)，并相應地加入activemovie2、 activemovie3等多個畫面，將上述程序代碼略為改動后加入。這樣，當您按下f5鍵即運行程序，打開您想要播放的vcd文件就可以欣賞vcd了。在屏幕上單擊右鍵，還可以控制畫面呢！

現在是否就滿足了呢？不行！我們再增加一個用鼠標任意拖動屏幕的功能：

private sub activemovie1-mousedown (button as integer ,shift as integer ,x as single ,y as single)

activemovie1.drag 1

x1=x

y1=y

end sub

我們還增加了一個定義任意播放時間的主菜單項：“時間”(time)及其子菜單項：“畫面a時間”(settimea)：

private sub settimea-click ()

on error resume next

dim r as integer

r=inputbox ("請輸入時間(分鐘：0-60)")

r=r*60

activemovie1.currentposition =int(r)

activemovie1.run

end sub

currentposition是控制vcd播放的時間：(1)activemovie1.currentposition =0(從頭開始)；(2)activemovie1.currentposition =900(15分鐘后)；(3)activemovie1.currentpo-sition =1800(30分鐘后)。依次類推，但是不能超過60分鐘。

我們再增加一個主菜單項：“屏幕”(screen)及其子菜單項：“全屏a”(fullscreena)，用來控制屏幕大小：

private sub fullscreena -click ()

on error resume next

activemovie1.fullscreenmode=true

activemovie1.run

activemovie1.moviewindowsize =amvmaximized

end sub

fullscreenmode用來控制畫面是否為全屏，當它為true時則全屏方式播放vcd，為false時則取消全屏方式。

moviewindowsize也是控制屏幕的大小：(1)全屏大小：activemovie1.moviewindow-size =amvmaximized；(2)正常大小：activemovie1.moviewindowsize =amvoriginalsize；(3)倍屏：activemovie1.moviewindowsize =amvdoubleoriginalsize；(4)1/2屏：activemovie1.moviewindowsize =amvonehalscreen；(5)1/4屏：activemovie1.movie-windowsize =amvonefourthscreen；(6)1/16屏：activemovie1.moviewindowsize =amvonesixteenscreen。

我們可以隨意控制屏幕了。下面，讓我們再把聲音控制一下吧！

microsoft activemovie控件2.0版的確比1.2、1.0改善不少！1.2、1.0版在我的創新awe64頂級聲卡中的表現很不盡人意，但2.0版卻把我拉“科達”音箱功能在創新awe64的驅動下發揮得淋漓盡致！想必microsoft 公司對activemovie控制器中內嵌的mpeg音頻解碼器下了苦功！

我們在菜單中增加主菜單項：“聲音”及其子菜單項“增加”(soundadd棗快捷鍵設置為f4)和“減少”(soundduce棗快捷鍵設置為f5)，分別用來控制聲音的增強：

private sub soundadd -click ()

activemovie1.volume= activemovie1.volume +100

end sub

private sub soundduce -click ()

activemovie1.volume= activemovie1.volume -100

end sub

當然，我們還想增加“靜音”(soundno)功能。經我反復試驗，當activemovie1.volume= -4000時效果最好！

我們還需要讓vcd播放完后乖乖地“自動重播”(autoreplay)：

private sub autoreplay -click ()

activemovie1.autorewind= true

’ autorewind設置播放時是否“自動播放”

end sub

為了讓vcd播放時交替“顯示幀”(showframe)或“顯示時間”(showtime)，可在displaymode 中進行設置：

private sub showframe -click ()

on error resume next

activemovie1. displaymode =amvframes

end sub

private sub showtime -click ()

on error resume next

activemovie1. displaymode =amvtimes

end sub

經過上面的設計，功能也湊合了。行了嗎？別急！我們還想將界面搞得漂亮一點。例如，增加工具欄，加強鼠標右鍵的功能和畫面中的雙擊功能等。

如果我們想在vcd畫面中單擊右鍵彈出菜單，則可添加如下代碼：

private sub activemovie1-mousedown (button as integer,shift as integer ,x as single ,y as single)

if button = 2 then popupmenu menuok

end sub

其中，menuok是我們在菜單中額外增加的，子菜單內容可自定義(但要記住在設計時將名為“menuok”的菜單設置成不可見)。例如：(1)控制vcd“暫停”： activemovie1.parse； (2)控制vcd“運行”： activemovie1.run；(3)控制vcd“停止”： activemovie1.stop；(4)控制vcd“自動播放”： activemovie1.autostart=true。

activemovie還有非常有用的其它屬性：

(1) allowchangedisplaymode：運行時是否允許改變顯示的模式；

(2) allowhidecontrols：運行時顯示/隱藏控制面板；

(3) allowhidedisplay：運行時顯示/隱藏顯示面板；

(4) appearance：設置面板的外觀(平面或3d)；

(5) autostart：設置打開vcd文件后是否“自動播放”；

(6) enablecontextmenu：當在畫面中右鍵單擊時是否允許出現控制菜單(設成false時可以顯示您自行設計的控制菜單)；

(7) filename：設置activemovie播放的文件名；

(8) playcount：設置播放次數；

(9) rate：設置播放時的速率，為1時為正常播放，大于1時為快進(過大時可能無聲、無影)；

(10) selectionstart：設置播放的開始位置(缺省值為0)；

(11) selectionend：設置播放的結束位置(缺省值為-1)；

(12) showcontrols：顯示/隱藏控制面板；

(13) showdisplay：顯示/隱藏顯示面板；

(14) showpositioncontrols：在控制面板中顯示/隱藏位置按鈕；

(15) showselectioncontrols：在控制面板中顯示/隱藏選擇按鈕；

(16) showtracker：在控制面板中顯示/隱藏音軌欄；

(17) tooltiptext：當光標停留在畫面時出現的提示文字。

我們除了可用microsoft的activemovie控件進行開發外，還可以用mciwnd控件來進行開發(可惜二者不能同時使用。換言之，單純用mciwnd無法制作畫中畫，但mciwnd可以和activemovie“和平共處”，這樣我們就可以用mciwnd制作一個“特別版vcd”。值得一提的是，mciwnd聲音解碼非常出色，不愧“師出名門”棗xing)。這種技術的實現實際上是vb借助于xing的mci驅動程序來實現的，如果沒有xing的dll程序運行時就會出錯。但這種技術實現得非常巧妙，比用vb中的ole技術來得更加隱蔽，可以設計成自己的vcd播放程序。

如果動畫控件mciwnd不在工具欄上，可按如下方法進行添加：

(1)從“項目”中選擇“部件”，再選中控件mciwnd control (mciwndx.ocx)，mciwnd控件即出現在“工具箱”中。

mciwnd控件的屬性有：

1) autosizemovie：控制畫面是否自動適應窗口，為false可能會遮掩掉部分畫面，結合autosizewindows使用；

2) autosizewindows：控制畫面是否自動適應原來的影片的大小，為false時可能會擠壓或拉長畫面，使畫面變形，結合autosizemovie使用；

3) defaultcontextmenuenabled：當在畫面中右鍵單擊時是否允許出現控制菜單(缺省值為true，這樣您將不能觸發鼠標右鍵的mousedown、mouseup和dblclick事件 ；設成false時可以顯示您自行設計的控制菜單)；

4) filename：指定設備所要播放的文件；

5) menu：顯示/隱藏播放條上的控制菜單并設置在控制面板上單擊右鍵時是否彈出控制菜單；

6) playbar：顯示/隱藏播放條；

7) positionstring：返回打開的mci設備的當前位置；

8) record：設置控制菜單的“保存”命令是否可用；

9) repeat：設置播放時是否“自動重播”；

10)speed：設置播放時的速率，為1000時表示正常播放，大于1000時為快進(過大時可能無聲、無影)，小于1000時為慢進；

11)tooltiptext：返回/設置當鼠標停留在畫面時的文本；

12)timefreq：指定時間周期；

13)volume：設置mci設置的聲音大小，1000為正常值；

14)zoom：設置畫面的縮放率。

在新建窗體上添加一個mciwnd控件，并在控件上單擊鼠標右鍵，選取“屬性”(或直接在屬性欄中進行設置)，在filename中設置您需要播放的vcd文件，按f5鍵則開始運行。然后單擊“播放”鍵，就會自動播放vcd。右鍵單擊圖像，可以直接對圖像的播放、暫停等進行控制，并且可以在播放時直接設置屏幕大小(1/2屏、正常屏幕、倍屏)和控制音量，并對畫面進行打開、保存、關閉、復制、配置(顯示xing的有關信息)等操作。但是，要想更好地控制畫面，我們還得編程，程序參見activemovie控件的編程。

令人鼓舞的是，該控件幾乎支持所有上述的多媒體文件。在“命令”行中可直接輸入豐富的mci指令(如基本的play、close、stop、open、info、capability、pause、put、record、save、resume、seek、set等等。)

怎么樣？您的vcd播放器可以橫空出世了吧！？如果您覺得意猶未盡的話，則還可以用windowsapi函數進行開發，只不過api所能控制的就簡單多了(windowsapi函數也是借用mci驅動程序來實現的。)

windows中mciexecute函數支持wav、rmi、mid、avi(可以有聲音)等文件。可在聲明中加入如下代碼：

private declare function mciexecute lib "winmmm.dll"(byval lpstrcommand as string)as long

private sub form-load ()

dim x

x=mciexecute ("play e:\mpegav\music01.dat")

’如果您的vcd中mpegav目錄下的文件名不是music01.dat,則改為avseq01.dat (下同)

end sub

按f5運行程序即自動播放vcd。

windows中mcisendstring函數同樣可以播放上述類型的文件。在聲明中加入如下代碼：

private declare function mcisendstring lib "winmmm.dll" alias "mcisendstringa"(byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long，byval hwndcallback as long) as long

private sub form-load ()

dim x

x= mcisendstring ("play e:\mpegav\music01.dat",0&,0,0)

end sub

按f5運行程序也自動播放vcd。

再給出一個小程序，運行時它能自動播放您的cd音樂，然后將控制權還給vb應用程序，但不影響計算機的其它操作(當然您的cd-rom中要有cd才行！)。在聲明中加入如下代碼：

private declare function mcisendstring lib "winmmm.dll" alias "mcisendstringa"(byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long， byval hwndcallback as long) as long

private sub form-load ()

s$="play cdaudioa’

x&= mcisendstring (s$,0&,0,0)

end sub

以上就是VisualBasic中怎么實現多畫面播放功能，小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。