Question

请问vb6中如何实现在一个picturebox画图后，复制到另一个picturebox中？谢谢 本人新手。。

Answer 1

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

追问

那请问如何让所画的图与一张图片结合？就是像ps图层那样，像是在图片上画图，谢谢

追答

Private Sub Command1_Click() '画图
Picture1.Picture = LoadPicture("c:\1.bmp")
Picture1.Line (100, 100)-(200, 200), vbRed, BF
End Sub

Answer 2

写Picture1失去焦点事件：
Private Sub Picture1_LostFocus()
Me.Picture2.Picture = Me.Picture1.Picture '控件Picture2中的画图等于控件Picture1中的画图
End Sub