用VB實現“百葉窗”的圖形特效 (轉)

用VB實現“百葉窗”的圖形特效 (轉)[@more@]

在這樣的中，各種各樣的圖形特效層出不窮，其中“百葉窗”的切換效果尤為新穎奇特。在VB中實現這樣的圖形特效十分簡單方便。其方法是的Bitblt。BitBlt函式就類似於C語言中的getimage、putimage兩個函式的組合運用。BitBlt原意是“Bit Block Traner”，其主要用途是點陣圖的複製。用BitBlt函式顯示圖形特效，其原理十分簡單，製作時先在表單中繪製兩個圖片框，將圖片存入一個圖片框，同時將另一個圖片框設為空，然後呼叫BitBlt函式將第一個圖片框中的圖形一部分一部分地複製到第二個圖片框中，這樣就可以實現千奇百怪的圖形特效。其步驟如下：
　　在VB環境中新建一個窗體，繪製兩個圖片框picSour和picDest，兩個命令按鈕cmdShow和cmdExit。首先在窗體的通用過程中宣告BitBlt函式即所需要的常量名，在載入窗體同時在picSour中載入圖片，在按鈕cmdShow的事件中呼叫BitBlt函式。如下：
API函式宣告：
Declare Function BitBlt Lib″GDI″(ByVal hDestDC As Integer,ByVal X As Integer,ByVal Y As Integer,ByVal nWidth AS Integer,ByVal nHeight As Integer,ByVal hSrcDC As Integer,ByVal xSrc As Integer,ByVal ySrc As Integer,ByVal dwRop As Long)As Integer
　　Const COPY－PUT=＆HCC0020′BitBlt的15種演算法之一，表示直接複製
　　載入圖片：
Sub Form－Load()
picsour.Picture=LoadPicture(″c:windowsLEAVES.bmp″)
picsour.ScaleMode=3′以象素為單位
End Sub
顯示“百葉窗”的切換效果：
Sub Comshow－Click()
H％=picsour.ScaleHeight
W％=picsour.ScaleWidth
scanlines=4
For i=0 To(scanlines－1)
For j=i To H％ Step scanlines
s％=BitBlt％(picdest.hDC,0,j,W％,1,picsour.hDC,0,j,copy－Put)
delay 500′延時
Next j
Next i
End Sub
　　其中delay是一個通用子過程，用於延時，以便於能看清楚切換效果。程式碼如下：
Sub delay(delaytime As Integer)
For i=1 To delaytime
Next i
End Sub
　　透過這樣簡單的程式就可以實現“百葉窗”的切換特效，其實，只要有合適的演算法，運用BitBlt函式能夠實現的圖形特效是無窮的。有興趣的讀者可以查閱有關VB的參考書。