VB 从图片控件复制图片到图片控件

来源：百度知道 编辑：UC知道 时间：2024/05/10 16:50:35
例如把Picture1已修改过的图片复制到picture2
不是图片地址，而是图片框里的全部内容

picture1.autoredraw 设置为 true

然后

Picture2.Picture = Picture1.Image

参考代码
两个picture,两个命令按钮,一个公用对话框(cdg1)
Private Sub Command1_Click()
cdg1.ShowOpen
Picture1.Picture = LoadPicture(cdg1.FileName)
End Sub

Private Sub Command2_Click()
Picture2.Picture = Picture1.Image
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.PSet (X, Y)
End If
End Sub