Question

vb picture保存图片变成空白？

Private Sub Command1_Click()
Picture2.PaintPicture Image1.Picture, 0, 0, , , Picture1.Left - Image1.Left, Picture1.Top - Image1.Top, Picture1.Width, Picture1.Height
End Sub

picture1 压在 image1 上面 picture2显示 image1中 被 picture1压着的图片

我现在要保存 picture2 里面的图片
代码如下：
Picture2.AutoRedraw = True
SavePicture Picture1.Image, "d:\111.jpg"

问题：为什么 会保存到空白 的？没有把picture2的内容保存下来？
怎么才能保存下来。提供代码。。。

Answer 1

SavePicture Picture1.Image, "d:\111.jpg"
你的picture1中没有加载图象,所以是空的,改作:
SavePicture Picture2.Image, "d:\111.jpg"

Answer 2

不知为什么，第一次点就保存为空白，但再保存一次就好了
所以我弄成这样
Private Sub Command1_Click()
Picture2.PaintPicture Image1.Picture, 0, 0, , , Picture1.Left - Image1.Left, Picture1.Top - Image1.Top, Picture1.Width, Picture1.Height
Call Command2_Click
Picture2.PaintPicture Image1.Picture, 0, 0, , , Picture1.Left - Image1.Left, Picture1.Top - Image1.Top, Picture1.Width, Picture1.Height
End Sub

Private Sub Command2_Click()
Picture2.AutoRedraw = True
SavePicture Picture2.Image, "d:\111.jpg"
End Sub