在VB中提供了完善的做圖方法, 可以在窗體或圖形框中繪制各種圖形, 其中提供了一個方便的圖像處理命令即:PaintPicture, 此命令的功能與WINDOWS API 函數BitBlt類似,但由于不用做API函數說明,并且有它獨特的功能,所以更有它的方便之處, 使用它可以完成很多圖像的特殊處理工作。

　　一、語法格式:

　　PaintPicture Pic,destX,destY,destWidth,destHeight,scrX,scrY,scrWidth,scrHeight

　　其中Pic:為圖片對象, 如圖形框Picture等;

　　destX,destY:目標圖像位置;

　　destWidth,destHeight:目標圖像尺寸;

　　scrX,scrY:原圖像的裁剪坐標;

　　scrWidth,scrHeight:原圖像的裁剪尺寸;

　　從以上格式可以看出，此命令的功能就是把一個源圖像資源任意復制到指定的區域,并且通過改變參數destWidth與destHeight值,還可以改變復制后的圖像的尺寸,實現放大或縮小圖像顯示, 甚至可以置這兩個屬性為負值, 這樣可使目標圖像在水平方向翻轉，實現特殊效果的圖像顯示。

　　二、應用舉例

　　1.墻紙的制作

　　所謂的墻紙, 就是用一個小尺寸的圖像連續在一個區域顯示, 形成規則的重復圖像, 也稱為圖像的平鋪顯示,利用“PaintPicture"命令可以方便的完成此工作, 即用一個固定的圖像資源多次連續復制到窗口中; 復制過程中必須準確計算下一圖像的起始位置; 顯示過程中可采取兩種方法, 第一種方法可置源圖像資源即圖形框的AutoSize屬性為真, 并且顯示過程中按源圖像的實際尺寸復制, 這是正常的圖像平鋪顯示; 還有一種方法就是通過置AutoSize屬性為假, 然后改變圖形框的尺寸, 或者直接修改目標圖像的尺寸, 這樣可實現放大或縮小圖像的平鋪顯示。具體作方法請見Command1_Click()事件中的代碼。

　　2.隨機圖像顯示

　　隨機圖像在一定場合具有特殊的魅力，比如把一個固定的圖像連續的在某一區域中的隨機位置顯示，這樣即可得到一種特殊的屏幕效果，具體操作時需要使用VB的內部函數RND, 此函數可產生0-1之間的隨機數, 通過此隨機數確定顯示的圖像的位置即destX與destY參數, 這樣即可使圖像在隨機位置顯示, 通過此原理也可以使圖像的尺寸等其它參數隨機產生, 以產生其它效果的隨機圖像效果。具體操作方法請見Command2_Click()事件中的代碼。

　　3.鏡頭推出效果

　　鏡頭推出效果實際上就是圖像的放大或縮小顯示, 利用“PaintPicture"命令實現此功能,只需要改變destWidth及destHeight參數即可, 具體操作時需要注意保持圖像的中心點不變, 在圖像的放大或縮小過程中同時改變圖像的起始坐標。此命令的圖像顯示速度不低于API函數的BitBlt命令, 圖像放大或縮小過程中基本沒有抖動的感覺。具體操作方法請見Command3_Click()事件中的代碼。

　　4.拖尾效果的形成

　　此效果的形成與圖像的放大過程基本相似，區別在于無需保持中心點不變，而在圖像的放大過程中，向一個方向逐漸改變圖像的起始位置，并且起始的圖像尺寸置為0，這樣當圖像放大顯示到一定位置時，其后面就留下了多彩的拖尾效果。具體操作方法請見Command4_Click()事件中的代碼。

　　三、演示程序

　　文后的程序完整的演示了上述各種圖像的特殊處理效果，編程需要在From1窗體中安放兩個圖形框Picture1 及Picture2, 還有五個命令按鈕Command1-Command5,之后把下述代碼填入相應的事件中, 運行程序后通過按鈕1-4即可演示上述的四種圖像處理效果, 按"退出"按鈕則結束程序。以上方法及程序在WINDOWS95系統、VB4.0環境下調試通過。

　　圖像平鋪顯示

　　Private Sub Command1_Click()

　　Dim numm As Integer

　　Picture1.AutoSize = True

　　roww = Int(Form1.Width / Picture1.Width) + 1

　　coll = Int(Form1.Height / Picture1.Height) + 1

　　For i = 0 To roww

　　For j = 0 To coll

　　Form1.PaintPicture Picture1.Picture,j*Picture1.Width,i*Picture1.Height,Picture1.Width,Picture1.Height

　　numm = numm + 1

　　Form1.Caption = "使用圖像個數:" + Str$(numm)

　　Next j

　　Next i

　　Picture1.Visible = 0

　　End Sub

　　隨機圖像顯示

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目