1、第15章 多媒體編程初步,Visual Basic 程序設(shè)計(jì)教程,Visual Basic程序設(shè)計(jì)教程,2,本章介紹： 文字效果 播放動(dòng)畫(huà) 為應(yīng)用程序定義動(dòng)畫(huà)精靈 多媒體MCI控件 RealAudio Active控件 Microsoft ActiveMovie控件,Visual Basic程序設(shè)計(jì)教程,3,和前面各章一樣，我們先來(lái)看一個(gè)MP3播放器的例子。界面效果如圖所示。,在程序中，使用了通用文件對(duì)話框CommonDialog和控制播放進(jìn)度的控件滑動(dòng)條Slider以及VB的多媒體控件MMControl。使用定時(shí)器控制滑動(dòng)條的進(jìn)度。其中多媒體控件、滑動(dòng)條控件分別在“部件”中的名稱(chēng)為,15.2

2、 一個(gè)MP3播放器的示例程序,Microsoft MultiMedia Control 6和Microsoft Windows Common Control 6.0。,Visual Basic程序設(shè)計(jì)教程,4,文字處理功能是多媒體技術(shù)中的一個(gè)重要內(nèi)容。在VB中，一般的文字效果如立體字、色彩或者字體變大變小等，都是編程實(shí)現(xiàn)的，相對(duì)也比較簡(jiǎn)單。對(duì)一些較為復(fù)雜的如美術(shù)字、字體旋轉(zhuǎn)、顏色漸變、豎排等，都需要使用API技術(shù)。API技術(shù)不在本書(shū)范圍，因此我們這里簡(jiǎn)單介紹文字的程序處理。,15.3 文字效果,Visual Basic程序設(shè)計(jì)教程,5,1立體文字 在窗體（或?qū)ο螅┥狭Ⅲw文字的顯示，是將同一個(gè)顯

3、示的字符采用不同的顏色在窗體上定位輸出兩次，在第二次輸出時(shí)適當(dāng)偏移輸出的位置。 【例15-1】在窗體上顯示立體文字。顯示效果如圖所示。,Visual Basic程序設(shè)計(jì)教程,6,2滾動(dòng)文字 滾動(dòng)文字包括在窗體上由右往左、自下而上的顯示效果，類(lèi)似于電影電視中的片頭字幕效果。實(shí)現(xiàn)滾動(dòng)文字的方法之一是通過(guò)定時(shí)的方式使字所在的控件（比如標(biāo)簽）不斷地移動(dòng)位置，因而在視覺(jué)上產(chǎn)生了文字滾動(dòng)的效果。,Visual Basic程序設(shè)計(jì)教程,7,3伸縮文字 如果窗口的文字由大變小，再由小變大，這個(gè)效果看上去就是文字的伸縮。伸縮文字也是比較簡(jiǎn)單的一個(gè)設(shè)計(jì)，就是在一定的事件間隔中改變文字的位置和大小。,Visual

4、Basic程序設(shè)計(jì)教程,8,VB中使用控件Animation創(chuàng)建一個(gè)對(duì)象，允許被用來(lái)播放即時(shí)動(dòng)畫(huà)，一般支持.AVI格式。AVI格式允許視頻和音頻交錯(cuò)在一起同步播放。而Animation只能播放沒(méi)有聲音的AVI文件。 【例15-4】編寫(xiě)一個(gè)復(fù)制文件的動(dòng)畫(huà)界面程序。程序界面如圖所示,Visual Basic程序設(shè)計(jì)教程,9,1Animation所在的位置 使用Animation，需要從“部件”對(duì)話框中打開(kāi)“Microsoft Windows Common Controls-2.60，添加到VB的工具箱中。 2Animation的屬性 Animation的許多屬性和VB控件的同名屬性相同。這里簡(jiǎn)單介

5、紹其幾個(gè)主要的專(zhuān)用屬性，見(jiàn)表所示。,Visual Basic程序設(shè)計(jì)教程,10,Visual Basic程序設(shè)計(jì)教程,11,3Animation方法 動(dòng)畫(huà)控件Animation有多種方法，其使用與一般控件方法的使用相同。主要的方法 （1）Open。打開(kāi)播放的AVI文件。 （2）Close。使控件Animation關(guān)閉當(dāng)前打開(kāi)的AVI文件。 （3）Stop。在Animation中停止播放AVI文件。 （4）Play。開(kāi)始播放動(dòng)畫(huà)。,Visual Basic程序設(shè)計(jì)教程,12,動(dòng)畫(huà)精靈這是Microsoft為改善傳統(tǒng)的人機(jī)交互界面而設(shè)計(jì)的一個(gè)非常有意思的技術(shù)。我們?cè)谠S多Windows程序中見(jiàn)到過(guò)“

