VB把图片淡入淡出，有谁会，看效果后立即给分！

Question

利用API函数实现图像淡入淡出效果 　　一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及绘图设备(Device Context)的操作。但是在Win98、Win2000中，微软提供了支持透明图像拷贝的AlphaBlend函数。　　这篇文章就介绍如何通过API函数AlphaBlend实现PictureBox之间图像的淡入淡出效果。AlphaBlend函数的定义在msimg32.dll中，一般Win98、Win2000都带了这个库，在编程之前你可以先察看一下该文件是否存在。　　打开VB建立一个新工程。选择菜单 Project | Add Module 添加一个模块到工程中，在其中输入以下代码： 
Public Type rBlendProps
　　tBlendOp As Byte
　　tBlendOptions As Byte
　　tBlendAmount As Byte
　　tAlphaType As Byte
End TypePublic Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, _
ByVal heightSrc As Long, ByVal blendFunct As Long) As BooleanPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)　　大家可以看到，AlphaBlend函数的定义同普通的复制函数Bitblt很相似，只是最后的参数blendFunct定义为一个rBlendProps结构。那么为什么在函数定义中blendFunct 定义为Long类型呢？因为rBlendProps结构长度是4个字节。而Long类型变量的长度也是4个字节，那么我们就可以程序中通过API函数CopyMemory将一个rBlendProps结构拷贝到blendFunct 中。　　在Form1中添加两个PictureBox控件，其中Picture2为源，Picture1为拷贝目标，将两者的ScaleMode都设置为3-Pixel将两者的AutoRedraw属性都设置为True，然后分别添加图像。在加入一个Timer控件以及一个CommandButton控件，然后在Form1的代码窗口中添加如下代码：Dim lTime As ByteSub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _
ByVal nLevel As Byte)
Dim LrProps As rBlendProps
Dim LnBlendPtr As LongcDest.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 SubPrivate 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 IfMe.Caption = Str(Int(lTime / 2.55)) + "%"
End Sub　　运行程序，点击Command1，就可以看到Picture2图像拷贝到Picture1上的淡入淡出效果了。　　在结构rBlendProps中，最重要的参数就是tBlendAmount，该值决定了源与目标之间的透明程序。如果为0的话，源完全透明，如果为255的话，源完全覆盖目标。　　另外AlphaBlend 函数不只用于两个PictureBox之间的拷贝，而且可以在两个Device Context之间的透明拷贝，也就是说，象窗口等控件之间也可以实现透明效果。不过在编程过程中发现一个问题，不知是否是AlphaBlend的Bug，就是在我写完程序后，并没有出现透明复制的效果。搞的我以为该函数不起作用，但是当我再打开VB运行上面的程序后，一切有正常了。我在MSDN上也没有找到相关的Bug列表。  
资料整理:编程先锋 http://wlbookwl.myrice.com 站长：小黑侠 

Answer 1

利用API函数实现图像淡入淡出效果 　　一般传统的实现两个PictureBox之间图像的淡入淡出效果都需要使用大量的API函数并进行复杂的调色板以及绘图设备(Device Context)的操作。但是在Win98、Win2000中，微软提供了支持透明图像拷贝的AlphaBlend函数。　　这篇文章就介绍如何通过API函数AlphaBlend实现PictureBox之间图像的淡入淡出效果。AlphaBlend函数的定义在msimg32.dll中，一般Win98、Win2000都带了这个库，在编程之前你可以先察看一下该文件是否存在。　　打开VB建立一个新工程。选择菜单 Project | Add Module 添加一个模块到工程中，在其中输入以下代码： 
Public Type rBlendProps
　　tBlendOp As Byte
　　tBlendOptions As Byte
　　tBlendAmount As Byte
　　tAlphaType As Byte
End TypePublic Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, _
ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, _
ByVal nHeight As Long, ByVal hSrcDC As Long, _
ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, _
ByVal heightSrc As Long, ByVal blendFunct As Long) As BooleanPublic Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)　　大家可以看到，AlphaBlend函数的定义同普通的复制函数Bitblt很相似，只是最后的参数blendFunct定义为一个rBlendProps结构。那么为什么在函数定义中blendFunct 定义为Long类型呢？因为rBlendProps结构长度是4个字节。而Long类型变量的长度也是4个字节，那么我们就可以程序中通过API函数CopyMemory将一个rBlendProps结构拷贝到blendFunct 中。　　在Form1中添加两个PictureBox控件，其中Picture2为源，Picture1为拷贝目标，将两者的ScaleMode都设置为3-Pixel将两者的AutoRedraw属性都设置为True，然后分别添加图像。在加入一个Timer控件以及一个CommandButton控件，然后在Form1的代码窗口中添加如下代码：Dim lTime As ByteSub ShowTransparency(cSrc As PictureBox, cDest As PictureBox, _
ByVal nLevel As Byte)
Dim LrProps As rBlendProps
Dim LnBlendPtr As LongcDest.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 SubPrivate 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 IfMe.Caption = Str(Int(lTime / 2.55)) + "%"
End Sub　　运行程序，点击Command1，就可以看到Picture2图像拷贝到Picture1上的淡入淡出效果了。　　在结构rBlendProps中，最重要的参数就是tBlendAmount，该值决定了源与目标之间的透明程序。如果为0的话，源完全透明，如果为255的话，源完全覆盖目标。　　另外AlphaBlend 函数不只用于两个PictureBox之间的拷贝，而且可以在两个Device Context之间的透明拷贝，也就是说，象窗口等控件之间也可以实现透明效果。不过在编程过程中发现一个问题，不知是否是AlphaBlend的Bug，就是在我写完程序后，并没有出现透明复制的效果。搞的我以为该函数不起作用，但是当我再打开VB运行上面的程序后，一切有正常了。我在MSDN上也没有找到相关的Bug列表。  
资料整理:编程先锋 http://wlbookwl.myrice.com 站长：小黑侠