想在窗体和报表里显示照片，怎么操作

fresun　发表于：2012-02-20 15:47:11 　

复制

想在窗体和报表里显示照片，

照片是存放在D：/我的文档/my picture 里，有两张照片 89.jpg 和 90.jpg ,对应的是字段“学号”的89，90号，

试了几次，没成功。肯定是犯了菜鸟级的错误了，想不通，只好上来求助了。

最好帮我改好再传上来，我就知道错在哪里了。

先谢谢了。

点击下载此附件

Top

虽虽TV 发表于：2012-02-20 17:01:49

是不是这样的?

点击下载此附件

Top

叶海峰发表于：2012-02-20 17:21:17

虽虽TV解决问题的代码是:

Private Sub Form_Current()
    If Dir(Application.CurrentProject.Path & "\photo\" & Me.Text44 & ".jpg") <> "" Then
        Me.Image1.Picture = Application.CurrentProject.Path & "\photo\" & Me.Text44 & ".jpg"
    Else
        Me.Image1.Picture = Application.CurrentProject.Path & "\photo\no.jpg"
    End If
End Sub

可改成如下代码,本人曾经试过,在一个很多图片的文件夹里面用DIR命令来返回是否空,速度要比以下代码效率低点

Private Sub Form_Current()
    On Error Resume Next
    Me.Image1.Picture = Application.CurrentProject.Path & "\photo\" & Me.Text44 & ".jpg"
    If Err <> 0 Then Me.Image1.Picture = Application.CurrentProject.Path & "\photo\no.jpg"
    Err.Clear
End Sub

Top

fresun 发表于：2012-02-20 17:26:49

现在能显示相片了，

但是这下面的语句是放在当前文件夹里的

imgpath = Application.CurrentProject.Path +"\" +认证项目.text +"\"+ 姓名.Text+".jpg"

我那照片是存在D：/我的文档/my picture 这里面，那要怎么修改这行语句。

Top

虽虽TV 发表于：2012-02-20 18:10:50

点击下载此附件

再试试,一定要保证你"D：/我的文档/my picture "里面有图片且图片名称一定是89 90 NO 等

Top

fresun 发表于：2012-02-20 18:18:42

我想了个笨办法，把my picture 改成photo名字，然后把照片打印.mdb放在我的文档文件夹里

Top

虽虽TV 发表于：2012-02-20 18:23:43

哈哈,可以结帖了!

Top

fresun 发表于：2012-02-21 08:54:02

1。很想结贴，不过后面一版，还是显示不出D：/我的文档/my picture 里面的图片。

Private Sub Form_Current()
    On Error Resume Next
    Me.Image1.Picture = "D:/我的文档/my picture\" & Me.Text44 & ".jpg"
    If Err <> 0 Then Me.Image1.Picture = "D:/我的文档/my picture\no.jpg"
    Err.Clear
End Sub

这个代码好像有点不对。

2。窗件上的图像控件是怎么添加的，我不能添加一个空的图像控件，一定要选择一张图片才可以。还有这个图像控件怎么和代码对应起来（意思是怎么让图像显示在指定的窗口里）

麻烦大侠再看看

Top

虽虽TV 发表于：2012-02-21 09:28:12

这代码是对的,D后面的冒号要用半角的

Top

虽虽TV 发表于：2012-02-21 09:29:05

还有斜杠

Top

虽虽TV 发表于：2012-02-21 09:32:26

比我还"菜" 哈哈!!终于找到同类项了!一起学习哟!