6、小助手”之類(lèi)的動(dòng)畫(huà)精靈，這就是Agent控件的作用。最初Agent預(yù)定了三個(gè)動(dòng)畫(huà)人物的形象。,Agent預(yù)定義的三個(gè)動(dòng)畫(huà)精靈，從左到右為：Genie、Merlin、Robby,15.5 為應(yīng)用程序定義動(dòng)畫(huà)精靈,Visual Basic程序設(shè)計(jì)教程,13,VB中有部件Microsoft Agent Control 2.0，但還是需要檢查一下你的機(jī)器上支持不支持Genie等動(dòng)畫(huà)精靈。精靈動(dòng)畫(huà)人物是以文件的形式提供的，描述文件的后綴為.acs，一個(gè)文件代表一個(gè)動(dòng)畫(huà)精靈人物。它們?cè)跈C(jī)器上默認(rèn)存放的位置為C:WindowsMSAgentChars，另外安裝MS Office的機(jī)器在Office10文件夾

7、下面也有幾個(gè)動(dòng)畫(huà)精靈人物，如Rover和F1等。 【例15.5】顯示動(dòng)畫(huà)精靈 任務(wù)的示例,Visual Basic程序設(shè)計(jì)教程,14,VB中的Microsoft MultiMdia Control 6.0作為支持MCI的控件，在“部件”中選擇后被添加到工具箱，就可以在窗體上放置一個(gè)MCI的組合按鈕，如圖15.8所示。這些按鈕都是待激活的。必須說(shuō)明的是，在對(duì)象瀏覽器中，MCI是一個(gè)大的范圍，我們這里只介紹其中的一個(gè)類(lèi)MMControl。,15.6 多媒體MCI控件,Visual Basic程序設(shè)計(jì)教程,15,MMControl 控件的主要屬性,Visual Basic程序設(shè)計(jì)教程,16,15.6

8、.1 MCI的設(shè)備 MCI支持的設(shè)備包括簡(jiǎn)單設(shè)備和復(fù)合設(shè)備。例如在Windows中的CD播放器就是一個(gè)簡(jiǎn)單的MCI設(shè)備。復(fù)合設(shè)備需要提供包括路徑在內(nèi)的數(shù)據(jù)文件，例如Wimdows Media Player（MMP）就需要打開(kāi)被操作的源文件。 MCI使用DeviceType指定其設(shè)備類(lèi)型，語(yǔ)句格式為： MMControl.DeviceType = device$,Visual Basic程序設(shè)計(jì)教程,17,參數(shù) device$ 是要打開(kāi)的 MCI 設(shè)備的類(lèi)型， 如：AVIVideo（AVI格式視頻）、CDAudio、DAT（數(shù)字錄音帶）、DigitalVideo（數(shù)字視頻）、MMMovie（多媒

9、體電影）、Overlay（微軟的覆蓋設(shè)備）、掃描儀、Sequencer（序列發(fā)生器）、VCR（視頻磁帶設(shè)備）、視盤(pán)或 WaveAudio等，也就是說(shuō)上述這些都是MCI所支持的設(shè)備。,Visual Basic程序設(shè)計(jì)教程,18,15.6.2 MCI的Command 在設(shè)置了MCI的設(shè)備之后，就需要使用Command屬性把操作命令發(fā)給設(shè)備。在程序中，Command的使用格式為： MMControl.Command = cmdstring$ 參數(shù) cmdstring$ 給出了將要執(zhí)行的 MCI 命令的名稱(chēng)：Open, Close, Play, Pause, Stop, Back, Step, Pre

10、v, Next, Seek, Record, Eject, Sound 或 Save。這些命令被立即執(zhí)行，并將錯(cuò)誤代碼存放在 Error 屬性中,Visual Basic程序設(shè)計(jì)教程,19,15.6.3 MCI的事件和方法 當(dāng)我們對(duì)在MCI上任何一個(gè)按鈕進(jìn)行點(diǎn)擊操作，就會(huì)產(chǎn)生一個(gè)Button Click事件(這里的Button均指具體的按鈕)。當(dāng)按鈕釋放，會(huì)產(chǎn)生ButtonComplete事件。 對(duì)Button事件，系統(tǒng)將返回一個(gè)參數(shù)供程序進(jìn)行操作。例如單擊“Play”按鈕時(shí)，產(chǎn)生的事件過(guò)程為： Private Sub MMControl1_PlayClick(Cancel As Intege

11、r) 編程者可以在此對(duì)播放按鈕進(jìn)行程序代碼的設(shè)計(jì) End Sub,Visual Basic程序設(shè)計(jì)教程,20,使用RealAudio Active控件，選擇“部件”中的“Real Player ActiveX Control Library”，在工具箱欄中就顯示Real公司的著名圖標(biāo)標(biāo)記，在窗體上放置Real Play控件，顯示如圖所示。,15.7 RealAudio Active控件,Visual Basic程序設(shè)計(jì)教程,21,RealAudio Player的主要屬性,Visual Basic程序設(shè)計(jì)教程,22,【例15-6】 設(shè)計(jì)一個(gè)使用RealAudio Player控件的媒體播放器。,Visual Basic程序設(shè)計(jì)教程,23,MicroSoft ActiveMovie Control是微軟公司推出的一個(gè)多媒體控件，支持在Http和VB下的多種媒體的操作，這個(gè)控件是為了設(shè)計(jì)在更高層次上的多媒體應(yīng)用。從“部件”