多媒體編程初步VisualBasic程序設(shè)計(jì)教程2本章介紹：播放動(dòng)畫為應(yīng)用程序定義動(dòng)畫精靈多媒體MCI控件RealAudioActive控件MicrosoftActiveMovie控件VisualBasic程序設(shè)計(jì)教程3

和前面各章一樣，我們先來看一個(gè)MP3播放器的例子。界面效果如圖所示。在程序中，使用了通用文件對(duì)話框CommonDialog和控制播放進(jìn)度的控件滑動(dòng)條Slider以及VB的多媒體控件MMControl。使用定時(shí)器控制滑動(dòng)條的進(jìn)度。其中多媒體控件、滑動(dòng)條控件分別在“部件”中的名稱為15.2一個(gè)MP3播放器的示例程序MicrosoftMultiMediaControl6和MicrosoftWindowsCommonControl6.0。

VisualBasic程序設(shè)計(jì)教程4

文字處理功能是多媒體技術(shù)中的一個(gè)重要內(nèi)容。在VB中，一般的文字效果如立體字、色彩或者字體變大變小等，都是編程實(shí)現(xiàn)的，相對(duì)也比較簡(jiǎn)單。對(duì)一些較為復(fù)雜的如美術(shù)字、字體旋轉(zhuǎn)、顏色漸變、豎排等，都需要使用API技術(shù)。API技術(shù)不在本書范圍，因此我們這里簡(jiǎn)單介紹文字的程序處理。15.3文字效果VisualBasic程序設(shè)計(jì)教程51．立體文字 在窗體（或?qū)ο螅┥狭Ⅲw文字的顯示，是將同一個(gè)顯示的字符采用不同的顏色在窗體上定位輸出兩次，在第二次輸出時(shí)適當(dāng)偏移輸出的位置。

【例15-1】在窗體上顯示立體文字。顯示效果如圖所示。VisualBasic程序設(shè)計(jì)教程62．滾動(dòng)文字 滾動(dòng)文字包括在窗體上由右往左、自下而上的顯示效果，類似于電影電視中的片頭字幕效果。實(shí)現(xiàn)滾動(dòng)文字的方法之一是通過定時(shí)的方式使字所在的控件（比如標(biāo)簽）不斷地移動(dòng)位置，因而在視覺上產(chǎn)生了文字滾動(dòng)的效果。VisualBasic程序設(shè)計(jì)教程73．伸縮文字如果窗口的文字由大變小，再由小變大，這個(gè)效果看上去就是文字的伸縮。伸縮文字也是比較簡(jiǎn)單的一個(gè)設(shè)計(jì)，就是在一定的事件間隔中改變文字的位置和大小。VisualBasic程序設(shè)計(jì)教程8 VB中使用控件Animation創(chuàng)建一個(gè)對(duì)象，允許被用來播放即時(shí)動(dòng)畫，一般支持.AVI格式。AVI格式允許視頻和音頻交錯(cuò)在一起同步播放。而Animation只能播放沒有聲音的AVI文件。

【例15-4】編寫一個(gè)復(fù)制文件的動(dòng)畫界面程序。程序界面如圖所示VisualBasic程序設(shè)計(jì)教程91．Animation所在的位置使用Animation，需要從“部件”對(duì)話框中打開“MicrosoftWindowsCommonControls-2.60，添加到VB的工具箱中。2．Animation的屬性

Animation的許多屬性和VB控件的同名屬性相同。這里簡(jiǎn)單介紹其幾個(gè)主要的專用屬性，見表所示。VisualBasic程序設(shè)計(jì)教程10屬性項(xiàng)描述AutoPlay加載AVI文件后，是否自動(dòng)播放。邏輯值，默認(rèn)為FalseBackStyle選擇控件在透明的背景上播放動(dòng)畫（值為0），值1為動(dòng)畫原背景Center在Animation控件中的AVI文件是否居中。默認(rèn)FalseEnabled設(shè)置一個(gè)值，決定一個(gè)對(duì)象是否響應(yīng)用戶生成事件，默認(rèn)為TrueToolTipText如果使用Tip提示，設(shè)置提示的文本Visible設(shè)置一個(gè)值，決定對(duì)象是否可見。VisualBasic程序設(shè)計(jì)教程113．Animation方法動(dòng)畫控件Animation有多種方法，其使用與一般控件方法的使用相同。主要的方法 （1）Open。打開播放的AVI文件。（2）Close。使控件Animation關(guān)閉當(dāng)前打開的AVI文件。（3）Stop。在Animation中停止播放AVI文件。（4）Play。開始播放動(dòng)畫。VisualBasic程序設(shè)計(jì)教程12

動(dòng)畫精靈這是Microsoft為改善傳統(tǒng)的人機(jī)交互界面而設(shè)計(jì)的一個(gè)非常有意思的技術(shù)。我們?cè)谠S多Windows程序中見到過“小助手”之類的動(dòng)畫精靈，這就是Agent控件的作用。最初Agent預(yù)定了三個(gè)動(dòng)畫人物的形象。Agent預(yù)定義的三個(gè)動(dòng)畫精靈，從左到右為：Genie、Merlin、Robby15.5為應(yīng)用程序定義動(dòng)畫精靈VisualBasic程序設(shè)計(jì)教程13VB中有部件MicrosoftAgentControl2.0，但還是需要檢查一下你的機(jī)器上支持不支持Genie等動(dòng)畫精靈。精靈動(dòng)畫人物是以文件的形式提供的，描述文件的后綴為.acs，一個(gè)文件代表一個(gè)動(dòng)畫精靈人物。它們?cè)跈C(jī)器上默認(rèn)存放的位置為C:\Windows\MSAgent\Chars，另外安裝MSOffice的機(jī)器在Office10文件夾下面也有幾個(gè)動(dòng)畫精靈人物，如Rover和F1等。

