1、第12章 Visual Basic多媒體程序設(shè)計第12章 Visual Basic多媒體程序設(shè)計本章重點多媒體工程的開發(fā)方法文本軟件開發(fā)技術(shù)圖形軟件開發(fā)技術(shù)圖像軟件開發(fā)技術(shù)數(shù)字音頻軟件開發(fā)技術(shù)數(shù)字視頻軟件開發(fā)技術(shù)動畫軟件開發(fā)技術(shù)第12章 Visual Basic多媒體程序設(shè)計12.1 根本概念12.2 VB圖形處置技術(shù)12.3 VB圖像處置技術(shù)12.4 VB音頻處置技術(shù)12.5 VB視頻處置技術(shù)12.6 VB動畫處置技術(shù)12.7 小結(jié)12.1 根本概念Visual Basic (簡稱VB)是Microsoft公司推出的基于Windows平臺的程序開發(fā)工具，其程序設(shè)計風(fēng)格與傳統(tǒng)設(shè)計方法不同，它采

2、用面向?qū)ο蠛褪录某绦蛟O(shè)計方法，是一種采用事件驅(qū)動編寫機制的言語。VB專業(yè)版中提供了MCI(Media Control Interface)的控件。利用VB，可以編程處置文本、圖形、圖像、音頻、視頻、動畫等多媒體數(shù)據(jù)，以設(shè)計或構(gòu)造適宜不同需求的多媒體運用系統(tǒng)。在多媒體程序設(shè)計方面，VB不但本身提供了控制對象及多媒體控件，還提供了對眾多第三方多媒體控件的支持及API函數(shù)的調(diào)用。12.1 根本概念VB涉及三個重要概念： (1)窗口。窗口是一種有邊境的矩形區(qū)域，例如，資源管理器窗口、Word的文檔窗口、對話框窗口、按鈕、圖標(biāo)、菜單條等。 (2)事件。事件是經(jīng)過鼠標(biāo)、按鍵的操作、程序的控制或其他窗口所

3、產(chǎn)生的操作或行為。 (3)音訊。發(fā)惹事件時就引發(fā)一條音訊并發(fā)送到操作系統(tǒng)。 VB采用事件驅(qū)動模型。在事件驅(qū)動模型中，程序代碼不是按照預(yù)定的順序執(zhí)行，而是在呼應(yīng)不同的事件時執(zhí)行不同的代碼片斷。Windows操作系統(tǒng)經(jīng)過給每一個窗口提供一個獨一的標(biāo)識符(窗口句柄Hwnd)來管理一切的窗口。操作系統(tǒng)延續(xù)地監(jiān)視每一個窗口的活動或事件信號。當(dāng)發(fā)惹事件時，將引發(fā)一條音訊，操作系統(tǒng)處置該音訊并廣播給其他窗口。最后，每一個窗口根據(jù)本身處置該條音訊的指令而采取適當(dāng)?shù)牟僮鳌?2.2 VB圖形處置技術(shù)12.2.1 VB坐標(biāo)系統(tǒng)及圖形格式12.2.2 PaintPicture方法和BitBlt API函數(shù)12.2.3

4、 繪圖方法程序?qū)嵗?2.2.1 VB坐標(biāo)系統(tǒng)及圖形格式在VB中，坐標(biāo)系統(tǒng)是一個二維網(wǎng)格，可定義屏幕上、窗體中或其他容器中的位置。運用窗體中的坐標(biāo)(x，y)，可定義網(wǎng)格上的位置。其中x值是沿x軸的位置，最左端的值是0；y值是沿y軸的位置，最上端的值是0。VB可以支持的圖形格式有位圖(.bmp)文件、設(shè)備獨立位圖(.dib)文件、圖標(biāo)(.ico)文件、光標(biāo)(.cur)文件、元(.wmf)文件、加強的元文件(.emf)、GIF(.gif)文件以及JPEG(.jpg)文件.12.2.2 PaintPicture方法和BitBlt API函數(shù)PaintPicture的根本功能是圖像塊傳輸。它能快速地將兩

