vb多再图片叠加

来源：百度知道 编辑：UC知道 时间：2024/05/29 19:22:29
请问如何用Check控件实现多张图片的叠加，并将叠加的图片保布和打印。
求代码。。。
我的基本框架是这样的：分别有Check1，Check2...Check5和Picture1。Picture1默认下有一张图片（背景图）,单选择Check1时Picture1以透明度50%叠加一张一样大小的图片，再选择Check2时Picture1再以透明度50%叠加在前两张的基础上。。。同样，再次选择Check1时，原来的图消失。最后选择Command1时，把叠加的图片能够另存为；选择Command2时图片能够打印。

请给我一个详细的代码，谢谢
如果可行还可以追加分数。

可以新建一个Picture2,当选择Check1时,Picture2就等于某一张图片,并和底图一样大小,在Picture2上设置透明度.我想这是最简单的办法了.

Private Sub Check1_Click()
If Check1.Value = 1 Then
Picture1(0).Picture = LoadPicture("pic\11111.jpg")
'合并前景图像和背景图像
Picture22.Visible = True
On Error Resume Next
Picture22.Width = Picture11.Width
Picture22.Height = Picture11.Height
'合成后的图像和背景图保持同样大小
Picture22.Picture = Picture11.Picture
Picture22.PaintPicture Picture1(0).Picture, 0, 0, , , , , , , &H8800C6
Else
'清除合成图像中的前景图像
Picture22.Cls
End If
End Sub

你的问题比较复杂，图片递加需要生成新图片然后再加载到Picture1，如果是多次递加，需要多次生成新图片。
另外还需要多次选择需要递加的图片，如果图片类型不同，还需要转换图片格式，因此代码十分繁杂，不是一下能够解决的。
关于保存和打印反而比较简单。

桌面右键→属性→桌面→自定义桌面→WEB，把“当前主页”前面的√取消，确定！