在userform界面导入图像不稳定，怎么解？

深秋的黎明 · 发表于 2019-12-23 10:36

本帖最后由深秋的黎明于 2019-12-23 22:42 编辑

我做了一个userform的界面，可以根据商品件号导入JPG图像的代码，很好用。
问题是有时会失效，就是画面一直停留在前一个，后面的不更新。重新打开userform界面才正常显示，一会儿又出现失效不清楚是什么原因，求大师解困！谢谢啦

导入图片.zip (43.31 KB, 下载次数: 5)
（说明：附件下载后，请在同一文件夹内新建“图片库”）
代码如下：
A = Left(TextBox2.Text, 9)    '截取商品件号前9位
MyPic = ThisWorkbook.Path & "\配件图\" & A & ".jpg"    '定义为图片名称
If Dir(MyPic) <> "" Then    ’查找匹配的图片
Image2.Picture = LoadPicture(MyPic)       '将图片导入Image
Image2.PictureSizeMode = 1       ’设置格式
End If
excel提问.jpg

wj2368 · 发表于 2019-12-23 10:49

你在重新确定新的商品时要重新删除原图片，重新导入新图片

深秋的黎明 · 发表于 2019-12-23 11:10

wj2368 发表于 2019-12-23 10:49
你在重新确定新的商品时要重新删除原图片，重新导入新图片

是Image2.Picture = Nothing吗？
也试过

wj2368 · 发表于 2019-12-23 11:11

深秋的黎明发表于 2019-12-23 11:10
是Image2.Picture = Nothing吗？
也试过

你上传附件看看

liucqa · 发表于 2019-12-23 11:20

刷新一下再看看

深秋的黎明 · 发表于 2019-12-23 11:52

liucqa 发表于 2019-12-23 11:20
刷新一下再看看

如何刷新？代码怎么写，请赐教

liucqa · 发表于 2019-12-23 12:00

refresh 。

zpy2 · 发表于 2019-12-23 12:08

这估计是系统的一个bug

深秋的黎明 · 发表于 2019-12-23 12:31

liucqa 发表于 2019-12-23 12:00
refresh 。

具体代码怎么写？

深秋的黎明 · 发表于 2019-12-23 13:12

zpy2 发表于 2019-12-23 12:08
这估计是系统的一个bug

这有点类似于屏幕不能同步刷新
Application.ScreenUpdating = False '关闭屏幕更新
Application.EnableEvents = False
Application.EnableEvents = True
Application.ScreenUpdating = True '屏幕更新
也试过了

		自动登录	找回密码
密码			免费注册

[求助] 在userform界面导入图像不稳定，怎么解？

最新热点 /1