1、第12章 Visual Basic多媒體程序設計,第12章 Visual Basic多媒體程序設計,本章重點 多媒體項目的開發(fā)方法 文本軟件開發(fā)技術(shù) 圖形軟件開發(fā)技術(shù) 圖像軟件開發(fā)技術(shù) 數(shù)字音頻軟件開發(fā)技術(shù) 數(shù)字視頻軟件開發(fā)技術(shù) 動畫軟件開發(fā)技術(shù),第12章 Visual Basic多媒體程序設計,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ā)工具，

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

3、通過鼠標、按鍵的操作、程序的控制或其他窗口所產(chǎn)生的操作或行為。 (3)消息。發(fā)生事件時就引發(fā)一條消息并發(fā)送到操作系統(tǒng)。 VB采用事件驅(qū)動模型。在事件驅(qū)動模型中，程序代碼不是按照預定的順序執(zhí)行，而是在響應不同的事件時執(zhí)行不同的代碼片斷。Windows操作系統(tǒng)通過給每一個窗口提供一個唯一的標識符(窗口句柄Hwnd)來管理所有的窗口。操作系統(tǒng)連續(xù)地監(jiān)視每一個窗口的活動或事件信號。當發(fā)生事件時，將引發(fā)一條消息，操作系統(tǒng)處理該消息并廣播給其他窗口。最后，每一個窗口根據(jù)自身處理該條消息的指令而采取適當?shù)牟僮鳌?12.2 VB圖形處理技術(shù),12.2.1 VB坐標系統(tǒng)及圖形格式 12.2.2 PaintPic

4、ture方法和BitBlt API函數(shù) 12.2.3 繪圖方法程序?qū)嵗?12.2.1 VB坐標系統(tǒng)及圖形格式,在VB中，坐標系統(tǒng)是一個二維網(wǎng)格，可定義屏幕上、窗體中或其他容器中的位置。使用窗體中的坐標(x，y)，可定義網(wǎng)格上的位置。其中x值是沿x軸的位置，最左端的值是0；y值是沿y軸的位置，最上端的值是0。 VB可以支持的圖形格式有位圖(.bmp)文件、設備獨立位圖(.dib)文件、圖標(.ico)文件、光標(.cur)文件、元(.wmf)文件、增強的元文件(.emf)、GIF(.gif)文件以及JPEG(.jpg)文件.,12.2.2 PaintPicture方法和BitBlt API函數(shù),

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

6、.emf、.cur、.ico或.dib)的內(nèi)容。 語法：Object.PaintPicturepicture，x1，y1，widthl，height1，x2，y2，width2，height2，opcode。 Object是可選項。其值可以為窗體、PictureBox控件或Printer。Picture為必選項，指定要繪制到Object上的圖形源。x1，y1必選項，均為單精度值，指定在Object上繪制Picture的目標坐標。Width1可選項，單精度值，指示Picture的目標寬度。Height1可選項，單精度值，指示Picture的目標高度。x2，y2可選項，均為單精度值，指示Pictu

7、re內(nèi)剪貼區(qū)的坐標(x-軸和y-軸)。Width2可選項，單精度值，指示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

8、Alias BitBlt (ByVal hDestDC As Long，ByVal 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 Long,12.2.2 PaintPicture方法和BitBlt API函數(shù),參數(shù)說明： hDestDC：目標設備環(huán)境 x：目標左上角坐標 y：目標頂端坐標 nWidth：目標寬 nHeight：目標高 hSrcD

9、C：源設備環(huán)境 xSrc：源左上角坐標 ySrc：源頂端坐標 dwRop：位處理操作，與PaintPicture方法相同。,12.2.3 繪圖方法程序?qū)嵗?下面介紹的“真彩色畫板”可以在一個畫圖區(qū)域內(nèi)，以任意的顏色，繪制任何曲線。程序中用Line繪圖方法與鼠標的MouseDown及MouseMove事件，并使用RGB(Red，Green，Blue)函數(shù)選取畫筆顏色，實現(xiàn)具體的繪圖操作。 (1)各對象屬性設置如下： Begin VB.Form Form1 BackColor=&H80000001& Caption=簡單的真彩色畫板 ClientHeight=7425 ClientLeft=166

