UC知道vb 怎么实现自动换背景图片呢？
来源：百度知道 编辑：UC知道 时间：2024/05/21 18:38:51
请问下，在VB中，怎么实现让它自动换背景图片呢。。？？
目录是指
比如 目录名字是bak 那么是不是 c:\bak\1.jpg 吗 ？？
是吗 ？
~~~~~~~~~~~
回 mosquitokobe 的话 如果不增加图片控件可以实现吗？
目录是指
比如 目录名字是bak 那么是不是 c:\bak\1.jpg 吗 ？？
是吗 ？
~~~~~~~~~~~
回 mosquitokobe 的话 如果不增加图片控件可以实现吗？
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 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
&nbs