淺談?dòng)肰isualBasic實(shí)現(xiàn)多畫面播放功能
2016-04-27 17:17:07 安裝信息網(wǎng)
相關(guān)鏈接： 中國(guó)安全網(wǎng) 中國(guó)質(zhì)量網(wǎng) 中國(guó)論文網(wǎng) 中國(guó)資訊網(wǎng)
所謂動(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、 .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中的影像文件都在光盤的mpegav目錄下，文件名只有兩種：avxeq01.dat或music01 .dat(如果是音樂(lè)版的卡拉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)等。播放時(shí)若用鼠標(biāo)右鍵單擊畫面，則可以直接對(duì)畫面的播放、暫停、停止等進(jìn)行控制，讀者還可以自行在“屬性”欄中對(duì)影片播放進(jìn)行控制設(shè)置，諸如設(shè)置“播放次數(shù)”、“音量”、“影片大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“顏色”、“過(guò)濾器”等。這種技術(shù)的實(shí)現(xiàn)實(shí)際上是vb調(diào)用activemovie控制器來(lái)完成的，而activemovie控制器內(nèi)嵌了microsoft mpeg音頻解碼器和microsoft mpeg視頻解碼器。
首先，我們建立一個(gè)“項(xiàng)目”，依次選擇“項(xiàng)目/部件”，然后添加microsoft activemoviecontrol (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 ="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
這是對(duì)單個(gè)的activemovie1進(jìn)行控制。還可以在“文件”(file)中依次加入子菜單：“打開b畫面”(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 ,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 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(15分鐘后)；(3)activemovie1.currentpo-sition =1800(30分鐘后)。依次類推，但是不能超過(guò)60分鐘。
我們?cè)僭黾右粋�(gè)主菜單項(xiàng)：“屏幕”(screen)及其子菜單項(xiàng)：“全屏a”(fullscreena)，用來(lái)控制屏幕大�。�
private sub fullscreena -click ()
on error resume next
activemovie1.fullscreenmode=true
activemovie1.run
activemovie1.moviewindowsize =amvmaximized
end sub
fullscreenmode用來(lái)控制畫面是否為全屏，當(dāng)它為true時(shí)則全屏方式播放vcd，為false時(shí)則取消全屏方式。
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。
我們可以隨意控制屏幕了。下面，讓我們?cè)侔崖曇艨刂埔幌掳桑?nbsp;
microsoft activemovie控件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)，分別用來(lái)控制聲音的增強(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時(shí)效果最好！
我們還需要讓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 sub
private sub showtime -click ()
on error resume next
activemovie1. displaymode =amvtimes
end sub
經(jīng)過(guò)上面的設(shè)計(jì)，功能也湊合了。行了嗎？別急！我們還想將界面搞得漂亮一點(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是我們?cè)诓藛沃蓄~外增加的，子菜單內(nèi)容可自定義(但要記住在設(shè)計(jì)時(shí)將名為“menuok”的菜單設(shè)置成不可見)。例如：(1)控制vcd“暫�！保� activemovie1.parse； (2)控制vcd“運(yùn)行”： activemovie1.run；(3)控制vcd“停止”： activemovie1.stop；(4)控制vcd“自動(dòng)播放”： activemovie1.autostart=true。
activemovie還有非常有用的其它屬性：
(1) allowchangedisplaymode：運(yùn)行時(shí)是否允許改變顯示的模式；
(2) allowhidecontrols：運(yùn)行時(shí)顯示/隱藏控制面板；
(3) allowhidedisplay：運(yùn)行時(shí)顯示/隱藏顯示面板；
(4) appearance：設(shè)置面板的外觀(平面或3d)；
(5) autostart：設(shè)置打開vcd文件后是否“自動(dòng)播放”；
(6) enablecontextmenu：當(dāng)在畫面中右鍵單擊時(shí)是否允許出現(xiàn)控制菜單(設(shè)成false時(shí)可以顯示您自行設(shè)計(jì)的控制菜單)；
(7) filename：設(shè)置activemovie播放的文件名；
(8) playcount：設(shè)置播放次數(shù)；
(9) rate：設(shè)置播放時(shí)的速率，為1時(shí)為正常播放，大于1時(shí)為快進(jìn)(過(guò)大時(shí)可能無(wú)聲、無(wú)影)；
(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)停留在畫面時(shí)出現(xiàn)的提示文字。
我們除了可用microsoft的activemovie控件進(jìn)行開發(fā)外，還可以用mciwnd控件來(lái)進(jìn)行開發(fā)(可惜二者不能同時(shí)使用。換言之，單純用mciwnd無(wú)法制作畫中畫，但mciwnd可以和activemovie“和平共處”，這樣我們就可以用mciwnd制作一個(gè)“特別版vcd”。值得一提的是，mciwnd聲音解碼非常出色，不愧“師出名門”棗xing)。這種技術(shù)的實(shí)現(xiàn)實(shí)際上是vb借助于xing的mci驅(qū)動(dòng)程序來(lái)實(shí)現(xiàn)的，如果沒有xing的dll程序運(yùn)行時(shí)就會(huì)出錯(cuò)。但這種技術(shù)實(shí)現(xiàn)得非常巧妙，比用vb中的ole技術(shù)來(lái)得更加隱蔽，可以設(shè)計(jì)成自己的vcd播放程序。
如果動(dòng)畫控件mciwnd不在工具欄上，可按如下方法進(jìn)行添加：
(1)從“項(xiàng)目”中選擇“部件”，再選中控件mciwnd control (mciwndx.ocx)，mciwnd控件即出現(xiàn)在“工具箱”中。
mciwnd控件的屬性有：
1) autosizemovie：控制畫面是否自動(dòng)適應(yīng)窗口，為false可能會(huì)遮掩掉部分畫面，結(jié)合autosizewindows使用；
2) autosizewindows：控制畫面是否自動(dòng)適應(yīng)原來(lái)的影片的大小，為false時(shí)可能會(huì)擠壓或拉長(zhǎng)畫面，使畫面變形，結(jié)合autosizemovie使用；
3) defaultcontextmenuenabled：當(dāng)在畫面中右鍵單擊時(shí)是否允許出現(xiàn)控制菜單(缺省值為true，這樣您將不能觸發(fā)鼠標(biāo)右鍵的mousedown、mouseup和dblclick事件 ；設(shè)成false時(shí)可以顯示您自行設(shè)計(jì)的控制菜單)；
4) filename：指定設(shè)備所要播放的文件；
5) menu：顯示/隱藏播放條上的控制菜單并設(shè)置在控制面板上單擊右鍵時(shí)是否彈出控制菜單；
6) playbar：顯示/隱藏播放條；
7) positionstring：返回打開的mci設(shè)備的當(dāng)前位置；
8) record：設(shè)置控制菜單的“保存”命令是否可用；
9) repeat：設(shè)置播放時(shí)是否“自動(dòng)重播”；
10)speed：設(shè)置播放時(shí)的速率，為1000時(shí)表示正常播放，大于1000時(shí)為快進(jìn)(過(guò)大時(shí)可能無(wú)聲、無(wú)影)，小于1000時(shí)為慢進(jìn)；
11)tooltiptext：返回/設(shè)置當(dāng)鼠標(biāo)停留在畫面時(shí)的文本；
12)timefreq：指定時(shí)間周期；
13)volume：設(shè)置mci設(shè)置的聲音大小，1000為正常值；
14)zoom：設(shè)置畫面的縮放率。
在新建窗體上添加一個(gè)mciwnd控件，并在控件上單擊鼠標(biāo)右鍵，選取“屬性”(或直接在屬性欄中進(jìn)行設(shè)置)，在filename中設(shè)置您需要播放的vcd文件，按f5鍵則開始運(yùn)行。然后單擊“播放”鍵，就會(huì)自動(dòng)播放vcd。右鍵單擊圖像，可以直接對(duì)圖像的播放、暫停等進(jìn)行控制，并且可以在播放時(shí)直接設(shè)置屏幕大小(1/2屏、正常屏幕、倍屏)和控制音量，并對(duì)畫面進(jìn)行打開、保存、關(guān)閉、復(fù)制、配置(顯示xing的有關(guān)信息)等操作。但是，要想更好地控制畫面，我們還得編程，程序參見activemovie控件的編程。
令人鼓舞的是，該控件幾乎支持所有上述的多媒體文件。在“命令”行中可直接輸入豐富的mci指令(如基本的play、close、stop、open、info、capability、pause、put、record、save、resume、seek、set等等。)
怎么樣？您的vcd播放器可以橫空出世了吧�。咳绻X得意猶未盡的話，則還可以用windowsapi函數(shù)進(jìn)行開發(fā)，只不過(guò)api所能控制的就簡(jiǎn)單多了(windowsapi函數(shù)也是借用mci驅(qū)動(dòng)程序來(lái)實(shí)現(xiàn)的。)
windows中mciexecute函數(shù)支持wav、rmi、mid、avi(可以有聲音)等文件�？稍诼暶髦屑尤肴缦麓a：
private declare function mciexecute lib "winmmm.dll"(byval lpstrcommand as string)as long
private sub form-load ()
dim x
x=mciexecute ("play e:mpegavmusic01.dat")
’如果您的vcd中mpegav目錄下的文件名不是music01.dat,則改為avseq01.dat (下同)
end sub
按f5運(yùn)行程序即自動(dòng)播放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:mpegavmusic01.dat",0&,0,0)
end sub
按f5運(yùn)行程序也自動(dòng)播放vcd。
再給出一個(gè)小程序，運(yùn)行時(shí)它能自動(dòng)播放您的cd音樂(lè)，然后將控制權(quán)還給vb應(yīng)用程序，但不影響計(jì)算機(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
上述程序在中文windows 95 osr2、Visual Basic中文專業(yè)版下調(diào)試通過(guò)。
多媒體是明天計(jì)算機(jī)的核心。極好的聲音效果和音樂(lè)、完全的運(yùn)動(dòng)視頻和動(dòng)畫給我們所需的信息帶來(lái)了生機(jī)和活力，很難相信沒有圖像、聲音和動(dòng)畫的程序是完美的。通過(guò)上面的討論，我們會(huì)由衷地嘆服：在visual basic中控制各種多媒體設(shè)備是多么地輕而易舉，簡(jiǎn)直是信手拈來(lái)！
筆者前段時(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、 .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中的影像文件都在光盤的mpegav目錄下，文件名只有兩種：avxeq01.dat或music01 .dat(如果是音樂(lè)版的卡拉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)等。播放時(shí)若用鼠標(biāo)右鍵單擊畫面，則可以直接對(duì)畫面的播放、暫停、停止等進(jìn)行控制，讀者還可以自行在“屬性”欄中對(duì)影片播放進(jìn)行控制設(shè)置，諸如設(shè)置“播放次數(shù)”、“音量”、“影片大小(1/16、1/4、1/2、1、2倍和全屏”、“面板”、“顏色”、“過(guò)濾器”等。這種技術(shù)的實(shí)現(xiàn)實(shí)際上是vb調(diào)用activemovie控制器來(lái)完成的，而activemovie控制器內(nèi)嵌了microsoft mpeg音頻解碼器和microsoft mpeg視頻解碼器。
首先，我們建立一個(gè)“項(xiàng)目”，依次選擇“項(xiàng)目/部件”，然后添加microsoft activemoviecontrol (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 ="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
這是對(duì)單個(gè)的activemovie1進(jìn)行控制。還可以在“文件”(file)中依次加入子菜單：“打開b畫面”(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 ,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 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(15分鐘后)；(3)activemovie1.currentpo-sition =1800(30分鐘后)。依次類推，但是不能超過(guò)60分鐘。
我們?cè)僭黾右粋�(gè)主菜單項(xiàng)：“屏幕”(screen)及其子菜單項(xiàng)：“全屏a”(fullscreena)，用來(lái)控制屏幕大�。�
private sub fullscreena -click ()
on error resume next
activemovie1.fullscreenmode=true
activemovie1.run
activemovie1.moviewindowsize =amvmaximized
end sub
fullscreenmode用來(lái)控制畫面是否為全屏，當(dāng)它為true時(shí)則全屏方式播放vcd，為false時(shí)則取消全屏方式。
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。
我們可以隨意控制屏幕了。下面，讓我們?cè)侔崖曇艨刂埔幌掳桑?nbsp;
microsoft activemovie控件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)，分別用來(lái)控制聲音的增強(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時(shí)效果最好！
我們還需要讓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 sub
private sub showtime -click ()
on error resume next
activemovie1. displaymode =amvtimes
end sub
經(jīng)過(guò)上面的設(shè)計(jì)，功能也湊合了。行了嗎？別急！我們還想將界面搞得漂亮一點(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是我們?cè)诓藛沃蓄~外增加的，子菜單內(nèi)容可自定義(但要記住在設(shè)計(jì)時(shí)將名為“menuok”的菜單設(shè)置成不可見)。例如：(1)控制vcd“暫�！保� activemovie1.parse； (2)控制vcd“運(yùn)行”： activemovie1.run；(3)控制vcd“停止”： activemovie1.stop；(4)控制vcd“自動(dòng)播放”： activemovie1.autostart=true。
activemovie還有非常有用的其它屬性：
(1) allowchangedisplaymode：運(yùn)行時(shí)是否允許改變顯示的模式；
(2) allowhidecontrols：運(yùn)行時(shí)顯示/隱藏控制面板；
(3) allowhidedisplay：運(yùn)行時(shí)顯示/隱藏顯示面板；
(4) appearance：設(shè)置面板的外觀(平面或3d)；
(5) autostart：設(shè)置打開vcd文件后是否“自動(dòng)播放”；
(6) enablecontextmenu：當(dāng)在畫面中右鍵單擊時(shí)是否允許出現(xiàn)控制菜單(設(shè)成false時(shí)可以顯示您自行設(shè)計(jì)的控制菜單)；
(7) filename：設(shè)置activemovie播放的文件名；
(8) playcount：設(shè)置播放次數(shù)；
(9) rate：設(shè)置播放時(shí)的速率，為1時(shí)為正常播放，大于1時(shí)為快進(jìn)(過(guò)大時(shí)可能無(wú)聲、無(wú)影)；
(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)停留在畫面時(shí)出現(xiàn)的提示文字。
我們除了可用microsoft的activemovie控件進(jìn)行開發(fā)外，還可以用mciwnd控件來(lái)進(jìn)行開發(fā)(可惜二者不能同時(shí)使用。換言之，單純用mciwnd無(wú)法制作畫中畫，但mciwnd可以和activemovie“和平共處”，這樣我們就可以用mciwnd制作一個(gè)“特別版vcd”。值得一提的是，mciwnd聲音解碼非常出色，不愧“師出名門”棗xing)。這種技術(shù)的實(shí)現(xiàn)實(shí)際上是vb借助于xing的mci驅(qū)動(dòng)程序來(lái)實(shí)現(xiàn)的，如果沒有xing的dll程序運(yùn)行時(shí)就會(huì)出錯(cuò)。但這種技術(shù)實(shí)現(xiàn)得非常巧妙，比用vb中的ole技術(shù)來(lái)得更加隱蔽，可以設(shè)計(jì)成自己的vcd播放程序。
如果動(dòng)畫控件mciwnd不在工具欄上，可按如下方法進(jìn)行添加：
(1)從“項(xiàng)目”中選擇“部件”，再選中控件mciwnd control (mciwndx.ocx)，mciwnd控件即出現(xiàn)在“工具箱”中。
mciwnd控件的屬性有：
1) autosizemovie：控制畫面是否自動(dòng)適應(yīng)窗口，為false可能會(huì)遮掩掉部分畫面，結(jié)合autosizewindows使用；
2) autosizewindows：控制畫面是否自動(dòng)適應(yīng)原來(lái)的影片的大小，為false時(shí)可能會(huì)擠壓或拉長(zhǎng)畫面，使畫面變形，結(jié)合autosizemovie使用；
3) defaultcontextmenuenabled：當(dāng)在畫面中右鍵單擊時(shí)是否允許出現(xiàn)控制菜單(缺省值為true，這樣您將不能觸發(fā)鼠標(biāo)右鍵的mousedown、mouseup和dblclick事件 ；設(shè)成false時(shí)可以顯示您自行設(shè)計(jì)的控制菜單)；
4) filename：指定設(shè)備所要播放的文件；
5) menu：顯示/隱藏播放條上的控制菜單并設(shè)置在控制面板上單擊右鍵時(shí)是否彈出控制菜單；
6) playbar：顯示/隱藏播放條；
7) positionstring：返回打開的mci設(shè)備的當(dāng)前位置；
8) record：設(shè)置控制菜單的“保存”命令是否可用；
9) repeat：設(shè)置播放時(shí)是否“自動(dòng)重播”；
10)speed：設(shè)置播放時(shí)的速率，為1000時(shí)表示正常播放，大于1000時(shí)為快進(jìn)(過(guò)大時(shí)可能無(wú)聲、無(wú)影)，小于1000時(shí)為慢進(jìn)；
11)tooltiptext：返回/設(shè)置當(dāng)鼠標(biāo)停留在畫面時(shí)的文本；
12)timefreq：指定時(shí)間周期；
13)volume：設(shè)置mci設(shè)置的聲音大小，1000為正常值；
14)zoom：設(shè)置畫面的縮放率。
在新建窗體上添加一個(gè)mciwnd控件，并在控件上單擊鼠標(biāo)右鍵，選取“屬性”(或直接在屬性欄中進(jìn)行設(shè)置)，在filename中設(shè)置您需要播放的vcd文件，按f5鍵則開始運(yùn)行。然后單擊“播放”鍵，就會(huì)自動(dòng)播放vcd。右鍵單擊圖像，可以直接對(duì)圖像的播放、暫停等進(jìn)行控制，并且可以在播放時(shí)直接設(shè)置屏幕大小(1/2屏、正常屏幕、倍屏)和控制音量，并對(duì)畫面進(jìn)行打開、保存、關(guān)閉、復(fù)制、配置(顯示xing的有關(guān)信息)等操作。但是，要想更好地控制畫面，我們還得編程，程序參見activemovie控件的編程。
令人鼓舞的是，該控件幾乎支持所有上述的多媒體文件。在“命令”行中可直接輸入豐富的mci指令(如基本的play、close、stop、open、info、capability、pause、put、record、save、resume、seek、set等等。)
怎么樣？您的vcd播放器可以橫空出世了吧�。咳绻X得意猶未盡的話，則還可以用windowsapi函數(shù)進(jìn)行開發(fā)，只不過(guò)api所能控制的就簡(jiǎn)單多了(windowsapi函數(shù)也是借用mci驅(qū)動(dòng)程序來(lái)實(shí)現(xiàn)的。)
windows中mciexecute函數(shù)支持wav、rmi、mid、avi(可以有聲音)等文件�？稍诼暶髦屑尤肴缦麓a：
private declare function mciexecute lib "winmmm.dll"(byval lpstrcommand as string)as long
private sub form-load ()
dim x
x=mciexecute ("play e:mpegavmusic01.dat")
’如果您的vcd中mpegav目錄下的文件名不是music01.dat,則改為avseq01.dat (下同)
end sub
按f5運(yùn)行程序即自動(dòng)播放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:mpegavmusic01.dat",0&,0,0)
end sub
按f5運(yùn)行程序也自動(dòng)播放vcd。
再給出一個(gè)小程序，運(yùn)行時(shí)它能自動(dòng)播放您的cd音樂(lè)，然后將控制權(quán)還給vb應(yīng)用程序，但不影響計(jì)算機(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
上述程序在中文windows 95 osr2、Visual Basic中文專業(yè)版下調(diào)試通過(guò)。
多媒體是明天計(jì)算機(jī)的核心。極好的聲音效果和音樂(lè)、完全的運(yùn)動(dòng)視頻和動(dòng)畫給我們所需的信息帶來(lái)了生機(jī)和活力，很難相信沒有圖像、聲音和動(dòng)畫的程序是完美的。通過(guò)上面的討論，我們會(huì)由衷地嘆服：在visual basic中控制各種多媒體設(shè)備是多么地輕而易舉，簡(jiǎn)直是信手拈來(lái)！
關(guān)鍵字：通訊
上一篇:IP多媒體子系統(tǒng)綜述
下一篇:塑料光纖傳光原理略談