10、5 ClientTop=1950 ClientWidth=9960,12.2.3 繪圖方法程序?qū)嵗?Begin VB.PictureBox Picture2 Appearance=0 Flat BackColor=&H80000005& ForeColor=&H80000008& Height=1785 Left=8130 Picture=Form1.frx：0000 ScaleHeight=1755 ScaleWidth=1755 TabIndex=15 Top=300 Width=1785 End,12.2.3 繪圖方法程序?qū)嵗?Begin VB.HScrollBar HScroll3 H

11、eight=375 Left=8250 Max=255 TabIndex=7 Top=5820 Width=1575 End Begin VB.HScrollBar HScroll2 Height=375 Left=8250 Max=255 TabIndex=6 Top=5100 Width=1575 End,12.2.3 繪圖方法程序?qū)嵗?Begin VB.HScrollBar HScroll1 Height=375 Left=8250 Max=255 TabIndex=5 Top=4380 Width=1575 End Begin VB.CommandButton Command4 Cap

12、tion=退 出 BeginProperty Font Name=宋體 Size=12,12.2.3 繪圖方法程序?qū)嵗?Charset=134 Weight=400 Underline=0 False Italic=0 False Strikethrough=0 False EndProperty Height=495 Left=6210 TabIndex=4 Top=6780 Width=1455 End,Begin VB.CommandButton Command3 Caption=清 屏 BeginProperty Font Name=宋體 Size=12 Charset=134 Wei

13、ght=400 Underline=0 False Italic=0 False Strikethrough=0 False EndProperty,12.2.3 繪圖方法程序?qū)嵗?12.2.3 繪圖方法程序?qū)嵗?Charset=134 Weight=400 Underline=0 False Italic=0 False Strikethrough=0 False EndProperty Height=495 Left=2130 TabIndex=2 Top=6780 Width=1455 End,12.2.3 繪圖方法程序?qū)嵗?Begin VB.PictureBox Picture1 Au

14、toRedraw=-1 True BackColor=&H80000009& Height=6015 Left=330 ScaleHeight=5955 ScaleWidth=7035 TabIndex=0 Top=300 Width=7095 End,12.2.3 繪圖方法程序?qū)嵗?Size=12 Chatset=134 Weight=400 Underline=0 False Italic=0 False Strikethrough=0 False EndProperty Height=495 Left=90 TabIndex=1 Top=6780 Width=1455 End,12.2.

15、3 繪圖方法程序?qū)嵗?程序代碼如下 在窗體Forml的聲明段聲明以下變量 Dim paintnow As Boolean Dim startX As Single，startY As Single Dim red As Integer，green As Integer，blue As Integer Private Sub Command1_Click() 變量file_name用于保存用戶輸入的要打開的文件的文件名 Dim file_name As String file_name=InputBox(請輸入路徑文件名：，打開文件) 如果文件不存在，則顯示”文件未找到”的對話框，否則將指定的圖

16、形文件載入賦給圖片框的Picture屬性(即在圖片框中顯示打開的圖形文件)，并設置”保存”命令按鈕獲得焦點,12.3 VB圖像處理技術(shù),12.3.1 在圖片上平滑移動文字 12.3.2 圖像的滾動顯示和縮放 12.3.3 屏幕圖像的捕捉,12.3.1 在圖片上平滑移動文字,在很多電影及游戲的結(jié)尾，我們可以看到文本在圖片上平滑地卷到屏幕的上方，在VB中，可以使用以下方法實現(xiàn)此“特技”： 新建工程文件，并創(chuàng)建Forml。在Forml上放置PictureBox控件Picture1，選定背景圖片。另外，放置一個Timer控件Timer1，設置Enabled屬性為True，設置Interval為100(

17、Interval決定文本移動速度)。 單擊選擇Picture1，在PictureBox的底部放置Label控件Label1，并設置Label1的BackStyle屬性為0(透明即控件后的背景色和任何圖片都是可見的)，設置Caption為待移動的字符串,12.3.2 圖像的滾動顯示和縮放,12.3.2 圖像的滾動顯示和縮放,12.3.3 屏幕圖像的捕捉,12.3.3 屏幕圖像的捕捉,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

18、調(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的播放方法,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文件,12