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中，最重要的参数就是tBlendAmount，该值决定了源与目标之间的透明程序。如果为0的话，源完全透明，如果为255的话，源完全覆盖目标。

　　另外AlphaBlend 函数不只用于两个PictureBox之间的拷贝，而且可以在两个Device Context之间的透明拷贝，也就是说，象窗口等控件之间也可以实现透明效果。不过在编程过程中发现一个问题，不知是否是AlphaBlend的Bug，就是在我写完程序后，并没有出现透明复制的效果。搞的我以为该函数不起作用，但是当我再打开VB运行上面的程序后，一切有正常了。

　　我在MSDN上也没有找到相关的Bug列表。

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等级考试二级VB辅导实例编程汇总