【正文】 , 讀者將會發(fā)現(xiàn)自己正在使用很多強大的VB功能 ， 設(shè)計一些重要的多媒體應(yīng)用程序 。 因此 , 任何 VB所提供的功能對多媒體項目都是有用的 , 并且一些 VB內(nèi)在的多媒體特性將特別有用 。 下面讓我們一步一步地學(xué)習(xí) , 來領(lǐng)略多媒體世界的風(fēng)采 。 窗體 （ From） 、 圖像框 （ Image） 、 圖片框 （ PictureBox）是 VB內(nèi)在的多媒體對象 , 這三個對象都有圖片屬性 （ Picture Property） 和畫圖方法 （ Graphics Methods） 等多媒體特性 。 畫圖方法在程序運行時為我們的程序提供重要的繪圖功能 , 如畫直線 、 矩形和圓 , 利用這一功能 , 我們可以很容易地在程序中修飾我們所設(shè)計的界面 。 在 VB中 , 允許我們于設(shè)計時或運行時為應(yīng)用程序增加或改變圖片 , 也可以移動它們 、 改變它們的尺寸大小 。 利用 VB的圖片剪貼控件或控件數(shù)組的技術(shù) , 我們可以很容易地制作動畫 。 我們將在以后的章節(jié)中廣泛地使用圖像框 （ Image） 、 圖片框（ Picture Box） 、 文本框 （ Text Box） 和窗體 （ Form） ,并使用它們一些有用的屬性和方法 , 來進(jìn)行多媒體工程的開發(fā)與設(shè)計 。 下面讓我們來學(xué)習(xí)第一個多媒體程序的設(shè)計 。 這個程序教我們?nèi)绾问褂?VB的畫圖方法 （ 這里使用 Line方法 ） 、 圖片剪貼控件 （ PictureClip） 和定時器控件 （ Timer） , 來制作動畫效果 。 首先 , 我們在 VB的文件菜單中新建一個工程 , 這時 VB會自動生成一個 Form1窗體 。 如圖 , 在窗體上放置一個標(biāo)簽控件 （ Label1） , 并在屬性窗口中將其 Visible屬性設(shè)成假（ False, 因為我們希望畫完線后再顯示該標(biāo)簽 , 所以先將它隱藏 ） , 在 Caption屬性中輸入文字 “ 圖形學(xué)作業(yè) ” 。 接下來 , 雙擊 Form1窗體 , 在出現(xiàn)的 Code窗口 （ 編程窗口 ）中單擊下拉菜單 , 找到 Form的 Activate事件 （ 該事件是窗體運行后首先會執(zhí)行的事件 ） , 并對該事件編寫如下程序： 圖 在窗體上放置一個標(biāo)簽控件 Label1 程序： Private Sub Form Activate( ) ′在 Y坐標(biāo) 2660、 2760、 2860處 , For i = 2100 To 7600 Line (2100, 2660)(i, 2660), RGB(0, 0, 0) Line (2100, 2760)(i, 2760), RGB(0, 0, 0) Line (2100, 2860)(i, 2860), RGB(0, 0, 0) Next i ′畫完線后 , 將標(biāo)簽 Label1上的文字 “ 圖形學(xué)作業(yè) ” 顯示出來 = True End Sub 讓我們先運行一下前面的程序 。 按 F5鍵就可運行該程序 , 這時我們看到了在 Y坐標(biāo) 2660、 2760、 2860處 , 連續(xù)畫了三條直線 , 畫完線后 , 文字 “ 圖形學(xué)作業(yè) ” 已顯示出來 。 下面我們使用圖片剪貼控件 （ PictureClip） 和定時器控件 （ Timer） , 來制作動畫效果 。 為了使用 PictureClip控件 , 我們需先繪制好動畫的每幀畫面 （ 注意 , 每幀畫面必須一樣大 ） , 并用 PhotoShop圖形處理軟件將它們依動畫的順序拼成一張大圖 , 如圖 , 我們將八張動畫幀畫面安排成 2行 4列 （ 也可以根據(jù)需要安排成 4行 2列 、 8行 1列或者 1行 8列 , 讀者學(xué)完本例后 , 就會清楚如何安排 ） 。 圖 2行 4列 現(xiàn)在介紹一下所使用的 PictureClip控件和 Timer控件的屬性 。 在 PictureClip控件中 , 主要用到 Rows、 Cols、 GraphicCell三個屬性： ① Rows、 Cols屬性：根據(jù)拼成的大圖設(shè)定 Rows、 Cols的值 。 在這里 , Rows=2, Cols=4。 ② GraphicCell（ Number） 屬性： 它是一個一維數(shù)組 , 從左向右 , 自上而下 , GraphicCell（ 0） 表示第一幀圖 , GraphicCell（ 1） 表示第二幀圖 , … , GraphicCell（ Rows*Cols1） 表示最后一幀圖 。 在 Timer控件中 , 主要用到 Enabled、 Interval二個屬性和Timer事件 （ 定時器事件 ） ： ① Enabled屬性：為真 （ True） 時 , 允許 Timer事件發(fā)生； 為假 （ False） 時 , 禁止 Timer事件發(fā)生 。 ② Interval屬性：它是時間間隔屬性 。 時間間隔以毫秒為單位計算 , 決定 Timer事件發(fā)生的頻率 。 由于機器系統(tǒng)的定時器時間間隔為 1／ 18秒 , 因此最短的有意義的間隔時間為 1/18秒 （ 即 56毫秒 ） 。 這里我們將使用定時器來實現(xiàn)動畫 , 要想得到最平滑的動畫效果 , 設(shè)置 Interval為 56。 有了上面的知識后 , 我們就可以接著進(jìn)行設(shè)計了 。 首先右擊工具箱 , 點擊 “ 部件 ” , 在出現(xiàn)的對話框中選中 “ Microsoft PictureClip Control ” , 以導(dǎo)入 PictureClip控件 。 然后在窗體中加入一個 Timer控件 （ Timer1） 、 一個 PictureClip控件（ PictureClip1） 和一個 PictureBox控件 （ Picture1） 。 將 Timer1的 Enabled屬性設(shè)成假 （ False） , Timer1的 Interval屬性設(shè)成 56；將 PictureClip1的 Picture屬性設(shè)成圖 , PictureClip1的 Rows屬性設(shè)成 2, PictureClip1的 Cols屬性設(shè)成 4； 將 Picture1的 Appearance屬性設(shè)成 0（ Flat, 平面 ） ,Picture1的BackColor（ 背景色 ） 屬性設(shè)成白色 , Picture1的 BorderStyle屬性設(shè)成 0（ None, 無邊框 ） ， 如圖 , 其中虛框為 Picture1控件 。 接下來我們進(jìn)行編程 。 先在 Form的 “ 通用 聲明 ” 段定義一個變量 Number, 作為當(dāng)前的圖編號 , 加入以下語句： Dim Number As Integer ′ 同時修改 Form的 Activate事件代碼如下： 圖 Timer、 PictureClip、 PictureBox控件 Private Sub Form Activate() ′在 Y坐標(biāo) 2660、 2760、 2860處 , For i = 2100 To 7600 Line (2100, 2660)(i, 2660), RGB(0, 0, 0) Line (2100, 2760)(i, 2760), RGB(0, 0, 0) Line (2100, 2860)(i, 2860), RGB(0, 0, 0) Next i ′畫完線后 , 將標(biāo)簽 Label1上的文字 “ 圖形學(xué)作業(yè) ” 顯示出來 = True ′動畫應(yīng)從第一幀開始 Number = 0 = True′允許 Timer1 End Sub 增加 Timer1的 Timer事件代碼如下 : Private Sub Timer1 Timer() Number% = Number% + 1 ′ If Number 7 Then ′如果動畫已到最后一幀 , Number = 0 ′ End If ′在 Picture1 = (Number%) End Sub運行該程序 , 當(dāng)文字 “ 圖形學(xué)作業(yè) ” 顯示出來后 , 我們看到了動畫的效果 ， 最后我們來完善這個程序 。 為了能夠控制動畫的播放 , 以及在動畫播放時能夠看見動畫的各幀畫面 , 我們需要再加入二個命令按鈕 Command1和 Command2（ 如圖 ） , 將它們的 Caption屬性分別設(shè)成 “ 開始動畫 ”和 “ 退出程序 ” , 并在 Form的 “ 通用 聲明 ” Number = 0 = True′允許 Timer1 End Sub 增加 Timer1的 Timer事件代碼如下 : Private Sub Timer1 Timer() Number% = Number% + 1 ′ If Number 7 Then ′如果動畫已到最后一幀 , Number = 0 ′ End If ′在 Picture1 = (Number%) End Sub 運行該程序 , 當(dāng)文字 “ 圖形學(xué)作業(yè) ” 顯示出來后 , 我們看到了動畫的效果 ， 如圖 。 最后我們來完善這個程序 。 為了能夠控制動畫的播放 , 以及在動畫播放時能夠看見動畫的各幀畫面 , 我們需要再加入二個命令按鈕 Command1和 Command2（ 如圖 ） , 將它們的 Caption屬性分別設(shè)成 “ 開始動畫 ” 和 “ 退出程序 ” , 并在Form的 “ 通用 聲明 ” 段在定義一個變量 ， 以判斷動畫是請啟動 . 圖 動畫效果 圖 加入二個命令按鈕 Command1和 Command2 Dim IsPlaying As Boolean ′ 同時修改 Form的 Activate事件代碼如下： Private Sub Form Activate() ′在 Y坐標(biāo) 2660、 2760、 2860處 , For i = 2100 To 7600 Line (2100, 2660)(i, 2660), RGB(0, 0, 0) Line (2100, 2760)(i, 2760), RGB(0, 0, 0) Line (2100, 2860)(i, 2860), RGB(0, 0, 0) Next i ′畫完線后 , 將標(biāo)簽 Label1上的文字 “ 圖形學(xué)作業(yè) ” = True ′開始時 , IsPlaying = False ′ Number = 0 End Sub [HJ] 增加 Command1和 Command2的 Click事件 （ 單擊事件 ） 代碼如下 : Private Sub Command1 Click() ′隱藏 Label1 = False ′將當(dāng)前路徑下 “ 頑皮的電腦精靈 ” 圖片文件 （ 見圖） , 賦予 Form1的 Picture屬性 = LoadPicture( \頑皮的電腦精靈 ) If IsPlaying Then ′動畫已啟動 , IsPlaying = False = IsPlaying = 開始動畫 ′鼠標(biāo)移到動畫演示按鈕時時 , 將出現(xiàn) 進(jìn)入動畫演示 = False Else ′動畫未啟動 , IsPlaying = True = IsPlaying = 停止動畫 ′鼠標(biāo)移到動畫演示按鈕時時 , 將出現(xiàn) “ 停止動畫演示 ” 提示 = True End If End Sub Private Sub Command2 Click() ′ End End Sub 運行該程序 , 單擊 “ 開始動畫 ” 按鈕后 , 我們看到了程序的最終效果 ， 如圖 。 這時 , 若要停止播放動畫 ,可單擊“ 停止動畫 ” 按鈕； 若要退出程序 , 可單擊 “ 退出程序 ” 按鈕 。 上面的動畫程序非常簡單 , 在第 9章中 , 我們將看到一些更高級的動畫設(shè)計技術(shù) 。 圖 程序的最終效果