5、幅位圖進展合并；能將位圖的全部或某一部分快速剪切并粘貼到其他地方；能將位圖自動延伸或緊縮以順應(yīng)新的環(huán)境；能在屏幕上不同位置之間、屏幕與內(nèi)存之間傳送位圖；它采用32位三元光柵操作代碼(RasterOp)，在源位圖、選定的子位圖和目的位圖之間進展顏色組合，生成目的位圖中的最終顏色；它將13個常用RasterOp操作以內(nèi)部常量方式給出，不需任何聲明。12.2.2 PaintPicture方法和BitBlt API函數(shù)PaintPicture方法作用：在Form、PictureBox或Printer上繪制圖形文件(.bmp、.wmf、.emf、.cur、.ico或.dib)的內(nèi)容。語法：Object.

6、PaintPicturepicture，x1，y1，widthl，height1，x2，y2，width2，height2，opcode。Object是可選項。其值可以為窗體、PictureBox控件或Printer。Picture為必選項，指定要繪制到Object上的圖形源。x1，y1必選項，均為單精度值，指定在Object上繪制Picture的目的坐標(biāo)。Width1可選項，單精度值，指示Picture的目的寬度。Height1可選項，單精度值，指示Picture的目的高度。x2，y2可選項，均為單精度值，指示Picture內(nèi)剪貼區(qū)的坐標(biāo)(x-軸和y-軸)。Width2可選項，單精度值，指示

7、Picture內(nèi)剪貼區(qū)的源寬度。Height2可選項，單精度值，指示Picture內(nèi)剪貼區(qū)的源高度。opcode可選項，是長型值或僅由位圖運用的代碼，該參數(shù)與BitBlt中dwRop參數(shù)含義一樣。表示源位圖與目的位圖的組合關(guān)系，用來定義在將Picture繪制到Object上時對Picture執(zhí)行的位操作。12.2.2 PaintPicture方法和BitBlt API函數(shù)BitBlt API函數(shù)作用：與PaintPicture方法一樣。函數(shù)聲明： Declare Function BitBlt Lib gdi32 Alias BitBlt (ByVal hDestDC As Long，ByVa

8、l x As Long，ByVal y As Long，ByVal nW記th As Long，ByVal nHeight As Long，ByVal hSrcDC As Long，ByVal xSrc As Long，ByVal ySrc As Long，ByVal dwRop As Long)As Long12.2.2 PaintPicture方法和BitBlt API函數(shù)參數(shù)闡明：hDestDC：目的設(shè)備環(huán)境x：目的左上角坐標(biāo)y：目的頂端坐標(biāo)nWidth：目的寬nHeight：目的高hSrcDC：源設(shè)備環(huán)境xSrc：源左上角坐標(biāo)ySrc：源頂端坐標(biāo) dwRop：位處置操作，與PaintP

9、icture方法一樣。12.2.3 繪圖方法程序?qū)嵗旅嬉姷摹罢娌噬嫲蹇梢栽谝粋€畫圖區(qū)域內(nèi)，以恣意的顏色，繪制任何曲線。程序中用Line繪圖方法與鼠標(biāo)的MouseDown及MouseMove事件，并運用RGB(Red，Green，Blue)函數(shù)選取畫筆顏色，實現(xiàn)詳細的繪圖操作。(1)各對象屬性設(shè)置如下： Begin VB.Form Form1 BackColor=&H80000001& Caption=簡單的真彩色畫板 ClientHeight=7425 ClientLeft=1665 ClientTop=1950 ClientWidth=996012.2.3 繪圖方法程序?qū)嵗鼴egin

10、VB.PictureBox Picture2Appearance=0 FlatBackColor=&H80000005&ForeColor=&H80000008&Height=1785Left=8130Picture=Form1.frx：0000ScaleHeight=1755ScaleWidth=1755TabIndex=15Top=300Width=1785End12.2.3 繪圖方法程序?qū)嵗鼴egin VB.HScrollBar HScroll3Height=375Left=8250Max=255TabIndex=7Top=5820Width=1575EndBegin VB.HScrol

11、lBar HScroll2Height=375Left=8250Max=255TabIndex=6Top=5100Width=1575 End12.2.3 繪圖方法程序?qū)嵗鼴egin VB.HScrollBar HScroll1Height=375Left=8250Max=255TabIndex=5Top=4380Width=1575EndBegin VBmandButton Command4Caption=退 出BeginProperty Font Name=宋體 Size=1212.2.3 繪圖方法程序?qū)嵗鼵harset=134 Weight=400Underline=0 FalseIta

