《多媒體技術與應用教程》第章：Visual Basic多媒體程序設計

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