【例15.5】顯示動(dòng)畫精靈任務(wù)的示例

VisualBasic程序設(shè)計(jì)教程14

VB中的MicrosoftMultiMdiaControl6.0作為支持MCI的控件，在“部件”中選擇后被添加到工具箱，就可以在窗體上放置一個(gè)MCI的組合按鈕，如圖15.8所示。這些按鈕都是待激活的。必須說明的是，在對(duì)象瀏覽器中，MCI是一個(gè)大的范圍，我們這里只介紹其中的一個(gè)類MMControl。15.6多媒體MCI控件VisualBasic程序設(shè)計(jì)教程15MMControl控件的主要屬性

屬性項(xiàng)描述Command在對(duì)象瀏覽器中的MMControl中。指明執(zhí)行的命令名稱DeviceType設(shè)備類型。BuottonEnabled確定控件上的按鈕被激活，F(xiàn)alse為無效按鈕。ButoonVisble確定控件上的按鈕可見，F(xiàn)asle為不可見。Length給出被MCI控件打開的播放文件的長(zhǎng)度Mode執(zhí)行MCI設(shè)備的模式，如打開、暫停、播放、錄音、Seek等Position指出一個(gè)打開了的MCI設(shè)備的位置VisualBasic程序設(shè)計(jì)教程1615.6.1

MCI的設(shè)備

MCI支持的設(shè)備包括簡(jiǎn)單設(shè)備和復(fù)合設(shè)備。例如在Windows中的CD播放器就是一個(gè)簡(jiǎn)單的MCI設(shè)備。復(fù)合設(shè)備需要提供包括路徑在內(nèi)的數(shù)據(jù)文件，例如WimdowsMediaPlayer（MMP）就需要打開被操作的源文件。MCI使用DeviceType指定其設(shè)備類型，語句格式為：

MMControl.DeviceType[=device$]VisualBasic程序設(shè)計(jì)教程17

參數(shù)device$是要打開的MCI設(shè)備的類型，如：AVIVideo（AVI格式視頻）、CDAudio、DAT（數(shù)字錄音帶）、DigitalVideo（數(shù)字視頻）、MMMovie（多媒體電影）、Overlay（微軟的覆蓋設(shè)備）、掃描儀、Sequencer（序列發(fā)生器）、VCR（視頻磁帶設(shè)備）、視盤或WaveAudio等，也就是說上述這些都是MCI所支持的設(shè)備。VisualBasic程序設(shè)計(jì)教程18

15.6.2

MCI的Command

在設(shè)置了MCI的設(shè)備之后，就需要使用Command屬性把操作命令發(fā)給設(shè)備。在程序中，Command的使用格式為：

MMControl.Command[=cmdstring$]

參數(shù)cmdstring$給出了將要執(zhí)行的MCI命令的名稱：Open,Close,Play,Pause,Stop,Back,Step,Prev,Next,Seek,Record,Eject,Sound或Save。這些命令被立即執(zhí)行，并將錯(cuò)誤代碼存放在Error屬性中VisualBasic程序設(shè)計(jì)教程1915.6.3

MCI的事件和方法當(dāng)我們對(duì)在MCI上任何一個(gè)按鈕進(jìn)行點(diǎn)擊操作，就會(huì)產(chǎn)生一個(gè)ButtonClick事件(這里的Button均指具體的按鈕)。當(dāng)按鈕釋放，會(huì)產(chǎn)生ButtonComplete事件。對(duì)Button事件，系統(tǒng)將返回一個(gè)參數(shù)供程序進(jìn)行操作。例如單擊“Play”按鈕時(shí)，產(chǎn)生的事件過程為：

PrivateSubMMControl1_PlayClick(CancelAsInteger) …………‘編程者可以在此對(duì)播放按鈕進(jìn)行程序代碼的設(shè)計(jì)

EndSubVisualBasic程序設(shè)計(jì)教程20使用RealAudioActive控件，選擇“部件”中的“RealPlayerActiveXControlLibrary”，在工具箱欄中就顯示Real公司的著名圖標(biāo)標(biāo)記，在窗體上放置RealPlay控件，顯示如圖所示。15.7RealAudioActive控件VisualBasic程序設(shè)計(jì)教程21RealAudioPlayer的主要屬性

屬性項(xiàng)描述Autostart指定是否自動(dòng)播放指定的源文件，True或FalseConsole字符串，可以將各種不同的RealPlayer控制聚集在網(wǎng)頁上，這樣它們可以交互使用或是保持獨(dú)立，而且互相不影響Controls指定哪些控制是可見的。ImageStatus指定是否在圖像窗口中顯示狀態(tài)信息，默認(rèn)值是TtrueMaintainaspect默認(rèn)RealPlayer拉伸所有的片斷來充滿整個(gè)圖像窗口，True或FalseSource指定播放的文件或是源文件的地址：任何合法的相對(duì)或是完整的URLVisualB