Visual Basic 6.0(簡稱VB6)是微軟公司推出的當前世界上最流行的可視化編程工具，特別在數據庫及多媒體開發方面的強大支持與改進，使我們能輕松地開發出各種功能極強的數據庫及多媒體應用程序。下面介紹的是在多媒體應用中圖像變換技術的“馬賽克”效果實例。
實現過程及效果
“馬賽克”效果主要是用方塊填充某一圖像框，從而得到“馬賽克”效果。先在窗體中繪制兩個圖像框，將圖像載入一圖像框中，同時將另一個圖像框設為空白，然后調用API函數BitBlt將左框中的圖像按照一定的順序以方塊為單位復制到右框中，就可以實現“馬賽克”的動態圖像效果。
實現步驟
1、窗體中加入兩個圖像框Picture1和Picture2，兩個命令按鈕Command1和Command2；
2、載入窗體同時，在Picture1中載入圖片；
3、在Command1_Click事件中調用BitBlt函數和Sleep函數。
程序代碼及注釋
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
然后，就對API函數‘BitBlt進行聲明。
Const copy_put = &&HCC0020
Sub Form_Load()
Picture1.Picture = LoadPicture("c:My Documentsm7.bmp")‘載入圖像
Picture1.ScaleMode = 3‘像素單位
End Sub
Private Sub Command1_Click()
Picture2.Cls‘設為空白
h% = Picture1.ScaleHeight‘圖像高度
w% = Picture1.ScaleWidth‘圖像寬度
changwidth = 15‘方塊的寬度
changheight = 15‘方塊高度
For i = 0 To w% Step changwidth * 2‘水平軸錯開表示圖像
For j = 0 To h% Step changheight * 2
x = DoEvents()
s% = BitBlt(Picture2.hDC, i, j, changwidth, changheight, Picture1.hDC, i, j, copy_put)‘調用BitBlt
Sleep (100)‘延時
Next j
Next i
For i = changwidth To w% Step changwidth * 2
For j = chang-
height To h% Step changheight * 2
x = DoEvents()
s% = BitBlt(Picture2.hDC, i, j, changwidth, changheight, Picture1.hDC, i, j, copy_put)
Sleep (100)
Next j
Next i
For i = 0 To w% Step changwidth * 2
For j = changheight To h% Step changheight * 2
x = DoEvents()
s% = BitBlt(Picture2.hDC, i, j, changwidth, changheight, Picture1.hDC, i, j, copy_put)
Sleep (100)
Next j
Next I
For i = changwidth To w% Step changwidth * 2
For j = 0 To h% Step changheight * 2
x = DoEvents()
s% = BitBlt(Picture2.hDC, i, j, changwidth, changheight, Picture1.hDC, i, j, copy_put)
Sleep (100)
Next j
Next I
End Sub
Private Sub Command2_Click()
End
End Sub
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/
