请问如何在窗体中添加照片

愉快　发表于：2010-01-20 15:30:06 　

复制

我按照竹迪的办法在窗体中添加照片，http://www.accessoft.com/article-show.asp?id=2025，也许是我不得要领，老是搞不了。现将实例上传，请指正。

点击下载此附件

Top

竹笛发表于：2010-01-20 15:42:25

模块里还有代码，你没有复制到你的数据库中。

Top

愉快发表于：2010-01-20 16:47:39

不好意思，我把模块的代码加了。现在它没有错误提示了，但是照片加不进去。

点击下载此附件

Top

wyh99999 发表于：2010-01-20 17:34:33

依我看：

1、在“成为当前”窗体事件中加入：

If Not IsNull(Me.txtPath) Then
        '如果该路径的图片存在,即不等于空
        If Dir(Me.txtPath) <> "" Then
            Me.img0.Picture = Me.txtPath
        End If
Else
    Me.img0.Picture = ""
End If

2、img0中的图片类型应为“链接”

供您参考。

Top

愉快发表于：2010-01-21 09:33:04

不好意思，还是不行。

Top

王樵民发表于：2010-01-21 12:01:18

我对你给出的例子加了修改，你错误的原因大概有以下几点：

1、代码没有加全；

2、照片路径文本框的名称为imgPath，应为txtPath，文本框的名称是访问控件的，你原来的名称和控件来源是一样的，跟竹笛的不一样，所以错误；

3、表中的imgPath字段的长度为50，太小，顾程序运行后放不下文件名而进入错误处理，所以就显示不出图片；

4、竹笛给出的例子中有一个缺陷，即没有将图片保存到数据库中，在增加记录后总是显示第一次的图片，我在表中加了一个字段，可以将图片保存到数据库中，这样就完整了。

点击下载此附件

Top

竹笛发表于：2010-01-21 12:04:41

Private Sub cmdPhoto_Click()
    On Error GoTo Err_cmdPhoto_Click:
    Dim strFilter As String
    Dim strFileName As String
    strFilter = AddFilterItem("(*.jpg;*.gif;*.bmp)", "文件", "*.jpg;*.gif;*.bmp")
    strFileName = CommonFileOpenSave(, , strFilter, , , , "请选择照片文件", Me.hwnd)
    If Not IsNull(strFileName) And Len(strFileName) > 0 Then
        Me.txtPath.SetFocus
        Me.txtPath = strFileName
        Me.img0.Picture = Me.txtPath
    End If

Exit_cmdPhoto_Click:
    Exit Sub
Err_cmdPhoto_Click:
    Resume Exit_cmdPhoto_Click
End Sub

Top

wyh99999 发表于：2010-01-21 17:19:10

应该是可以的呀。

点击下载此附件

Top

愉快发表于：2010-01-22 14:41:22

谢谢王樵民、竹笛、wyh99999，是可以了。

Top

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

Access交流中心

[5分]请问如何在窗体中添加照片