vbs打开图片效果vb高手帮帮忙！！！重谢

来源：百度知道 编辑：UC知道 时间：2024/06/25 11:00:47
我要一段vb代码
就是运行时打开一个图片效果是 图片逐渐显示然后几秒以后渐渐透明到关闭图片
暂时先给50分 采纳后另加100分

打开VB建立一个新工程。选择 菜单-工程-添加模块 添加一个模块到工程中，在其中输入以下代码：

Public Type rBlendProps
tBlendOp As Byte
tBlendOptions As Byte
tBlendAmount As Byte
tAlphaType As Byte
End Type

Public 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 Boolean

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(Destination As Any, Source As Any, ByVal Length As Long)

大家可以看到，AlphaBlend函数的定义同普通的