[求助]窗体中的图片闪烁？

无忧

所有图片保存在指定路径里，是一寸大小300象素照片，窗体中设置了VBA判定有无图片并加载：

Private Sub Form_Current()

Dim path$
path$ = CurrentProject.path & "\员工照片\" & 工号.Value & 姓名.Value & ".jpg"

If Dir(path$) <> "" Then
    Me.Image65.Visible = True
    Me.Image65.Picture = path$
    Me.有无照片.Visible = False   
Else
    Me.Image65.Picture = ""
    Me.Image65.Visible = False
    Me.有无照片.Visible = True   '在原来图片位置显示“未找到照片”标签

End If

End Sub

可是在打开窗体或点看下一条记录时，总有一个“正在加载。。。。\。。\101姓名.jpg”的窗口一闪而过，看着不舒服，怎么优化它？

或者说，如果我想实现加载图片，怎么做最好？

beurox

[em01][em01][em01][em01]

beurox

[em02][em02][em02]

beurox

[em05][em05][em05]

gaoqiwen

引用MSForms.Image可以，无此现象：

无忧

以下是引用gaoqiwen在2006-3-25 13:02:00的发言：


引用MSForms.Image可以，无此现象：

谢谢！这两天IE中毒，只能看帖不能回帖，急死了，今天好不容易弄好了。

你的方法真管用。

可为什么我自己重新做的就不行？我的过程如下：

1.在引用中浏览FM20.DLL文件，在MSForms前注意打勾。

2.修改语句如下：Private Sub Form_Current()

Dim path$
path$ = CurrentProject.path & "\员工照片\" & 工号.Value & 姓名.Value & ".jpg"

If Dir(path$) <> "" Then
    Me.Image65.Visible = True
    Me.Image65.Picture = LoadPicture(path$)
    Me.有无照片.Visible = False
Else
    Me.Image65.Picture = LoadPicture("")
    Me.Image65.Visible = False
    Me.有无照片.Visible = True
End If

End Sub

在运行时，在  Me.Image65.Picture = LoadPicture(path$)处出错，并出现下面提示：



这是为什么？

无忧

快沉了。。。。

好象找出为什么了。

因为我用的是控件箱里默认的IMAGE控件，而他用的是其它控件里的MSFORM.INAGE控件，原来如此！我说我那个控件里怎么跟他的不太一样呢。

不过，还想问的是，image图象控件和MSFORM.INAGE控件有区别吗？

[此贴子已经被作者于2006-3-27 17:31:37编辑过]

alexwhy145

图片多了速度慢。

羽佳

可参照罗斯文里的这个代码.

Private Sub Form_RecordExit(Cancel As Integer)
   
    ' 在不同的记录间切换时，隐藏错误信息标签，以减少闪烁．
    错误信息.Visible = False
End Sub