這是一個(gè)關(guān)于vb窗口播放ppt，包括了VB編程基礎(chǔ)，VB圖形繪制技術(shù)，VB圖像處理技術(shù)（只要求6.3.1小節(jié)），用VB操縱多媒體Access數(shù)據(jù)庫，用VB實(shí)現(xiàn)多媒體文件播放，用VB編制動(dòng)畫程序等內(nèi)容，第6章 VB多媒體程序設(shè)計(jì) （講授6學(xué)時(shí)，實(shí)驗(yàn)6學(xué)時(shí)） 6.1 VB編程基礎(chǔ) 6.2 VB圖形繪制技術(shù) 6.3 VB圖像處理技術(shù)（只要求6.3.1小節(jié)） 6.4 用VB操縱多媒體Access數(shù)據(jù)庫 6.5 用VB實(shí)現(xiàn)多媒體文件播放 6.6 用VB編制動(dòng)畫程序 6.1 VB編程基礎(chǔ) Visual Basic (簡(jiǎn)稱VB)是Microsoft公司推出的基于Windows平臺(tái)的程序開發(fā)工具，其程序設(shè)計(jì)風(fēng)格與傳統(tǒng)設(shè)計(jì)方法不同，它采用面向?qū)ο蠛褪录�的程序設(shè)計(jì)方法，是一種采用事件驅(qū)動(dòng)編程機(jī)制的語言。 VB專業(yè)版中提供了MCI(Media Control Interface)的控件。利用VB，可以編程處理文本、圖形、圖像、音頻、視頻、動(dòng)畫等多媒體數(shù)據(jù)，以設(shè)計(jì)或構(gòu)造適合不同需求的多媒體應(yīng)用系統(tǒng)。在多媒體程序設(shè)計(jì)方面，VB不但自身提供了控制對(duì)象及多媒體控件，還提供了對(duì)眾多第三方多媒體控件的支持及API函數(shù)的調(diào)用。 6.1.1 VB集成開發(fā)環(huán)境 6.1.1 VB集成開發(fā)環(huán)境 1.VB集成開發(fā)環(huán)境的常規(guī)組成部分 標(biāo)題欄、菜單欄、工具欄。 2.VB集成開發(fā)環(huán)境的特有組成部分 六類窗口。 3.VB涉及三個(gè)重要概念 (1)窗口：窗口是一種有邊界的矩形區(qū)域。 (2)事件：事件是通過鼠標(biāo)、按鍵的操作、程序的控制或其他窗口所產(chǎn)生的操作或行為。 (3)消息：在事件驅(qū)動(dòng)模型中，程序代碼不是按照預(yù)定的順序執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。當(dāng)發(fā)生事件時(shí)，將引發(fā)一條消息，操作系統(tǒng)處理該消息并廣播給其他窗口，歡迎點(diǎn)擊下載vb窗口播放ppt。

vb窗口播放ppt是由紅軟PPT免費(fèi)下載網(wǎng)推薦的一款儀器設(shè)備PPT類型的PowerPoint.

