怎样除去加载图片的进程条（access 自带的）

wyh99999　发表于：2011-10-02 21:41:20 　

复制

以前在贵坛中看到一个除去加载图片（如窗体中加载学生照片）进程条的批处理文件，现在我记不清是在哪个贴中。请知情者告知。谢谢！

Top

wyh99999 发表于：2011-10-02 23:33:12

时间不早了，我明天等候佳音！

Top

wyh99999 发表于：2011-10-03 09:05:51

各位老师，早上好！

Top

wyh99999 发表于：2011-10-06 21:13:18

有心人在哪？

Top

wyh99999 发表于：2011-10-13 13:26:20

能帮我实现吗？

Top

煮江品茶发表于：2011-10-13 19:35:29

好像去不掉吧？

Top

wyh99999 发表于：2011-10-13 22:44:20

以前我下载过用的。是在贵坛一个回复贴中，一位高人回复一提问者内容中上传的。唉，我把（她）丢失了并记不起在哪贴中。

Top

网行者发表于：2011-10-26 21:18:28

http://www.accessoft.com/bbs/showtopic.asp?id=3097

Top

wyh99999 发表于：2011-10-27 22:02:23

请教版主:

关键是语句红色部分吗?

On Error GoTo Err_Form_Current
If IsNull(图片) = True Then
    Me.Frame1.Picture = LoadPicture("")
    Me.Frame1.textbox1 = "没有图片"

Else
    If FileExistCheck(图片) = 1 Then       '判断图片是否存在
       Me.Frame1.Picture = LoadPicture(图片)
       Me.Frame1.textbox1 = ""
    Else
       Me.Frame1.Picture = LoadPicture("")
       Me.Frame1.textbox1 = "没有图片"
    End If
End If
Exit_Form_Current:
    Exit Sub

Err_Form_Current:
'MsgBox Err.Description, , "错误"
Resume Exit_Form_Current

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

怎样除去加载图片的进程条（access 自带的）