Question

vb6如何实现在一个picturebox画图后，复制到另一个picturebox中,谢谢

Answer 1

推荐答案代码可以用。
不过有个前提，就是第一个图片框的autoredraw属性必须是true

然后再set picture2.picture = picture1.image

还可以 picture2.paintpicture picture1.image ,0,0

Answer 2

Private Sub Command1_Click()’画图
Picture1.Line (100, 100)-(200, 200), vbRed, B
End Sub
Private Sub Command2_Click()‘复制
Picture2.Picture = Picture1.Image
End Sub
Private Sub Form_Load()
Picture1.AutoRedraw = True ‘必须有的
End Sub

Answer 3

不过有个前提，就是第一个图片框的autoredraw属性必须是true

然后再set picture2.picture = picture1.image

还可以 picture2.paintpicture picture1.image ,0,0

Answer 4

楼上错了，例如画图的是picture1，

代码应该是
Picture2.Picture = Picture1.image

Answer 5

我觉得有必要生成temp.bmp