form hide后再show，picture控件还原了怎么办？

[gcaufy]

Private Sub Command1_Click()
Picture1.PaintPicture Picture2.Picture, 0, 0
End Sub

Private Sub Command2_Click()
Me.Hide
Me.Show
End Sub
上面是个例子。
Picture1和Picture2放了两个不同的图片
点击Command1后Picture1和Picture2里的图片相同了

可是点击Command2时Picture1里的图片却还原成最开始的状态了


我不想它还原，应该怎么办呢？

[小傻哥]

autoredraw

[SYSSZ]

将Picture1,Picture2,Form1,Form2的autoredraw设为True

[cbm6666]

1F 2F 都正确

但楼主又何必 PaintPicture ? 直接导入不就好了吗?

Private Sub Command1_Click()
Picture1.Picture = Picture2.Picture
End Sub

[舉杯邀明月]

同意…………

[clear_zero]

将Picture1,Picture2,Form1,Form2的autoredraw设为True

[gcaufy]

谢谢CMB666老师，我学VB不久的，Picture1.Picture = Picture2.Picture 以前试了好像不行，才搜到了PaintPicture 的方法，我回去再试试
[Quote=引用 3 楼 cbm666 的回复:]
1F 2F 都正确

但楼主又何必 PaintPicture ? 直接导入不就好了吗?

Private Sub Command1_Click()
  Picture1.Picture = Picture2.Picture
End Sub

[/Quote]

[熊孩子开学喽]

Private Sub Command1_Click()
picture1.autoredraw=true
Picture1.PaintPicture Picture2.Picture, 0, 0
picture1.refresh
End Sub
现在试试

[gcaufy]

谢谢楼上，知道了

[射天狼]

两种办法
1、设置控件的AutoRedraw属性

2、将按钮的代码放到picturebox控件的Paint事件中