编程论坛 → VB6论坛

怎样实现两个picture重叠，顶层picture背景透明，下一层picture内容可见？？

lh69417 发布于 2014-03-19 10:29， 434 次点击

我涉及到图片分层的问题，底层picture1中内容太大，重绘太慢，想把需重绘的内容单独放在顶层picture2中，并希望两个picture中的内容都可见，如何实现？跪求高手指点！

6 回复

bczgvip2014-03-19 15:16

图片类型是什么？

lh694172014-03-20 10:46

回复 2楼 bczgvip

底层picturebox绘制了地形图，它一般都不会改动的。我想把顶层的pictureBox作为绘图平台，随时需要改变绘制的内容，这样只需顶层内容重绘即可。

lowxiong2014-03-20 11:30

用PaintPicture方法，见源码

只有本站会员才能查看附件，请登录

lh694172014-03-20 13:10

回复 4楼 lowxiong

附件下载不了啊！

lowxiong2014-03-20 14:09

怎么可能？已经有两个下载了，我刚下载也成功了，以下为运行结果图和代码：
Private Sub Command1_Click()
Pic2.PaintPicture Pic3.Picture, 300, 200, Pic3.ScaleWidth, Pic1.ScaleHeight, , , , , vbSrcPaint '用pic3 mask图像
Pic2.PaintPicture Pic1.Picture, 300, 200, Pic1.ScaleWidth, Pic1.ScaleHeight, , , , , vbSrcAnd '用pic1填图像，源图像背景必须为白色
End Sub

只有本站会员才能查看附件，请登录

owenlu19812014-03-20 15:30

回复 5楼 lh69417

用目标另存为