怎么可能?已经有两个下载了,我刚下载也成功了,以下为运行结果图和代码:
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
图片附件: 游客没有浏览图片的权限,请
登录 或
注册