第6章 VB多媒體程序設(shè)計(jì) （講授6學(xué)時(shí)，實(shí)驗(yàn)6學(xué)時(shí)） 6.1 VB編程基礎(chǔ) 6.2 VB圖形繪制技術(shù) 6.3 VB圖像處理技術(shù)（只要求6.3.1小節(jié)） 6.4 用VB操縱多媒體Access數(shù)據(jù)庫 6.5 用VB實(shí)現(xiàn)多媒體文件播放 6.6 用VB編制動(dòng)畫程序 6.1 VB編程基礎(chǔ) Visual Basic (簡(jiǎn)稱VB)是Microsoft公司推出的基于Windows平臺(tái)的程序開發(fā)工具，其程序設(shè)計(jì)風(fēng)格與傳統(tǒng)設(shè)計(jì)方法不同，它采用面向?qū)ο蠛褪录�的程序設(shè)計(jì)方法，是一種采用事件驅(qū)動(dòng)編程機(jī)制的語言。 VB專業(yè)版中提供了MCI(Media Control Interface)的控件。利用VB，可以編程處理文本、圖形、圖像、音頻、視頻、動(dòng)畫等多媒體數(shù)據(jù)，以設(shè)計(jì)或構(gòu)造適合不同需求的多媒體應(yīng)用系統(tǒng)。在多媒體程序設(shè)計(jì)方面，VB不但自身提供了控制對(duì)象及多媒體控件，還提供了對(duì)眾多第三方多媒體控件的支持及API函數(shù)的調(diào)用。 6.1.1 VB集成開發(fā)環(huán)境 6.1.1 VB集成開發(fā)環(huán)境 1.VB集成開發(fā)環(huán)境的常規(guī)組成部分 標(biāo)題欄、菜單欄、工具欄。 2.VB集成開發(fā)環(huán)境的特有組成部分 六類窗口。 3.VB涉及三個(gè)重要概念 (1)窗口：窗口是一種有邊界的矩形區(qū)域。 (2)事件：事件是通過鼠標(biāo)、按鍵的操作、程序的控制或其他窗口所產(chǎn)生的操作或行為。 (3)消息：在事件驅(qū)動(dòng)模型中，程序代碼不是按照預(yù)定的順序執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。當(dāng)發(fā)生事件時(shí)，將引發(fā)一條消息，操作系統(tǒng)處理該消息并廣播給其他窗口。最后，每一個(gè)窗口根據(jù)自身處理該條消息的指令而采取適當(dāng)?shù)牟僮鳌?6.1.2 VB面向?qū)ο缶幊痰幕�本知識(shí) 1.類和對(duì)象的概念 （1）對(duì)象 對(duì)象是具有某些特性的具體事務(wù)的抽象。如一個(gè)具體的人、一個(gè)具體的動(dòng)物、一輛具體的車、等等，都是生活中所指的一個(gè)對(duì)象。（2）類類是同種對(duì)象的集合與抽象。如所有的人構(gòu)成人類。 （3）類和對(duì)象的關(guān)系類是創(chuàng)建對(duì)象實(shí)例的模板，而對(duì)象是類的一個(gè)實(shí)例。（4）對(duì)象的三要素 描述其特征的屬性；反映其動(dòng)作的行為（稱作方法）；還有在一定條件下發(fā)生的事件。 如“人”對(duì)象有體重屬性、有跑跳方法、有挨打事件。 1. VB中的基本數(shù)據(jù)類型整數(shù)— Integer; 長(zhǎng)整數(shù)— Long; 單精度實(shí)數(shù)—Single; 雙精度實(shí)數(shù)—Double; 字符串型—String; 邏輯數(shù)據(jù)—Boolean. 2. 變量、常量、表達(dá)式（1）變量：變量即在程序運(yùn)行過程中值可以發(fā)生變化的量。定義變量數(shù)據(jù)類型的語句： Dim 變量名 As 數(shù)據(jù)類型具體例句，如： Dim x As Integer （2）常量：常量是程序中不變的量。包括直接常量、符號(hào)常量和系統(tǒng)常量。 2. 變量、常量、表達(dá)式直接常量：如：15，-5.8，"China"，True、False，等等。字符串?dāng)?shù)據(jù)常量的表示要用英文雙引號(hào)："中國"， "Hello" 邏輯型數(shù)據(jù)常量只有兩種值：True， False 符號(hào)常量：用一個(gè)標(biāo)識(shí)符表示的常量，定義標(biāo)識(shí)符： Const 符號(hào)常量標(biāo)識(shí)符 [As 數(shù)據(jù)類型]=表達(dá)式 這里，用中括號(hào)括起來的部分表示可省略，如： Const PI As Double = 3.1415926 Const XM As String = "曹操" ，或: Const XM = "曹操" 系統(tǒng)常量：用系統(tǒng)保留的一些關(guān)鍵字所表示的常量，這些關(guān)鍵字由小寫字母"vb"開頭。如一些常用顏色值，VB就提供了系統(tǒng)常量的表示法，如：vbRed(紅色)、vbBlue(藍(lán)色)、vbBlack(黑色)。 3. VB中的基本運(yùn)算符 (1)算術(shù)運(yùn)算 +加、-減、*乘、/除、\求除法商的整數(shù)部分、^乘方 (2) 字符串連接運(yùn)算 &、+ （注意后面這個(gè)符號(hào)，即可作為算術(shù)加法符號(hào)，也可以作為字符串連接符號(hào)）。 (3) 關(guān)系運(yùn)算(比較運(yùn)算)符號(hào) >大于、>=大于或者等于、<小于、<=小于或者等于、＝等于、 <> 不等于。 VB中的基本運(yùn)算類型符號(hào) (3)關(guān)系運(yùn)算(比較運(yùn)算)：結(jié)果為邏輯值True / False。舉例： 6>5:結(jié)果為True 3>=3: 結(jié)果為True 6<=5:結(jié)果為False 7<>7: 結(jié)果為False "中國"= "中國":結(jié)果為True "ABD">"ABC" : 結(jié)果為True(按字符ASCII大小進(jìn)行逐個(gè)比較） VB中的基本運(yùn)算類型符號(hào)（4）邏輯運(yùn)算：And與， Or或， Not非 X And y: 當(dāng) x和y都是True時(shí)，結(jié)果才為True；其余情況結(jié)果都是False。 X Or y: 當(dāng) x和y中有一個(gè)以上是True時(shí)，結(jié)果為True；只有x和y全為False時(shí)結(jié)果才為False。 Not x:當(dāng)x是True時(shí)結(jié)果是False；當(dāng)x是False時(shí)結(jié)果是True。 （5）內(nèi)部函數(shù) VB中提供了許多內(nèi)部函數(shù)（又叫標(biāo)準(zhǔn)函數(shù))，可以直接調(diào)用，調(diào)用格式一般為： 函數(shù)名([實(shí)際參數(shù)列表]) 有些函數(shù)沒有參數(shù)，則[實(shí)際參數(shù)列表]部分不需要提供參數(shù)。一些示例： y = Sqrt(x) ：Sqrt函數(shù)是求非負(fù)實(shí)數(shù)的平方根函數(shù)，此語句將x開平方的值賦給y。 Y = Sin(3.14/2)：Sin函數(shù)是求一個(gè)角度（單位用弧度）的正弦，本語句求sin(π/2)即y=0.5。 t = Time：Time 函數(shù)是獲取機(jī)器中當(dāng)前時(shí)間的函數(shù)（無參數(shù)），該語句使 t 得到當(dāng)前時(shí)間。 n = Len("中國OK")：Len是求字符串的字符數(shù)的函數(shù)，本語句n得到的值為4，因?yàn)閂B中將一個(gè)漢字和一個(gè)英文字母都看作一個(gè)字符。 2.選擇結(jié)構(gòu) 1)單分支選擇語句 If 表達(dá)式 Then 語句塊 End If 或: If 表達(dá)式 Then 語句 例:已知兩個(gè)數(shù)x和y，比較它們的大小， 使得x大于y。 If x<y Then t=x x=y y=t End If 或 If x<y Then t=x: x=y: y=t 2.選擇結(jié)構(gòu) 2)二分支選擇語句 If 表達(dá)式 Then 語句塊1 Else 語句塊2 End If If 表達(dá)式 Then 語句1 Else 語句2 2.選擇結(jié)構(gòu) 3)多分支選擇 多分支If選擇格式如下： If 表達(dá)式1 Then 語句塊1 ElseIf 表達(dá)式2 Then 語句塊2 … [ Else 語句塊 n+1 ] End If 不管有幾個(gè)分支，依次判斷，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句塊，其余分支不再執(zhí)行；若條件都不滿足，且有Else子句，則執(zhí)行該語句塊，否則什么也不執(zhí)行。 注意：ElseIf不能寫成 Else If。 6.2 VB圖形處理技術(shù) 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.2 繪圖程序?qū)嵗?6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法在VB中，坐標(biāo)系統(tǒng)是一個(gè)二維網(wǎng)格，可定義屏幕上、窗體中或其他容器中的位置。 VB默認(rèn)窗體內(nèi)部區(qū)域的左上角點(diǎn)的坐標(biāo)為(0，0)；使用窗體中的坐標(biāo)(x，y)，可定義窗體內(nèi)部點(diǎn)的坐標(biāo)位置。若窗體內(nèi)部區(qū)域?qū)挾葹閍，高度為b；則窗體右下角點(diǎn)的坐標(biāo)就是(a， b)。如下圖所示。 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.1 VB坐標(biāo)系統(tǒng)設(shè)置與繪圖方法 6.2.2 繪圖程序?qū)嵗?命令代碼（畫園）： Private Sub Picture1_Click() Picture1.ScaleWidth = 2000 '將區(qū)域?qū)挾戎付��?000單位 Picture1.ScaleHeight = 1500 '將區(qū)域高度指定為2000單位 Picture1.ScaleLeft = -1000 '指定左上角橫坐標(biāo)為-1000 Picture1.ScaleTop = -750 Picture1.Circle (0， 0)， 750， vbBlack '畫圓 Picture1.DrawWidth = 3 '設(shè)置畫筆粗度為3點(diǎn) Picture1.PSet (0， 0)， vbRed '畫圓心點(diǎn)(紅色)， 粗度為3點(diǎn) End Sub 6.2.2 繪圖程序?qū)嵗��?-4. 用Line方法在窗體上畫同心矩形，結(jié)果如圖6-16所示。 【分析】在窗體上設(shè)置一個(gè)PictureBox控件，用Line方法以不同的顏色畫25個(gè)同心矩形，并以同色填充，顏色由函數(shù)QBColor設(shè)置，線條寬度由屬性DrawWidth確定。在Picture1的Click事件處理過程中，循環(huán)調(diào)用Line方法25次，每次畫一個(gè)矩形。 操作： 1. 在窗體Form中建立一個(gè)圖片框Picture1 2. 設(shè)置Picture1的屬性： 本例在命令代碼中設(shè)置， 也可在屬性框自定義坐標(biāo)屬性 命令代碼： Private Sub Picture1_Click() Dim CX， CY， F， F1， F2， I ' 聲明變量。 Picture1.ScaleMode = 3 ' 設(shè)置 ScaleMode 為像素。 CX = Picture1.ScaleWidth / 2 ' 水平中點(diǎn)。 CY = Picture1.ScaleHeight / 2 ' 垂直中點(diǎn)。 Picture1.DrawWidth = 8 ' 設(shè)置 DrawWidth。 For I = 50 To 0 Step -2 F = I / 50 ' 執(zhí)行中間步驟。 F1 = 1 - F: F2 = 1 + F ' 計(jì)算。 Picture1.ForeColor = QBColor(I Mod 15) ' 設(shè)置前景顏色 Picture1.Line (CX * F1， CY * F1)-(CX * F2， CY * F2)， ， BF Next I End Sub 6.2.2 繪圖程序?qū)嵗?操作： 1. 在窗體Form中建立兩個(gè)圖片框Picture1 和Picture2 2. 設(shè)置Picture的屬性： Picture1，name=P1 Picture2， name=P2 其他屬性：在命令代碼中設(shè)置， （也可在屬性框自定義坐標(biāo)屬性） 命令代碼P1： Private Sub P1_Click() '左邊圖片框的名稱為P1 Dim x As Single， y As Single Const π As Single = 3.14159 '定義π為符號(hào)常量 P1.ScaleLeft = 0 '設(shè)置圖片框左上角的橫坐標(biāo)為0 P1.ScaleTop = -2 '設(shè)置圖片框左上角的縱坐標(biāo)為-2 '故左上角點(diǎn)坐標(biāo)被自定義為（0，-2) P1.ScaleHeight = 4 '此句設(shè)置的圖片框高度4為正數(shù)， '則縱軸的正方向按默認(rèn) (從上往下) P1.ScaleWidth = 2 * π P1.Line (0， 0)-(2 * π， 0)， vbRed '畫橫軸的正半軸 P1.Line (0， 0)-(0， 2)， vbRed '畫縱軸的正半軸 For x = 0 To 2 * π Step 0.01 y = Sin(x) P1.PSet (x， y)， vbBlue Next P1.DrawWidth = 3 P1.PSet (π / 2， 1)， vbRed '在(π/2，1)處畫一個(gè)紅色點(diǎn) End Sub 命令代碼P2： Private Sub P2_Click() '右邊圖片框的名稱為P2 Dim x As Single， y As Single Const π As Single = 3.14159 '定義π為符號(hào)常量 P2.ScaleLeft = 0 '設(shè)置圖片框左上角的橫坐標(biāo)為0 P2.ScaleTop = 2 '設(shè)置圖片框左上角的縱坐標(biāo)為2 '故左上角點(diǎn)坐標(biāo)被自定義為（0，2) P2.ScaleHeight = -4 '此句設(shè)置的圖片框高度為負(fù)數(shù)-4 '則縱軸的正方向跟默認(rèn)相反(從下往上) P2.ScaleWidth = 2 * π P2.Line (0， 0)-(2 * π， 0)， vbRed '畫橫軸的正半軸 P2.Line (0， 0)-(0， 2)， vbRed '畫縱軸的正半軸 For x = 0 To 2 * π Step 0.01 y = Sin(x) P2.PSet (x， y)， vbBlue Next P2.DrawWidth = 3 P2.PSet (π / 2， 1)， vbRed '在(π/2，1)處畫一個(gè)紅色點(diǎn) End Sub 6.2.2 繪圖程序?qū)嵗?操作： 1. 在窗體Form中建立一個(gè)圖片框Picture1 2. 設(shè)置Picture的屬性： 在命令代碼中設(shè)置， （也可在屬性框自定義坐標(biāo)屬性） -. . 命令代碼P1： '可改變園的半徑r及等份數(shù) Private Sub Picture1_Click() Dim x As Single， y As Single Dim x0 As Single， y0 As Single Dim r As Single， π As Single Picture1.Cls π = 3.14159 r = Picture1.ScaleHeight / 4 '可改變?yōu)?，6，8等 x0 = Picture1.ScaleWidth / 2 '園心點(diǎn)橫坐標(biāo) y0 = Picture1.ScaleHeight / 2 '園心點(diǎn)縱坐標(biāo) st = π/10 '等分園周為6份(=2π/6=π/3)，等分園周為20份(=2π/20) For I = 0 To 2 *π Step st '循環(huán)繪制園 x = r * Cos(I) + x0 '取圓周上的等分點(diǎn)(x，y) y = r * Sin(I) + y0 Picture1.Circle (x， y)， 0.9 * r '以半徑r1=0.9r繪制園 Next I End Sub 6.3 VB圖像處理技術(shù) 6.3.1 圖片框和圖像框的圖像加載與刪除 6.3.2 API函數(shù)StretchBlt的語法* 6.3.3 API函數(shù)的聲明* 6.3.4 實(shí)現(xiàn)圖像縮放、翻轉(zhuǎn)、旋轉(zhuǎn)的程序* （加*號(hào)的小節(jié)內(nèi)容可不做要求）。 6.3.1 圖片框和圖像框的圖像加載與刪除圖片框: PictureBox控件圖像框: Image控件 6.3.1 圖片框和圖像框的圖像加載與刪除 1. 圖片框PictureBox 1) Picture屬性與LoadPicture函數(shù)在運(yùn)行時(shí)可使用LoadPicture函數(shù)載入圖形。例如： Picture1.Picture=LoadPicture("E:\AA\Lena.bmp") '上述語句將指定位置(E:\AA\)的Lena.bmp圖像裝入圖片框Picture1。 Picture1.Picture=LoadPicture() '上述語句對(duì)LoadPicture() 不提供參數(shù)，表示刪除圖片框Picture1中的已有圖片。 6.3.1 圖片框和圖像框的圖像加載與刪除 1. 圖片框PictureBox 2) AutoSize屬性決定圖片框控件是否能自動(dòng)改變大小以顯示其裝入圖片的全部?jī)?nèi)容。其值可�。� True：取此值時(shí)，圖片框可以自動(dòng)改變大小，框的大小適應(yīng)于所裝圖像的大小。 False：取此值時(shí)，圖片框不能自動(dòng)改變大�。ù笮」潭�為先前所設(shè)定的尺寸）。其中，默認(rèn)值是False。 6.3.1 圖片框和圖像框的圖像加載與刪除 2. 圖像框Image 1) Picture屬性與LoadPicture函數(shù)在運(yùn)行時(shí)可使用LoadPicture函數(shù)載入圖形。例如： Image1.Picture=LoadPicture("E:\AA\Lena.bmp") '上述語句將指定位置(E:\AA\)的Lena.bmp圖像裝入圖片框Picture1。 Image1.Picture=LoadPicture() '上述語句對(duì)LoadPicture() 不提供參數(shù)，表示刪除圖片框Picture1中的已有圖片。 6.3.1 圖片框和圖像框的圖像加載與刪除 2. 圖像框Image 2) Stretch屬性決定待裝入的圖片的大小能否自動(dòng)適應(yīng)圖像框控件的大小，以便圖像文件內(nèi)容能否全部被顯示。其值可取True或False，其中默認(rèn)值是False。 True：取此值時(shí)，圖像可以自動(dòng)改變大小，使所裝圖像的大小適應(yīng)于圖像框的大小。 False：取此值時(shí)，圖像不能自動(dòng)改變大�。ù笮」潭�為文件圖像的原始大�。�。注意：圖像框Image的Stretch屬性對(duì)應(yīng)于圖片框PictureBox的AutoSize屬性，但PictureBox是讓框的大小去適應(yīng)圖像；而Image是讓圖像大小去適應(yīng)框的大小。這一點(diǎn)從意義上來看是相反的。 6.3.2 API函數(shù)StretchBlt的語法一個(gè)非常有用的復(fù)制圖片的API函數(shù)－－StretchBlt. 該函數(shù)的調(diào)用語法： StretchBlt hDestDc， x， y， nWidth， nHeight， hSrcDc， _ xSrc， ySrc， nSrcWidth， nSrcHeight， dwRop 參數(shù)解釋： hDestDc：目標(biāo)圖片框的句柄，即目標(biāo)圖片框的hDC屬性值。 hSrcDc：來源圖片框的句柄，即源圖片框的hDC屬性值。 x，y：復(fù)制到目標(biāo)圖片框圖像的左上角坐標(biāo)（目標(biāo)起點(diǎn)）。 nWidth， nHeight：復(fù)制到目標(biāo)圖片框中的寬度、高度。 xSrc， ySrc：來源圖片框的左上角坐標(biāo)（被復(fù)制的起點(diǎn)）。 nSrcWidth， nSrcHeight：源圖片框要復(fù)制部分的寬度、。 dwRop：表示繪制方式，本例取SRCCOPY方式(直接復(fù)制). 6.3.3 API函數(shù)的聲明 API函數(shù)使用的2步驟－－先聲明、后調(diào)用。 StretchBlt函數(shù)、 SRCCOPY常量的聲明可以按下列步驟實(shí)現(xiàn)，VB將自動(dòng)拷貝語句到程序代碼窗口的“通用－聲明”區(qū)： (1) 在VB開發(fā)環(huán)境中，單擊“外接程序”菜單/“API瀏覽器”子菜單，彈出 “API瀏覽器”窗口。（若菜單下無/“API瀏覽器”，或“API Viewer”可從“外接程序管理器”子菜單的對(duì)話框設(shè)置“加載”，重啟VB即可發(fā)現(xiàn)“外接程序”菜單下有/“API瀏覽器”或“API Viewer”子項(xiàng)）。“API Viewer”窗口圖見下頁所示。 (2) 在“API瀏覽器”窗口單擊“文件”菜單/“加載文本文件”子菜單，在打開文件對(duì)話框中找到“Win32API.TXT”，“確定”；然后在“API瀏覽器”窗口“API類型”下拉表中選擇“聲明”；就會(huì)在“API瀏覽器”窗口的“可選項(xiàng)”列表中出現(xiàn)所有API函數(shù)的名稱。 (3) 在“可選項(xiàng)”列表上方的文本框中輸入你要的API函數(shù)名稱前幾個(gè)字母，系統(tǒng)就會(huì)定位到匹配的名稱上；選擇你想要的那個(gè)API函數(shù)的名稱，點(diǎn)“添加”，所選函數(shù)的聲明語句就被加入“API瀏覽器”窗口下面的列表框中。 6.3.3 API函數(shù)的聲明 API函數(shù)使用的2步驟－－先聲明、后調(diào)用。 StretchBlt函數(shù)、 SRCCOPY常量的聲明操作步驟（續(xù)）： （4）如果還有其它API函數(shù)要聲明，再重復(fù)步驟(3)添加所有本程序?qū)⑿枰�的API函數(shù)的聲明到下面的列表框中。（5）在“API類型”下拉表中選擇“常數(shù)”，用同樣的方法添加“常數(shù)” 的聲明語句到下面的列表框中。（6）點(diǎn)“插入”按鈕，就會(huì)直接將聲明語句插入到程序的代碼窗口中；或點(diǎn)“復(fù)制”將語句先復(fù)制到剪貼板，然后再回到VB程序代碼窗口“粘貼”也可。注意：如果聲明語句插入到窗體模塊中，函數(shù)的聲明中應(yīng)將“Public”關(guān)鍵字改為“Private”，常量、類型也應(yīng)去掉“Public”關(guān)鍵字。 Form_Load過程的代碼如下： Private Sub Form_Load() '本過程在程序啟動(dòng)時(shí)執(zhí)行 Src = Picture1.hdc Dst = Picture2.hdc p1w = Picture1.ScaleWidth p1h = Picture1.ScaleHeight p2w = Picture2.ScaleWidth p2h = Picture2.ScaleHeight End Sub 其它代碼見例6-7程序。 Private Sub Command1_Click() ' 復(fù)制 StretchBlt Dst， 0， 0， p2w， p2h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command2_Click() ' 復(fù)制一部分(取源圖片右下角1/4面積復(fù)制到目標(biāo)圖片框左上角):右下角1/4面積 StretchBlt Dst， 0， 0， p2w / 2， p2h / 2， Src， p1w / 2， p1h / 2， p1w / 2， p1h / 2， SRCCOPY End Sub Private Sub Command3_Click() ' 放大(源圖片寬度高度均放大到2倍再復(fù)制到目標(biāo)圖片框左上角) StretchBlt Dst， 0， 0， p1w * 2， p1h * 2， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command4_Click() ' 縮小(源圖片寬度高度均縮小到0.5倍再復(fù)制到目標(biāo)圖片框左上角) StretchBlt Dst， 0， 0， p1w / 2， p1h / 2， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command5_Click() ' 上下翻轉(zhuǎn) StretchBlt Dst， 0， p1h， p1w， -p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command6_Click() ' 左右翻轉(zhuǎn) StretchBlt Dst， p1w， 0， -p1w， p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command7_Click() '180度旋轉(zhuǎn)(順時(shí)針旋轉(zhuǎn)180度) StretchBlt Dst， p1w， p1h， -p1w， -p1h， Src， 0， 0， p1w， p1h， SRCCOPY End Sub Private Sub Command8_Click() ' 清除（清除目標(biāo)圖片框內(nèi)容） Picture2.Refresh '執(zhí)行PictureBox對(duì)象的 Refresh方法 End Sub 6.4 用VB操縱多媒體Access數(shù)據(jù)庫 6.4.1 Data控件的作用與主要屬性 6.4.2 數(shù)據(jù)綁定控件的使用 6.4.3 用Data控件與數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫的編程步驟 6.4.4 用VB訪問Access數(shù)據(jù)表圖片字段的程序 6.4.1 Data控件的作用與主要屬性 1. Data控件的作用: 標(biāo)準(zhǔn)控件與數(shù)據(jù)庫連接的橋梁 完成對(duì)數(shù)據(jù)庫的連接; 打開指定數(shù)據(jù)庫的表; 將表中的字段傳至數(shù)據(jù)綁定控件， 并能針對(duì)數(shù)據(jù)綁定控件中的修改，更新數(shù)據(jù)庫; 關(guān)閉數(shù)據(jù)庫。 2. Data控件的主要屬性 Connect：設(shè)定數(shù)據(jù)庫類型（如Access）； DatabaseName：設(shè)定要打開的數(shù)據(jù)庫名； RecordSource：設(shè)定數(shù)據(jù)源(一般是表名)。 6.4.2 數(shù)據(jù)綁定控件的使用 1.數(shù)據(jù)綁定控件的作用和類型 作用：在VB程序界面上用來顯示數(shù)據(jù)庫表中某些數(shù)據(jù)字段的值。 ; 類型：TextBox，Label，PictureBox 等可視控件。 2.數(shù)據(jù)綁定控件的兩個(gè)關(guān)鍵屬性 DataSource屬性 ：指定該控件要綁定的數(shù)據(jù)源，其值為Data控件的名稱； DataField屬性 ：指定該控件要綁定的數(shù)據(jù)字段，其值一般是數(shù)據(jù)表的字段名。 3.標(biāo)準(zhǔn)數(shù)據(jù)綁定控件的用法畫好控件; 綁定DataSource、 DataField這兩個(gè)屬性 。 6.4.3 用Data控件與數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫的編程步驟 （1）在VB窗體中加入一個(gè)Data控件。（2）設(shè)置Data控件的DatabaseName屬性(數(shù)據(jù)庫名)。（3）設(shè)置Data控件的RecordSource屬性(數(shù)據(jù)表名)。（4）添加適當(dāng)數(shù)量的數(shù)據(jù)綁定控件（如TextBox等）用于顯示字段值。（5）設(shè)置數(shù)據(jù)綁定控件的DataSource屬性來指定數(shù)據(jù)源（其值為Data控件的名稱）。（6）設(shè)置數(shù)據(jù)綁定控件的DataField屬性（每個(gè)綁定控件分別設(shè)置不同數(shù)據(jù)字段名）。（7）必要時(shí)使用Data控件的方法和事件；并添加其它代碼，實(shí)現(xiàn)更為復(fù)雜的功能。（8）執(zhí)行該工程。 6.4.4 用VB訪問Access數(shù)據(jù)表圖片字段的程序 6.5 用VB實(shí)現(xiàn)多媒體文件播放 6.5.1 Multimedia MCI控件的添加工具箱中沒有，是ActiveX控件，先要添加到工具箱。 1. 把Multimedia MCI控件加到工具箱（步驟如下）：在“工程”菜單中，單擊“部件”以顯示“部件”對(duì)話框。選定控件名稱左邊的復(fù)選框(Multimedia MCI控件名稱是Microsoft Multimedia Control 6.0)。單擊“確定”以關(guān)閉“部件”對(duì)話框。所有選定的ActiveX控件將出現(xiàn)在工具箱中(Multimedia MCI控件在工具箱中的圖標(biāo)是 ，鼠標(biāo)指向時(shí)的提示名稱是MMControl)。 1. 把Multimedia MCI控件加到工具箱（2）把 Multimedia 控件添加到窗體上： 方法雷同于添加工具箱中標(biāo)準(zhǔn)控件到窗體。（3）Multimedia 控件的按鈕：當(dāng)你打開有效的多媒體設(shè)備并且控件可用時(shí)，系統(tǒng)會(huì)自動(dòng)完成相應(yīng)工作。按鈕被分別定義為：Prev、 Next、 Play、 Pause、 Back、 Step、 Stop、 Record 和 Eject。你可以為某一個(gè)按鈕編寫程序，從而為其增加特殊功能；但通常用缺省的按鈕功能就能很好地播放音樂和視頻。 1. DeviceType屬性 在引用控件時(shí)，需要指定控件的DeviceType 屬性，格式是： MMControl1.DeviceType=Devname Multimedia控件支持的多媒體設(shè)備的Devname值有： AVIVideo(視頻文件*.avi)、 WaveAudio (音頻文件*.Wav) 、Sequencer (midi音頻文件*.mid) 等。 2. Command屬性　 在Multimedia控件中非常有用的一個(gè)屬性是Command，它在運(yùn)行過程中向多媒體設(shè)備發(fā)出命令，命令格式是： MMControl.Command = cmdstringS 其中cmdstringS變量與每一個(gè)按鈕的定義名稱一致，取值可以是："Open" 、"Play" 、"Pause" 、 "Close" 等字符串值。 6.5.2 Multimedia 控件的主要屬性和事件 3.其它屬性 1) FileName 屬性 取值字符串類型，表示播放的媒體文件名（可以帶路徑）。 2) Visible屬性 Visible屬性控制設(shè)備的可見性，取邏輯值，True可見，F(xiàn)alse不可見。 3) Mode屬性 反映媒體設(shè)備目前狀態(tài)信息，Mode屬性在運(yùn)行時(shí)為只讀屬性。 4) AutoEnable屬性 決定 Multimedia MCI控件是否能夠自動(dòng)啟動(dòng)或關(guān)閉控件中的某個(gè)按鈕。 MMControl.AutoEnable = True/False 6.5.2 Multimedia 控件的主要屬性和事件 3.其它屬性 5) ButtonEabled屬性 該屬性設(shè)定控件上各個(gè)按鈕的狀態(tài)是否有效，例如：　 MMControl1.PlayEabled = True / False ’有效/不有效 6) Wait 屬性 Wait屬性指定MMControl控件是否等到下一命令執(zhí)行完畢，才將控制權(quán)還給應(yīng)用程序。例如： MMControl1.Wait = True / False ’等待/不等待 7) Shareable屬性 決定該設(shè)備能否為不同的程序共享，取邏輯值，True共享，F(xiàn)alse不共享。 8) Notify屬性 描述下一個(gè)MCI控制命令是否采用確認(rèn)服務(wù)，取True或False。 6.5.2 Multimedia 控件的主要屬性和事件 3.其它屬性 9) UpdateInterval屬性 決定兩次StatusUpdate事件發(fā)生所間隔的時(shí)間毫秒數(shù)。 MMControl. UpdateInterval = n ’使兩次StatusUpdate事件發(fā)生所間隔的時(shí)間毫秒數(shù)為n毫秒。 10) hWndDisplay屬性： hWndDisplay屬性的值為長(zhǎng)整數(shù)，用來指定視頻播放的窗口。如果用圖片框作為播放窗口，該屬性的值取圖片框的hWnd屬性值，例如：MMControl.hWndDisplay = Picture1.hWnd '指定在Picture1中播放＊.avi文件。 4. Multimedia MCI控件的常用事件 參見表6-3。 語句舉例： MMControl.Command = "Open" ’打開設(shè)備 MMControl.Command = "Play" ’媒體播放 MMControl.Command = "Pause" ’播放暫停 MMControl.Command = "Close" ’關(guān)閉設(shè)備 MMControl1.DeviceType= "AVIVideo" ’指定視頻設(shè)備 MMControl. Visible= True/False ’ 指定多媒體控件對(duì)象在執(zhí)行階段是否可見(即是否顯示出來). True可見，F(xiàn)alse不可見。 MMControl. Mode ’指明媒體設(shè)備目前狀態(tài)的整數(shù)，運(yùn)行時(shí)為只讀 MMControl. AutoRewind ’是否自動(dòng)循環(huán)，默認(rèn)是False不循環(huán)。 MMControl. Shareable = True/False ’指明該設(shè)備能否為不同的程序共享。 True共享，F(xiàn)alse不共享。 6.5.3 音、視頻播放示例程序例6-9. 本例是一個(gè)用Multimedia MCI控件集成音樂和視頻播放的應(yīng)用程序，用了2個(gè)Multimedia控件，其中，用MMControl1控件用于播放聲音，它可播放＊.wav、＊.mid、＊.mp3文件。用MMControl2控件播放＊.avi視頻文件，且指定視頻在圖片框Pictutre1中播放。這樣，使得音像可以同時(shí)播放。要播放的音頻文件和視頻文件須事先在兩個(gè)文本框中分別指定。程序的播放界面如圖6-25所示。 6.5.3 音、視頻播放示例程序 6.6 用VB編制動(dòng)畫程序 6.6.1 時(shí)鐘(Timer)控件的屬性、事件 6.6.2 實(shí)現(xiàn)控件運(yùn)動(dòng)的基本語句 6.6.3 典型示例程序 6.6.1 時(shí)鐘(Timer)控件的屬性、事件 1. 常用屬性 1) Interval屬性單位：毫秒ms(=0.001s)，0.5秒是500。 Interval＝0：屏蔽計(jì)時(shí)器(即停止執(zhí)行Timer( )過程)。 2) Enabled屬性 Enabled =True： Timer事件按Interval間隔不斷發(fā)生。 Enabled =False：停止時(shí)鐘工作（ Timer( )事件停止）。 2.常用事件 Timer( )事件：每隔Interval時(shí)間執(zhí)行此事件過程。 6.6.2 實(shí)現(xiàn)控件運(yùn)動(dòng)的基本語句 1. Move方法作用：移動(dòng)對(duì)象的位置（并可在移動(dòng)位置時(shí)改變對(duì)象的大�。�，適用于可視對(duì)象。語法格式如下： Object.Move Left [， Top， Width， Height] Move方法的語法包含下列部分： Object：是一個(gè)對(duì)象的名稱，其值可以是標(biāo)簽、文本框等可視對(duì)象的名稱。 Left：是必需的參數(shù)，類型為單精度值，指示Object移到新地方后距離其容器控件左邊界的水平坐標(biāo)距離(x軸方向的坐標(biāo)值)。 Top：可選參數(shù)，類型也是單精度值，指示Object移到新地方后距離其容器控件頂邊的垂直坐標(biāo)距離(y軸方向的坐標(biāo)值)。 Width：可選的參數(shù)，類型也是單精度值，指示Object新的寬度。 Height：可選的參數(shù)，類型也是單精度值，指示Object新的高度。 6.6.2 實(shí)現(xiàn)控件運(yùn)動(dòng)的基本語句 2. 改變Top屬性和Left屬性的賦值語句設(shè)窗體名為Form1，窗體中有一名Label1的標(biāo)簽，窗體坐標(biāo)系統(tǒng)采用默認(rèn)的坐標(biāo)系，移動(dòng)該標(biāo)簽的語句舉例如下： Label1.Left = Label1.Left + 100 '表示Label1標(biāo)簽右移100單位 Label1.Left = Label1.Left - 200 '表示Label1標(biāo)簽上移200單位 Label1.Top = Label1.Top + 50 '表示Label1標(biāo)簽下移50單位 Label1.Top = Label1.Top - 150 '表示Label1標(biāo)簽上移150單位 如果要使Label1標(biāo)簽向與x軸正向成45度傾角的右上方移動(dòng)大約141單位距離，可以綜合執(zhí)行下列兩句： Label1.Left = Label1.Left + 100 '右移100單位 Label1.Top = Label1.Top - 100 '上移100單位 6.6.3 典型示例程序例6-10. 動(dòng)態(tài)文字。本程序使用兩個(gè)標(biāo)簽分別實(shí)現(xiàn)文字閃爍、字號(hào)動(dòng)態(tài)變大的效果，界面如圖6-26所示。其中，“歡迎！歡迎！”字樣閃爍，“英雄”字樣動(dòng)態(tài)變大。 6.6.3 典型示例程序 6.6.3 典型示例程序FWd紅軟基地