VisualBasic中怎么實(shí)現(xiàn)多畫面播放功能

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

文章目錄  

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

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

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

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

(5) 增強(qiáng)了鼠標(biāo)的右鍵功能，用它可以控制各畫面的大小(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，每次都有了很大的改進(jìn)，如1.0版本中有幾個屬性是只讀的(例如，displaymode只能為amvtime，而不能改為amvframes)。該控件支持音頻文件(.wav、.mid、.rmi)、影片文件(.avi、.mov、.mmm、.mpeg、.mpg、.mpa、.mpv)和vcd文件(.dat)等。播放時若用鼠標(biāo)右鍵單擊畫面，則可以直接對畫面的播放、暫停、停止等進(jìn)行控制，讀者還可以自行在“屬性”欄中對影片播放進(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視頻解碼器。

首先，我們建立一個“項(xiàng)目”，依次選擇“項(xiàng)目/部件”，然后添加microsoft activemoviecontrol (amovie.ocx)、microsoft commandialog control(comdlg32.ocx)，控件即出現(xiàn)在“工具箱”中。將上述兩個控件加進(jìn)窗體，再單擊“菜單”工具欄，建立一個主菜單項(xiàng)：“文件”(file)及其子菜單項(xiàng)：“打開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進(jìn)行控制。還可以在“文件”(file)中依次加入子菜單：“打開b畫面”(openb)、“打開c畫面”(openc)，并相應(yīng)地加入activemovie2、 activemovie3等多個畫面，將上述程序代碼略為改動后加入。這樣，當(dāng)您按下f5鍵即運(yùn)行程序，打開您想要播放的vcd文件就可以欣賞vcd了。在屏幕上單擊右鍵，還可以控制畫面呢！

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

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

我們還增加了一個定義任意播放時間的主菜單項(xiàng)：“時間”(time)及其子菜單項(xiàng)：“畫面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分鐘。

我們再增加一個主菜單項(xiàng)：“屏幕”(screen)及其子菜單項(xiàng)：“全屏a”(fullscreena)，用來控制屏幕大?。?/p>

private sub fullscreena -click ()

on error resume next

activemovie1.fullscreenmode=true

activemovie1.run

activemovie1.moviewindowsize =amvmaximized

end sub

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

moviewindowsize也是控制屏幕的大小：(1)全屏大?。篴ctivemovie1.moviewindow-size =amvmaximized；(2)正常大?。篴ctivemovie1.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版在我的創(chuàng)新awe64頂級聲卡中的表現(xiàn)很不盡人意，但2.0版卻把我拉“科達(dá)”音箱功能在創(chuàng)新awe64的驅(qū)動下發(fā)揮得淋漓盡致！想必microsoft 公司對activemovie控制器中內(nèi)嵌的mpeg音頻解碼器下了苦功！

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

private sub soundadd -click ()

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時效果最好！

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

private sub autoreplay -click ()

activemovie1.autorewind= true

’ autorewind設(shè)置播放時是否“自動播放”

end sub

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

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

經(jīng)過上面的設(shè)計，功能也湊合了。行了嗎？別急！我們還想將界面搞得漂亮一點(diǎn)。例如，增加工具欄，加強(qiáng)鼠標(biāo)右鍵的功能和畫面中的雙擊功能等。

如果我們想在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是我們在菜單中額外增加的，子菜單內(nèi)容可自定義(但要記住在設(shè)計時將名為“menuok”的菜單設(shè)置成不可見)。例如：(1)控制vcd“暫?！保?activemovie1.parse； (2)控制vcd“運(yùn)行”： activemovie1.run；(3)控制vcd“停止”： activemovie1.stop；(4)控制vcd“自動播放”： activemovie1.autostart=true。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

(17) tooltiptext：當(dāng)光標(biāo)停留在畫面時出現(xiàn)的提示文字。

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

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

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

mciwnd控件的屬性有：

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

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

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

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

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

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

7) positionstring：返回打開的mci設(shè)備的當(dāng)前位置；

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

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

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

11)tooltiptext：返回/設(shè)置當(dāng)鼠標(biāo)停留在畫面時的文本；

12)timefreq：指定時間周期；

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

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

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

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

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

windows中mciexecute函數(shù)支持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運(yùn)行程序即自動播放vcd。

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

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運(yùn)行程序也自動播放vcd。

再給出一個小程序，運(yùn)行時它能自動播放您的cd音樂，然后將控制權(quán)還給vb應(yīng)用程序，但不影響計算機(jī)的其它操作(當(dāng)然您的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中怎么實(shí)現(xiàn)多畫面播放功能，小編相信有部分知識點(diǎn)可能是我們?nèi)粘９ぷ鲿姷交蛴玫降?。希望你能通過這篇文章學(xué)到更多知識。更多詳情敬請關(guān)注億速云行業(yè)資訊頻道。