Imagebox不会重绘

Question

我有两个用户表单（Frm1，Frm2），每个表单上有一个imagebox（Img1，Img2）和一个按钮（Btn1，Btn2），然后我有两个jpeg（jpg1，jpg2），请下载我的示例，PowerPoint宏here

步骤：

1. 运行“main”，Frm1显示（vbmodal）
2. 点击Btn1切换Img1上的jpg1和jpg2
3. 点击Img1显示Frm2 vbmodal，Img2应显示与Img1相同的jpg
4. 点击Btn2以卸载Frm2
5. （问题）点击Btn1切换jpg但不能

Answer 1

添加：

Me.Repaint

在Me.Image1.Picture = LoadPicture(strpic)＆gt;＆gt;中的UserForm1后

CommandButton1_Click()