2011年計算機等級考試二級VB輔導實例編程(7)

　　在Form1中添加兩個PictureBox控件，其中Picture2為源，Picture1為拷貝目標，將兩者的ScaleMode都設置為3-Pixel將兩者的AutoRedraw屬性都設置為True，然后分別添加圖像。在加入一個Timer控件以及一個CommandButton控件，然后在Form1的代碼窗口中添加如下代碼：

　　Dim lTime As Byte

　　Sub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _

　　ByVal nLevel As Byte)

　　Dim LrProps As rBlendProps

　　Dim LnBlendPtr As Long

　　cDest.Cls

　　LrProps.tBlendAmount = nLevel

　　CopyMemory LnBlendPtr, LrProps, 4

　　With cSrc

　　AlphaBlend cDest.hDC, 0, 0, .ScaleWidth, .ScaleHeight, _

　　.hDC, 0, 0, .ScaleWidth, .ScaleHeight, LnBlendPtr

　　End With

　　cDest.Refresh

　　End Sub

　　Private Sub Command1_Click()

　　lTime = 0

　　Timer1.Interval = 100

　　Timer1.Enabled = True

　　End Sub

　　Private Sub Timer1_Timer()

　　lTime = lTime + 1

　　ShowTransparency Picture2, Picture1, lTime

　　If lTime >= 255 Then

　　Timer1.Enabled = False

　　End If

　　Me.Caption = Str(Int(lTime / 2.55)) + "%"

　　End Sub

　　運行程序，點擊Command1，就可以看到Picture2圖像拷貝到Picture1上的淡入淡出效果了。

　　在結構rBlendProps中，最重要的參數(shù)就是tBlendAmount，該值決定了源與目標之間的透明程序。如果為0的話，源完全透明，如果為255的話，源完全覆蓋目標。

　　另外AlphaBlend 函數(shù)不只用于兩個PictureBox之間的拷貝，而且可以在兩個Device Context之間的透明拷貝，也就是說，象窗口等控件之間也可以實現(xiàn)透明效果。不過在編程過程中發(fā)現(xiàn)一個問題，不知是否是AlphaBlend的Bug，就是在我寫完程序后，并沒有出現(xiàn)透明復制的效果。搞的我以為該函數(shù)不起作用，但是當我再打開VB運行上面的程序后，一切有正常了。

　　我在MSDN上也沒有找到相關的Bug列表。

　　2010年9月計算機等級考試成績查詢時間匯總

　　2011計算機等級考試二級VB考點及習題匯總

　　2011年計算機等級考試二級VB基礎教程匯總

　　2011計算機等級考試二級VB輔導實例編程匯總