12、lic=0 FalseStrikethrough=0 FalseEndPropertyHeight=495Left=6210TabIndex=4Top=6780Width=1455EndBegin VBmandButton Command3Caption=清 屏BeginProperty FontName=宋體Size=12Charset=134Weight=400Underline=0 FalseItalic=0 FalseStrikethrough=0 FalseEndProperty12.2.3 繪圖方法程序?qū)嵗?2.2.3 繪圖方法程序?qū)嵗鼵harset=134Weight=400Un

13、derline=0 FalseItalic=0 FalseStrikethrough=0 FalseEndPropertyHeight=495Left=2130TabIndex=2Top=6780Width=1455End12.2.3 繪圖方法程序?qū)嵗鼴egin VB.PictureBox Picture1AutoRedraw=-1 TrueBackColor=&H80000009&Height=6015Left=330ScaleHeight=5955ScaleWidth=7035TabIndex=0Top=300Width=7095End12.2.3 繪圖方法程序?qū)嵗齋ize=12Chats

14、et=134Weight=400Underline=0 FalseItalic=0 FalseStrikethrough=0 FalseEndPropertyHeight=495Left=90TabIndex=1Top=6780Width=1455End12.2.3 繪圖方法程序?qū)嵗绦虼a如下在窗體Forml的聲明段聲明以下變量 Dim paintnow As Boolean Dim startX As Single，startY As Single Dim red As Integer，green As Integer，blue As Integer Private Sub Command

15、1_Click() 變量file_name用于保管用戶輸入的要翻開的文件的文件名 Dim file_name As String file_name=InputBox(請輸入途徑文件名：，翻開文件) 假設(shè)文件不存在，那么顯示文件未找到的對話框，否那么將指定的圖形文件載入賦給圖片框的Picture屬性(即在圖片框中顯示翻開的圖形文件)，并設(shè)置保管命令按鈕獲得焦點12.3 VB圖像處置技術(shù)12.3.1 在圖片上平滑挪動文字12.3.2 圖像的滾動顯示和縮放12.3.3 屏幕圖像的捕捉12.3.1 在圖片上平滑挪動文字在很多電影及游戲的結(jié)尾，我們可以看到文本在圖片上平滑地卷到屏幕的上方，在VB中，可

16、以運用以下方法實現(xiàn)此“特技：新建工程文件，并創(chuàng)建Forml。在Forml上放置PictureBox控件Picture1，選定背景圖片。另外，放置一個Timer控件Timer1，設(shè)置Enabled屬性為True，設(shè)置Interval為100(Interval決議文本挪動速度)。單擊選擇Picture1，在PictureBox的底部放置Label控件Label1，并設(shè)置Label1的BackStyle屬性為0(透明即控件后的背風(fēng)光和任何圖片都是可見的)，設(shè)置Caption為待挪動的字符串12.3.2 圖像的滾動顯示和縮放12.3.2 圖像的滾動顯示和縮放12.3.3 屏幕圖像的捕捉12.3.3 屏

17、幕圖像的捕捉12.3.3 屏幕圖像的捕捉12.4 VB音頻處置技術(shù)12.4.1 利用Beep語句使揚聲器發(fā)聲12.4.2 利用OLE2.0控件播放音頻12.4.3 利用MCI32控件播放音頻及MIDI音樂12.4.4 調(diào)用API函數(shù)播放音頻12.4.5 MP3的播放方法12.4.1 利用Beep語句使揚聲器發(fā)聲12.4.1 利用Beep語句使揚聲器發(fā)聲12.4.2 利用OLE2.0控件播放音頻12.4.3 利用MCI32控件播放音頻及MIDI音樂12.4.3 利用MCI32控件播放音頻及MIDI音樂12.4.4 調(diào)用API函數(shù)播放音頻12.4.4 調(diào)用API函數(shù)播放音頻12.4.5 MP3的播

18、放方法12.4.5 MP3的播放方法12.5 VB視頻處置技術(shù)12.5.1 利用Animation控件播放AVI文件12.5.2 利用API函數(shù)MciSendString()播放AVI文件12.5.3 利用API函數(shù)MciExecute()播放AVI文件12.5.4 利用MMControl控件播放AVI文件12.5.5 利用可插入對象中的電影剪輯控件播放AVl文件12.5.6 利用OLE控件播放AVI文件12.5.1 利用Animation控件播放AVI文件12.5.2 利用API函數(shù)MciSendString()播放AVI文件12.5.2 利用API函數(shù)MciSendString()播放AVI