vba - Imagebox 不会重绘

Question

我有两个用户表单（Frm1，Frm2），每个都有一个图像框（Img1，Img2）和一个按钮（Btn1，Btn2），然后我有两个jpeg（jpg1，jpg2），请下载我的示例，一个PowerPoint 宏在这里

步骤：

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)在之后UserForm1>>CommandButton1_Click()