《多媒體技術(shù)與應(yīng)用教程》第章：Visual Basic多媒體程序設(shè)計(jì)

第10章VisualBasic多媒體程序設(shè)計(jì)（時(shí)間：3次課，6學(xué)時(shí)）教學(xué)提示：本章學(xué)習(xí)應(yīng)該注意VisualBasic中如何使用多媒體元素，尤其注意VisualBasic中控件的概念，因?yàn)樵S多功能的實(shí)現(xiàn)都要依賴控件來(lái)實(shí)現(xiàn)。教學(xué)目標(biāo)：通過(guò)本章的學(xué)習(xí)，用戶應(yīng)掌握有關(guān)VisualBasic的特點(diǎn)及一般程序的設(shè)計(jì)過(guò)程，還要掌握如何在VisualBasic中使用圖像、動(dòng)畫、音頻以及視頻文件。第10章VisualBasic多媒體程序設(shè)計(jì)第10章VisualBasic多媒體程序設(shè)計(jì)10.1VisualBasic簡(jiǎn)介10.2與多媒體有關(guān)的控件10.3在VisualBasic程序中使用圖像10.4在VisualBasic程序中使用動(dòng)畫10.5在VisualBasic程序中使用聲音10.6在VisualBasic程序中使用視頻10.7在VisualBasic程序中調(diào)用電子幻燈片10.8其他實(shí)例10.9上機(jī)指導(dǎo)10.10習(xí)題10.1VisualBasic簡(jiǎn)介10.1.1VisualBasic基本特點(diǎn)10.1.2VisualBasic設(shè)計(jì)界面10.1.3用VisualBasic開(kāi)發(fā)應(yīng)用程序10.1.1VisualBasic基本特點(diǎn)VisualBasic由Basic語(yǔ)言發(fā)展而來(lái)，是高級(jí)程序設(shè)計(jì)語(yǔ)言?！癡isual”是指可視化的圖形用戶界面(GUI)。VisualBasic是對(duì)Basic語(yǔ)言的擴(kuò)充，既保留了Basic語(yǔ)言簡(jiǎn)單易用的優(yōu)點(diǎn)，又充分利用了Windows的圖形環(huán)境，提供了嶄新的可視化設(shè)計(jì)工具。10.1.2VisualBasic設(shè)計(jì)界面啟動(dòng)VisualBasic6.0時(shí)，首先可以看到【新建工程】對(duì)話框。根據(jù)需要選擇一種開(kāi)始方式，通常選擇“標(biāo)準(zhǔn).EXE”方式，單擊【打開(kāi)】按鈕，即可進(jìn)入VisualBasic集成開(kāi)發(fā)環(huán)境，其基本界面。VisualBasic6.0集成開(kāi)發(fā)環(huán)境(IDE)主要由菜單條、工具欄、工具箱、窗體設(shè)計(jì)器、工程管理器和屬性窗口等部分組成。10.1.3用VisualBasic開(kāi)發(fā)應(yīng)用程序1.創(chuàng)建應(yīng)用程序的主要步驟(1) 創(chuàng)建應(yīng)用程序界面(2) 設(shè)置界面上各個(gè)對(duì)象的屬性(3) 編寫對(duì)象響應(yīng)的程序代碼(4) 保存工程(5) 運(yùn)行和調(diào)試程序(6)生成可執(zhí)行程序10.1.3用VisualBasic開(kāi)發(fā)應(yīng)用程序2.程序打包為了保存和安裝方便，VisualBasic語(yǔ)言提供了程序打包功能。當(dāng)VisualBasic源程序編制完成后，應(yīng)編譯可執(zhí)行的.exe文件，并制作安裝文件setup.exe。安裝文件把程序中用到的.dll文件、.vbx文件、.ocx文件等壓縮到硬盤指定的文件夾中，這個(gè)過(guò)程稱為“程序打包”。打包后的程序可記錄在CD-R或CD-RW光盤上。需要使用時(shí)，可以運(yùn)行光盤上的“setup.exe”安裝文件，VisualBasic程序以及相關(guān)的文件就可以自動(dòng)裝入硬盤中。10.2與多媒體有關(guān)的控件 10.2.1VisualBasic的控件簡(jiǎn)介10.2.2Animation控件和Multimedia控件10.2.3Animation控件的使用10.2.1VisualBasic的控件簡(jiǎn)介VisualBasic的控件可以分為內(nèi)部控件、ActiveX控件和可插入控件3類。內(nèi)部控件是VisualBasic本身提供的控件，這些控件顯示在控件箱中。ActiveX控件是VisualBasic控件箱的擴(kuò)充部分，這些控件在使用前必須添加到工具箱內(nèi)，可插入控件是由其他應(yīng)用程序創(chuàng)建的對(duì)象。利用可插入對(duì)象，可以在VisualBasic應(yīng)用程序中使用其他應(yīng)用程序的對(duì)象。10.2.2Animation控控件件和和Multimedia控控件件與多多媒媒體體有有關(guān)關(guān)的的控控件件主主要要有有Animation和和Multimedia控控件件。。1.Animation控控件件Animation控控件件用用于于播播放放簡(jiǎn)簡(jiǎn)單單的的動(dòng)動(dòng)畫畫，，有有聲聲音音的的.avi文文件件不不能能在在Animation控控件件中中使使用用，，如如果果試試圖圖裝裝載載這這樣樣的的文文件件將將會(huì)會(huì)產(chǎn)產(chǎn)生生錯(cuò)錯(cuò)誤誤。。該該控控件件是是ActiveX控控件件，，并并不不是是VisualBasic標(biāo)標(biāo)準(zhǔn)準(zhǔn).exe格格式式的的控控件件，，因因此此要要想想使使用用它它，，應(yīng)應(yīng)該該通通過(guò)過(guò)單單擊擊【【工工程程】】|【【部部件件】】(Project→→Components)命命令令添添加加MicrosoftWindowsCommonControls-26.0控控件件，，或或直直接接建建立立““VB專專業(yè)業(yè)版版””控控件件或或““VB企企業(yè)業(yè)版版””控控件件。。添添加加Animation控控件件后后的的控控件件箱箱如如圖圖10.3所所示示。。圖10.310.2.2Animation控控件件和和Multimedia控控件件2.Multimedia控件Multimedia控控件是一組按按鈕，用來(lái)向向聲卡、MIDI序列發(fā)發(fā)生器、CD-ROM驅(qū)驅(qū)動(dòng)器、視頻頻CD播放器器和視頻磁帶帶記錄器等設(shè)設(shè)備發(fā)出MCI命令。MCI設(shè)備還還支持Windows視視頻文件的回回放。10.2.3Animation控件的使使用Animation控件件和Multimedia控件都是是開(kāi)發(fā)多媒體體應(yīng)用程序時(shí)時(shí)經(jīng)常使用的的兩個(gè)控件，，而在播放音音頻、視頻文文件時(shí)較多使使用Multimedia控件，這這里先介紹Animation控件件的簡(jiǎn)單使用用，對(duì)于Multimedia控件件，將在以后后的幾節(jié)中詳詳細(xì)介紹其使使用方法。下下面先介紹使使用Animation控件播放.avi文件件實(shí)現(xiàn)類似Windows中文件刪刪除應(yīng)用程序序的例子。新建一個(gè)工程程，在窗體中中添加兩個(gè)按按鈕：Command1和Command2，，將其屬性設(shè)設(shè)置為【開(kāi)始始】和【停止止】，分別用用于開(kāi)始和停停止播放。再再添加一個(gè)Animation控件件(Animation1)和一個(gè)個(gè)標(biāo)簽控件Label1，其屬性設(shè)設(shè)置為【刪除除文件】。10.3在在VisualBasic程序序中使用圖像像10.3.1直接粘粘貼圖像10.3.2圖像與與動(dòng)畫組合10.3.1直接粘粘貼圖像1.處理圖圖像在多媒體產(chǎn)品品中，通常在在保證顯示質(zhì)質(zhì)量的前提下下，對(duì)圖像進(jìn)進(jìn)行預(yù)處理。。預(yù)處理的內(nèi)內(nèi)容包括：降降低圖像的顏顏色深度、統(tǒng)統(tǒng)一畫面尺寸寸、統(tǒng)一分辨辨率和文件格格式。2.使用圖圖像在界面上直接接粘貼圖像是是最簡(jiǎn)單的圖圖像使用形式式。但是，通通常為了靈活活使用圖像，，不直接粘貼貼圖像本身，，而只粘貼與與圖像大小相相等的空白區(qū)區(qū)域。該區(qū)域域使用Image工具創(chuàng)創(chuàng)建，圖像的的調(diào)入在程序序中進(jìn)行。10.3.2圖像與與動(dòng)畫組合初學(xué)者往往把把整幅畫面制制作成動(dòng)畫，，不僅數(shù)量大大，而且程序序的動(dòng)作速度度慢。實(shí)際上上，真正活動(dòng)動(dòng)的對(duì)象只是是其中的一小小部分，可以以在圖像中把把動(dòng)畫的那一一小部分截取取下來(lái)，作為為小動(dòng)畫的背背景。利用動(dòng)動(dòng)畫制作軟件件，在截取的的背景上制作作動(dòng)畫。然后后，在VisualBasic中中，選擇Image工具具調(diào)入圖像，，使用Animation控件調(diào)入入動(dòng)畫。仔細(xì)細(xì)調(diào)整動(dòng)畫在在圖像上的位位置，使動(dòng)畫畫恰好位于截截取背景的那那個(gè)區(qū)域。10.4在在VisualBasic程序序中使用動(dòng)畫畫10.4.1實(shí)現(xiàn)動(dòng)動(dòng)畫的幾種方方法10.4.2在VisualBasic中制作動(dòng)畫畫10.4.3幾幾種種不不同同格格式式動(dòng)動(dòng)畫畫的的播播放放10.4.1實(shí)實(shí)現(xiàn)現(xiàn)動(dòng)動(dòng)畫畫的的幾幾種種方方法法1.制制作作動(dòng)動(dòng)畫畫的的幾幾種種方方法法利用用定定時(shí)時(shí)器器控控件件，，其其實(shí)實(shí)質(zhì)質(zhì)是是每每隔隔一一段段時(shí)時(shí)間間間間隔隔移移動(dòng)動(dòng)一一次次圖圖形形或或每每隔隔一一段段時(shí)時(shí)間間間間隔隔重重新新繪繪制制圖圖形形。。交替替顯顯示示一一組組圖圖片片，，一一般般是是兩兩幅幅或或三三幅幅圖圖片片，，從從而而實(shí)實(shí)現(xiàn)現(xiàn)交交替替的的動(dòng)動(dòng)畫畫效效果果。。利用用PictureClip等等控控件件，，連連續(xù)續(xù)播播放放一一系系列列圖圖片片，，從從而而形形成成動(dòng)動(dòng)畫畫。。2.動(dòng)動(dòng)畫畫控控件件與與函函數(shù)數(shù)在VisualBasic中中，，可可以以使使用用以以下下幾幾種種方方法法來(lái)來(lái)播播放放動(dòng)動(dòng)畫畫：：使使用MCI控件件播放放動(dòng)畫畫使使用API函數(shù)數(shù)播放放動(dòng)畫畫使使外掛掛控件件播放放動(dòng)畫畫10.4.2在在VisualBasic中制制作動(dòng)動(dòng)畫1.用用定定時(shí)器器控件件實(shí)現(xiàn)現(xiàn)動(dòng)畫畫本例用用Line控件件做成成指針針式電電子鐘鐘的3個(gè)指指針，，并固固定這這些指指針的的一端端，另另一端端的坐坐標(biāo)隨隨時(shí)間間變化化，這這就形形成了了一個(gè)個(gè)鐘表表。2.用用PictureClip控件件制作作動(dòng)畫畫利用PictureClip控件件制作作動(dòng)畫畫，實(shí)實(shí)質(zhì)上上就是是把存存放在在PictureClip控控件中中的““地球球圖集集.bmp”圖圖片逐逐個(gè)放放到圖圖片框框中。。圖10.7所所示為為“地地球圖圖集.bmp””圖片片的內(nèi)內(nèi)容。。圖10.710.4.3幾幾種不不同格格式動(dòng)動(dòng)畫的的播放放動(dòng)畫的的格式式有SWF、GIF等，，不同同格式式的動(dòng)動(dòng)畫需需要不不同的的插件件，使使用不不同的的方法法進(jìn)行行播放放。1.通過(guò)過(guò)“ShockwaveFlash”控件和和“MicrosoftCommonDialogControl6.0”控件播播放Flash動(dòng)畫畫.(1)用VisualBasic新建一個(gè)個(gè)工程。(2)在工具箱中中右擊，在在打開(kāi)的菜菜單中選擇擇【部件】】選項(xiàng)，在在【部件】】對(duì)話框中中選中ShockwaveFlash控件和和MicrosoftCommonDialogControl6.0控件。(3)在窗體上創(chuàng)創(chuàng)建一個(gè)Flash控件，，命名為skFlash，并并創(chuàng)建一個(gè)個(gè)“CommonDialogControl”控控件,命名名為“CmdDlg”，用于于打開(kāi)文件件。另外還還要添加4個(gè)命令按按鈕，分別別命名為cmdPlay、cmdStop、cmdRewind、cmdOpen。(4)設(shè)置對(duì)象屬屬性，如表表10.3所示。10.4.3幾幾種不同格格式動(dòng)畫的的播放表10.3(5)在代碼窗口口中輸入以以下代碼：：PrivateSubForm_Load()CmdDlg.Filter="*.swf"'設(shè)置過(guò)過(guò)濾器，專專門打開(kāi)Flash動(dòng)畫(swf格式式)EndSubPrivateSubcmdOpen_Click()CmdDlg.ShowOpen'打開(kāi)按按鈕代碼skFlash.Movie=CmdDlg.FileNameEndSub10.4.3幾幾種不同格格式動(dòng)畫的的播放PrivateSubcmdPlay_Click()skFlash.Play'播放放按鈕代碼碼EndSubPrivateSubcmdRewind_Click()skFlash.Rewind'重頭播放放按鈕代碼碼skFlash.PlayEndSubPrivateSubcmdStop_Click()skFlash.Stop‘‘停停止按鈕代代碼圖圖10.8EndSub(6)運(yùn)運(yùn)行程序。。程序運(yùn)行行畫面如圖圖10.8所示。10.4.3幾幾種不同格格式動(dòng)畫的的播放2.使用用WebBrowser控件件播放GIF動(dòng)畫(1)由于WebBrowser控控件并不是是VisualBasic的基本控控件，因此此在使用該該控件之前前必須先將將其裝入工工具箱中。。裝入方法法為：在工工具箱中單單擊鼠標(biāo)右右鍵，選擇擇【部件】】選項(xiàng)，選選中MicrosoftInternetControls復(fù)選框，，然后單擊擊【確定】】按鈕即可可。(2)選取WebBrowser控控件(注注意，不不同版本本IE的的WebBrowser控件件的圖標(biāo)標(biāo)是不同同的，IE4.0及及以上版版本中的的WebBrowser控件件的圖標(biāo)標(biāo)是一個(gè)個(gè)地球；；IE3.0是一個(gè)個(gè)搜索圖圖標(biāo))，，添加到到窗體的的相應(yīng)位位置上。。(3)設(shè)計(jì)相應(yīng)應(yīng)代碼，，通過(guò)使使用WebBrowser控控件的Navigate方法法播放GIF動(dòng)動(dòng)畫文件件。3.播播放FLC格式式動(dòng)畫播放.flc動(dòng)畫畫文件的的方法與與.wav和和.midi并沒(méi)沒(méi)有不同同，在此此不再詳詳細(xì)介紹紹。10.5在在VisualBasic程序中中使用聲聲音10.5.1Windows高高級(jí)音頻頻函數(shù)10.5.2多多媒媒體MCI控件件10.5.3利利用用OLE控件播播放WAV聲音音文件10.5.4利利用用API函數(shù)播播放WAV聲音音文件10.5.1Windows高高級(jí)音頻頻函數(shù)采用Windows提提供的高高級(jí)音頻頻函數(shù)可可以播放放聲音，，常用于于簡(jiǎn)單聲聲音，例例如報(bào)警警聲、簡(jiǎn)簡(jiǎn)短的語(yǔ)語(yǔ)音提示示和標(biāo)志志性音樂(lè)樂(lè)片段等等。播放聲音音的高級(jí)級(jí)音頻函函數(shù)有：：MessageBeep函數(shù)數(shù)，主要用于于啟動(dòng)計(jì)計(jì)算機(jī)內(nèi)內(nèi)揚(yáng)聲器器播放報(bào)報(bào)警音響響。SndPlaySound函函數(shù)，主要用于于播放器器數(shù)據(jù)量量小于100KB的波波形音頻頻文件。。PlaySound函函數(shù)，主要在32b的的應(yīng)用程程序中播播放波形形音頻文文件。上述3種種函數(shù)的的作用是是促使計(jì)計(jì)算機(jī)內(nèi)內(nèi)揚(yáng)聲器器發(fā)聲，，不需要要使用MCI設(shè)設(shè)備。另另外不支支持MIDI音音頻信號(hào)號(hào)的播放放。10.5.2多多媒媒體MCI控件件1.使使用播放放控制按按鈕播放放聲音當(dāng)在窗體體上添加加了播放放控制按按鈕后，，屬性欄欄中的Name項(xiàng)自動(dòng)動(dòng)定義為為MMControl1。播播放控制制按鈕包包括播放放、停止止、暫停停、錄音音等9個(gè)個(gè)按鈕，，可以根根據(jù)實(shí)際際需要決決定在界界面上顯顯示的按按鈕。2.使使用用程程序序播播放放聲聲音音在制制作作多多媒媒體體產(chǎn)產(chǎn)品品時(shí)時(shí)，，一一般般不不在在界界面面上上使使用用聲聲音音控控制制按按鈕鈕，，而而是是通通過(guò)過(guò)程程序序?qū)?duì)聲聲音音進(jìn)進(jìn)行行靈靈活活的的控控制制，，操操作作的的具具體體方方法法和和使使用用播播放放控控制制器器播播放放聲聲音音類類似似，，只只有有兩兩點(diǎn)點(diǎn)不不同同：：①首首先先把把聲聲音音按按鈕鈕的的Visible屬屬性性設(shè)設(shè)置置為為False，，使使其其不不可可見(jiàn)見(jiàn)。。②在在程程序序中中安安排排控控制制命命令令，，實(shí)實(shí)現(xiàn)現(xiàn)對(duì)對(duì)聲聲音音的的控控制制。。10.5.3利利用用OLE控控件件播播放放WAV聲聲音音文文件件建立立一一個(gè)個(gè)窗窗體體，，用用鼠鼠標(biāo)標(biāo)選選擇擇OLE控控件件，，在在窗窗體體上上拖拖出出OLE區(qū)區(qū)域域，，打打開(kāi)開(kāi)如如圖圖10.11所所示示的的窗窗口口。。在在該該窗窗口口中中選選擇擇新新建建對(duì)對(duì)象象的的類類型型，，然然后后單單擊擊【【確確定定】】按按鈕鈕完完成成在在窗窗口口中中添添加加OLE控控件件的的操操作作。。添添加加OLE控控件件后后的的窗窗體體。。這樣就可可以在OLE控控件的ResourceDoc屬性性中選擇擇所要播播放的文文件。要要運(yùn)行程程序只需需雙擊OLE控控件即可可。10.5.4利利用用API函數(shù)播播放WAV聲音音文件在窗體的的DECLARATIONS(聲明明)區(qū)域域中輸入入如下代代碼：PrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong′lpszSoundName是一一個(gè)字符符串變量量，表示示一個(gè)WAV格格式的文文件名。?！鋟Flags用于于設(shè)定播播放狀態(tài)態(tài)的各種種選項(xiàng)。。參數(shù)值值為0X00時(shí)時(shí)，實(shí)現(xiàn)現(xiàn)同步播播放，參參數(shù)值為為0X01時(shí)實(shí)實(shí)現(xiàn)非同同步播放放。10.5.4利利用用API函數(shù)播播放WAV聲音音文件在命令按按鈕的單單擊事件件中輸入入如下代代碼：PrivateSubCommand1_Click()DimplaysAsLongplays=sndPlaySound("G:\調(diào)節(jié)音音量\21秒音音樂(lè).WAV",&H0)EndSub運(yùn)行時(shí)單單擊命令令按鈕即即可播放放WAV文件。。10.6在在VisualBasic程序中中使用視視頻10.6.1視視頻頻信號(hào)處處理10.6.2多多媒媒體MCI控件件10.6.3使使用用OLE控件播播放視頻頻文件10.6.1視視頻頻信號(hào)處處理視頻信號(hào)號(hào)的處理理原則是是：盡量截取取重要內(nèi)內(nèi)容，省省略多余余部分，，以便減減少數(shù)據(jù)據(jù)量。采用AVI文件件格式保保存視頻頻信號(hào)。。充分考慮慮多媒體體產(chǎn)品存存儲(chǔ)介質(zhì)質(zhì)的容量量，確定定使用視視頻文件件的數(shù)量量。10.6.2多多媒媒體MCI控件件在VisualBasic語(yǔ)言中中，使用用MCI控件播播放視頻頻文件可可以通過(guò)過(guò)定義播播放區(qū)域域播放，，也可以以不定義義播放區(qū)區(qū)域，系系統(tǒng)會(huì)自自動(dòng)打開(kāi)開(kāi)一個(gè)播播放窗口口進(jìn)行播播放。1.不不定定義播播放區(qū)區(qū)域具體操操作步步驟如如下：：(1)通過(guò)菜菜單在在工具具箱中中添加加MMC控控件。。(2)設(shè)置對(duì)對(duì)象屬屬性：：將表表單保保持自自動(dòng)命命名，，將其其Caption屬屬性修修改為為【播播放視視頻】】。(3)輸入程程序。。(4)運(yùn)行程程序，，存盤盤后運(yùn)運(yùn)行程程序，，出現(xiàn)現(xiàn)視頻頻影片片，單單擊播播放按按鈕，，開(kāi)始始播放放影片片。10.6.2多多媒體體MCI控控件2.定定義義播放放區(qū)域域具體步步驟如如下：：(1)通過(guò)菜菜單在在工具具箱中中添加加MMC控控件。。(2)建立視視頻播播放對(duì)對(duì)象———首首先利利用工工具箱箱中的的MMControl工工具建建立一一個(gè)播播放視視頻信信號(hào)的的對(duì)象象。該該對(duì)象象被自自動(dòng)命命名為為“MMControl”。。(3)使用工具箱箱中的PictureBox工具，建建立一個(gè)播播放視頻信信號(hào)的區(qū)域域，該區(qū)域域被自動(dòng)命命名為Picturel。(4)編寫程序。。程序中主主要包括以以下幾個(gè)部部分：① 控制按按鈕處理———建立對(duì)象后后，產(chǎn)生一一組控制按按鈕，按鈕鈕的個(gè)數(shù)和和功能與播播放聲音時(shí)時(shí)相同。如如果希望隱隱藏按鈕，，則在程序序中定義包包括“播放放”在內(nèi)的的多種控制制功能，并并應(yīng)把各按按鈕的Visible屬性設(shè)設(shè)置成False。。10.6.2多多媒體MCI控件② 定義視視頻播放———用MMContuol1.Device="AVIVideo"語(yǔ)句把播播放類型定定義為視頻頻信號(hào)，該該語(yǔ)句非常常重要，否否則MCI控件無(wú)法法播放視頻頻信號(hào)。③ 指定播播放文件———用MMControl1.filename="路徑文文件名"語(yǔ)語(yǔ)句指定文文件路徑和和名字。④ 定義視視頻播放區(qū)區(qū)域——用MMControl1.hWndDisplay=picture1.hWnd語(yǔ)句將Picture1區(qū)區(qū)域定義在在播放視頻頻信號(hào)的區(qū)區(qū)域。⑤ 控制視視頻文件———可使用MMControl1.Command="Open"語(yǔ)語(yǔ)句打開(kāi)視視頻文件，，至于播放放或其他控控制可使用用MMControl1.Command="命令參數(shù)數(shù)"語(yǔ)句發(fā)發(fā)出播放或或其他命令令。10.6.3使使用OLE控件播放放視頻文件件使用OLE控件播放放AVI格格式的視頻頻文件時(shí)，，將自動(dòng)打打開(kāi)一個(gè)播播放窗口播播放視頻信信號(hào)。首先用OLE工具創(chuàng)創(chuàng)建一個(gè)矩矩形。在隨隨后顯示的的InsertObject畫面中中，選中【【建立文件件關(guān)聯(lián)】復(fù)復(fù)選框，再再單擊Browse按鈕，找找到需要運(yùn)運(yùn)行的視頻頻文件。選選中【鏈接接】和【顯顯示為圖標(biāo)標(biāo)】?jī)蓚€(gè)復(fù)復(fù)選框，使使其有效。。最后單擊擊OK按鈕鈕，在窗口口中將出現(xiàn)現(xiàn)OLE圖圖標(biāo)和視頻頻文件名。。10.7在在VisualBasic程序序中調(diào)用電電子幻燈片片10.7.1電電子幻燈片片10.7.2建建立連接10.7.1電電子幻燈片片1.文件格格式通常，電子子幻燈片的的默認(rèn)保存存類型是““演示文稿稿”，文件件擴(kuò)展名為為“.ppt”。如如果用鼠標(biāo)標(biāo)雙擊該文文件，則啟啟動(dòng)PowerPoint軟軟件，自動(dòng)動(dòng)進(jìn)入幻燈燈片的編輯輯狀態(tài)。為為了和VisualBasic多媒媒體程序相相鏈接，電電子幻燈片片的保存類類型應(yīng)改為為“PowerPoint放放映”方式式，對(duì)應(yīng)的的文件擴(kuò)展展名是“.pps””。用鼠標(biāo)標(biāo)雙擊該格格式文件時(shí)時(shí)，不進(jìn)入入PowerPoint編輯輯狀態(tài)，而而是直接進(jìn)進(jìn)行演示。。2.存放位位置電子幻燈片片的存放地地點(diǎn)應(yīng)相對(duì)對(duì)固定在硬硬盤的某個(gè)個(gè)邏輯區(qū)中中，文件夾夾和文件名名也不應(yīng)變變更，否則則VisualBasic多媒體程程序?qū)⒄也徊坏诫娮踊没脽羝募?0.7.2建建立連接1.建立立方法建立連接的的具體操作作步驟如下下：(1)選擇工具箱箱中的OLE工具，，在窗口界界面上畫一一個(gè)矩形，，隨后顯示示插入對(duì)象象畫面。(2)在畫面中，，選擇【由由文件創(chuàng)建建】單選按按鈕，然后后單擊Browse按鈕，找找到一個(gè)電電子幻燈片片文件。再再選擇【鏈鏈接】和【【顯示為圖圖標(biāo)】?jī)蓚€(gè)個(gè)復(fù)選框，，使其有效效。最后單單擊OK按按鈕。在窗窗口界面上上隨之出現(xiàn)現(xiàn)OLE圖圖標(biāo)和對(duì)應(yīng)應(yīng)的電子幻幻燈片文件件名。(3)運(yùn)行程序時(shí)時(shí)，用鼠標(biāo)標(biāo)雙擊OLE圖標(biāo)即即可啟動(dòng)對(duì)對(duì)應(yīng)的電子子幻燈片文文件，并進(jìn)進(jìn)入演示狀狀態(tài)。在電電子幻燈片片演示結(jié)束束或者按Esc鍵后后，返回程程序狀態(tài)。。10.8其其他實(shí)實(shí)例10.8.1調(diào)調(diào)節(jié)音量10.8.2用用VisualBasic設(shè)計(jì)VCD播放器器10.8.3只只播放一幀幀10.8.1調(diào)調(diào)節(jié)音量本例通過(guò)API調(diào)用用來(lái)實(shí)現(xiàn)對(duì)對(duì)揚(yáng)聲器音音量的控制制。具體操作步步驟如下：：(1)單擊【文件件】|【新新建工程】】命令，創(chuàng)創(chuàng)建一個(gè)新新工程。(2)在窗體上添添加8個(gè)命命令控件和和一個(gè)標(biāo)簽簽控件，整整體布局如如圖10.18所示示。圖10.1810.8.1調(diào)調(diào)節(jié)音量(3)設(shè)置對(duì)象屬屬性，將Form1的Caption屬性改為為【調(diào)節(jié)音音量】；Command1至至Command8的Caption屬性分別別設(shè)置為【【靜】、【【左】、【【右】、【【雙】、【【+】、、【-】、、【恢復(fù)】】、【退出出】；Label1的Caption屬性設(shè)置置為空白。。(4)編寫事件處處理程序。。雙擊窗體，，打開(kāi)代碼碼窗口，輸輸入以下程程序：PrivateDeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLongPrivateDeclareFunctionwaveOutGetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,lpdwVolumeAsLong)AsLong10.8.1調(diào)調(diào)節(jié)音量PrivateDeclareFunctionwaveOutSetVolumeLib"winmm.dll"(ByValuDeviceIDAsLong,ByValdwVolumeAsLong)AsLongDimsavVolPrivateSubCommand1_Click()i=waveOutSetVolume(0,0)EndSubPrivateSubCommand2_Click()i=waveOutSetVolume(0,&HFF00)EndSubPrivateSubCommand3_Click()i=waveOutSetVolume(0,&HFF)EndSub10.8.1調(diào)調(diào)節(jié)音量PrivateSubCommand4_Click()i=waveOutSetVolume(0,&HFFFF)EndSubPrivateSubCommand5_Click()x=waveOutGetVolume(0,0)-&H808i=waveOutSetVolume(0,x)EndSubPrivateSubCommand6_Click()x=waveOutGetVolume(0,0)+&H808i=waveOutSetVolume(0,x)EndSubPrivateSubCommand7_Click()i=waveOutSetVolume(0,savVol)EndSub10.8.1調(diào)調(diào)節(jié)音量PrivateSubCommand8_Click()EndEndSubPrivateSubForm_Load()Me.ShowsavVol=&H4F4Fi=waveOutSetVolume(0,savVol)k=App.Path+"\21秒音音樂(lè).wav"Label1.Caption="音樂(lè)文文件名："+kl=&H1Or&H2i=sndPlaySound(k,l)EndSub10.8.2用用VisualBasic設(shè)計(jì)VCD播放器器具體操作步步驟如下：：(1)在VisualBasic中建立一一個(gè)新窗口口,加入入多媒體部部件MicrosoftMultimediaControl6.0以及對(duì)對(duì)話框部件件MicrosoftCommonDialogControl6.0。。(2)在窗體中添添加MCI控件件并調(diào)整其其大小，并并將窗體的的大小也調(diào)調(diào)整為與其其同樣大小小。(3)設(shè)置對(duì)象屬屬性。將9個(gè)按鈕鈕(從左至至右為：Prev、、Next、Play、Pause、、Back、Step、Stop、Record和Eject)中的的Record按按鈕的Visible屬屬性設(shè)為False，其余余按鈕的Visible屬屬性和Enabled屬屬性設(shè)為True,以上上按鈕的設(shè)設(shè)置可通過(guò)過(guò)MMControl屬性欄欄內(nèi)的【自自定義】選選項(xiàng)來(lái)設(shè)置置。對(duì)話框框控件的DefaultExt屬性設(shè)設(shè)為“.DAT”,DialogTitle屬屬性設(shè)為為【打開(kāi)多多媒體文件件】,Filter屬性性設(shè)為“*.DAT,*.WAV””,InitDir屬性性設(shè)為“G:\MPEGAV”(假設(shè)設(shè)光驅(qū)盤符符為G)。。10.8.2用用VisualBasic設(shè)設(shè)計(jì)計(jì)VCD播播放放器器(4)編寫寫代代碼碼。。在代代碼碼窗窗口口中中輸輸入入如如下下程程序序:OptionExplicitPrivateSubForm_Load()DimResponseAsIntegerMMControl1.DeviceType="MPEGVideo"CommonDialog1.ShowOpen′′通通過(guò)過(guò)對(duì)對(duì)話話框框選選擇擇不不同同的的VCD文文件件MMControl1.filename=CommonDialog1.filename′′選選定定要要播播放放的的文文件件MMControl1.Command="Open"MMControl1.Command="Play"EndSub10.8.2用用VisualBasic設(shè)設(shè)計(jì)計(jì)VCD播播放放器器PrivateSubForm_Unload(CancelAsInteger)MMControl1.Command="close"EndSubPrivateSubMMControl1_BackClick(CancelAsInteger)′對(duì)Back按鈕的的功能改進(jìn)DimiAsIntegeri=MMControl1.Position-100′′數(shù)值100為后退量,可適當(dāng)調(diào)整整Ifi<0ThenMMControl1.From="0"10.8.2用VisualBasic設(shè)計(jì)VCD播放器ElseMMControl1.From="i"EndIfMMControl1.Command="Play"EndSubPrivateSubMMControl1_StepClick(CancelAsInteger)′對(duì)Step按鈕的的功能改進(jìn)DimjAsIntegerj="MMControl1.Position"+100′′數(shù)值100為前進(jìn)量,可適當(dāng)調(diào)整整Ifj>MMControl1.LengthThenMMControl1.From=MMControl1.Length10.8.2用VisualBasic設(shè)計(jì)VCD播放器ElseMMControl1.From=jEndIfMMControl1.Command="Play"EndSub調(diào)整好窗體的的標(biāo)題、圖標(biāo)標(biāo)、顏色等，，然后編譯成成.EXE文文件，就可以以在Windows下?lián)頁(yè)碛凶约旱腣CD播放器器了。10.8.3只播放放一幀利用PictureClip控件可可以實(shí)現(xiàn)觀看看動(dòng)畫中任意意一幀的功能能。具體操作作如下：(1)新建一個(gè)工程程。(2)在窗體上創(chuàng)建建一個(gè)命令按按鈕控件、一一個(gè)水平滾動(dòng)動(dòng)條控件、一一個(gè)標(biāo)簽控件件、一個(gè)圖片片框控件和一一個(gè)PictureClip控件，，窗體布局如如圖10.19所示。(3)設(shè)置對(duì)對(duì)象屬屬性，，如表表10.4所示示。10.8.3只只播放放一幀幀圖10.1910.8.3只只播放放一幀幀表10.410.8.3只只播放放一幀幀(4)編寫事事件處處理程程序。。在代碼碼窗口口中輸輸入以以下程程序：：PrivateSubCommand1_Click()EndEndSubPrivateSubForm_Load()Picture1.ScaleMode=3PictureClip1.Rows=3PictureClip1.Cols=5Picture1.Picture=PictureClip1.GraphicCell(0)EndSub10.8.3只只播放放一幀幀PrivateSubHScroll1_Change()Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)Label1.Caption="第第"+Format(HScroll1.Value,"00")+"幀幀"EndSubPrivateSubHScroll1_Scroll()Picture1.Picture=PictureClip1.GraphicCell(HScroll1.Value)Label1.Caption="第第"+Format(HScroll1.Value,"00")+"幀幀"EndSub10.8.3只播放放一幀(5)運(yùn)行程序。將文件存盤后后運(yùn)行。當(dāng)拖拖動(dòng)滑塊時(shí)動(dòng)動(dòng)畫當(dāng)前幀立立即更換，如如圖10.20就是其中中的一個(gè)畫面面。圖10.2010.9上上機(jī)指導(dǎo)10.9.1播放CD10.9.2調(diào)節(jié)音音量10.9.1播放CD設(shè)計(jì)CD播放放器的具體操操作如下：(1)單擊【文件】】|【新建工工程】命令，，創(chuàng)建一個(gè)新新工程。(2)在窗體上創(chuàng)建建16個(gè)命令令按鈕控件和和一個(gè)標(biāo)簽控控件。(3)設(shè)置對(duì)象的屬屬性，前15個(gè)命令按鈕鈕的name都是Command1，各按鈕靠靠Index屬性來(lái)區(qū)別別。(4)編寫事件處理理程序。在代代碼窗口中添添加以下程序序：10.9.1播放CDOptionExplicitPrivateSubCommand1_Click(IndexAsInteger)playCD(Index+1)EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()DimiAsIntegeri=auxTest()Ifi<>TrueThen10.9.1播放CDMsgBox"對(duì)不起起，沒(méi)有檢測(cè)測(cè)到聲卡，有有可能不能欣欣賞CD"EndIfEndSub(5)單擊【工程】】|【添加模模塊】命令，，在項(xiàng)目窗口口中添加一個(gè)個(gè)模塊圖標(biāo)。。雙擊該模塊塊圖標(biāo)，打開(kāi)開(kāi)模塊代碼窗窗口，輸入以以下程序：DeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong10.9.1播放CDDeclareFunctionauxGetNumDevsLib"winmm.dll"()AsLongGlobalConstSND_ASYNC=&H1GlobalConstSND_NODEFAULT=&H2GlobalConstSND_LOOP=&H8GlobalConstSND_NOSTOP=&H10FunctionauxTest()AsBooleanDimiAsIntegeri=auxGetNumDevs()Ifi>0ThenauxTest=TrueElseauxTest=FalseEndIfEndFunction10.9.1播放CDSubplayCD(bAsInteger)DimaAsLonga=mciSendString("opencdaudioaliascdwait",0&,0,0)a=mciSendString("setcdtimeformattmsf",0&,0,0)a=mciSendString("playcdfrom"&Str(b),0&,0,0)EndSub(6)運(yùn)運(yùn)行程程序，，以““播放放CD”為為名存存盤后后運(yùn)行行程序序，出出現(xiàn)圖圖10.21所所示的的界面面，在在光驅(qū)驅(qū)中放放入一一張CD音音樂(lè)光光盤，，然后后選擇擇一首首曲子子開(kāi)始始播放放。10.9.2調(diào)調(diào)節(jié)音音量在用VisualBasic編編程的的時(shí)候候，通通常要要調(diào)用用圖片片，如如果圖圖片出出現(xiàn)的的時(shí)候候是以以各種種完美美的效效果出出現(xiàn)的的(如如馬賽賽克效效果，，百葉葉窗效效果等等)，，那么么程序序就會(huì)會(huì)顯得得更靈靈活、、更專專業(yè)化化。圖圖片淡淡入淡淡出示示例程程序講講述了了在VisualBasic中中如何何調(diào)用用API函函數(shù)中中的AlphaBlend和和CopyMemory函數(shù)數(shù)實(shí)現(xiàn)現(xiàn)圖片片淡入入淡出出效果果的過(guò)過(guò)程。。具體的的操作作步驟驟參見(jiàn)見(jiàn)書(shū)302頁(yè)。。10.10習(xí)習(xí)題題參見(jiàn)書(shū)書(shū)p216頁(yè)：：一、、選擇擇題、、二二、填填空題題、三三、判判斷改改錯(cuò)題題、四四、、簡(jiǎn)答答題、、五五、操操作題題。三Q&A?Thanks!9、靜夜四無(wú)鄰鄰，荒居舊業(yè)業(yè)貧。。1月-231月-23Thursday,January5,202310、雨中中黃葉葉樹(shù)，，燈下下白頭頭人。。。02:42:0902:42:0902:421/5/20232:42:09AM11、以我獨(dú)沈久久，愧君相見(jiàn)見(jiàn)頻。。1月-2302:42:0902:42Jan-2305-Jan-2312、故人江海別別，幾度隔山山川。。02:42:0902:42:0902:42Thursday,January5,202313、乍見(jiàn)翻疑疑夢(mèng)，相悲悲各問(wèn)年。。。1月-231月-2302:42:0902:42:09January5,202314、他鄉(xiāng)生白發(fā)發(fā)，舊國(guó)見(jiàn)青青山。。05一月20232:42:09上