图片无法正常显示，请高手指点迷津

re5956　发表于：2010-04-26 18:16:30 　

复制

想在窗体中滚动显示图片，可无法正常显示，请高手指点迷津

点击下载此附件

Top

竹笛发表于：2010-04-26 18:47:56

Private Sub Form_Current()
Dim strPath As String

strPath = CurrentProject.Path & "\" & Me.图片地址 & ".jpg"

If Dir(strPath) <> "" Then

        Me.照片.Picture = strPath
    Else
        Me.照片.Picture = ""
    End If
End Sub

Top

re5956 发表于：2010-04-26 22:13:20

笛先生，你好，谢谢，修改代码，图片虽可以显示，但当打开窗体时，跳出这样的提示“无法打开文件“C:\Documents and Settings\Administrator\桌面\器材图片\photo1.jpg”。我想这个问题出现的原因，很可能是上传下载过程中，文件名更改造成的，假如真如此，自己做好的程序到他人电脑上也无法正常使用，有没有办法在解决引用的图片不受路径影响呢？

Top

竹笛发表于：2010-04-26 22:31:53

你把你的文件夹放在D盘试试

Top

re5956 发表于：2010-04-26 22:43:31

仍然会出现这样的问题啊，顺便问一下，我认为图片与程序同在一个文件夹不好，想用另一个文件夹来装程序，这样读取片的代码怎样写呢？谢谢笛先生

Top

re5956 发表于：2010-04-27 10:00:18

找不到路径的问题好象可以解决了，方法是这样的：当加入image时，把原路径删除了，然后再输入代码。现在上传这样的附件，再下载看问题解决没有。第一次试验是用邮箱发的。

Top

re5956 发表于：2010-04-27 10:01:19

附件

点击下载此附件

Top

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

Access交流中心

图片无法正常显示，请高手指点迷津