Access表单加载外部图片问题咨询：基于记录中的Image URL

嘿，我来帮你搞定Access表单显示外部图片的问题！作为新手确实容易在这儿卡壳，别慌，下面两种方法任选一种，跟着步骤走就行：

这种方法几乎不用复杂代码，适合快速实现：

• 打开表单的设计视图，从控件工具箱里找到「Web浏览器」控件（找不到的话先勾选「使用控件向导」），拖到表单合适的位置，调整好大小。
• 右键点击这个控件，选「属性」，切换到「事件」选项卡，找到「当前」事件，点击后面的「...」，选择「代码生成器」进入VBA编辑器。
• 粘贴下面的代码，记得替换成你自己的字段和控件名称：

Private Sub Form_Current()
    ' 把ImageURL换成你数据集里存图片链接的字段名
    ' 把WebBrowser0换成你实际的Web浏览器控件名称（比如默认的WebBrowser0）
    If Not IsNull(Me.ImageURL) Then
        Me.WebBrowser0.Navigate Me.ImageURL
    Else
        ' 没有图片链接时显示空白
        Me.WebBrowser0.Navigate "about:blank"
    End If
End Sub

• 保存代码回到表单视图，切换记录的时候，浏览器控件就会自动加载对应URL的图片啦！

如果你想要更传统的图片控件效果，就用这个方法，需要把图片临时下载到本地再加载：

• 在表单设计视图添加一个「图像」控件，给它起个好记的名字，比如imgItem。
• 同样打开「当前」事件的代码生成器，粘贴以下代码：

' 先声明下载图片的API函数
Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" _
    Alias "URLDownloadToFileA" (ByVal pCaller As LongPtr, _
    ByVal szURL As String, ByVal szFileName As String, _
    ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) As LongPtr

Private Sub Form_Current()
    Dim tempPath As String
    Dim downloadResult As LongPtr
    
    ' 临时文件存到系统临时文件夹，避免占用空间
    tempPath = Environ("TEMP") & "\temp_item_pic.jpg"
    
    ' 检查图片链接是否为空
    If Not IsNull(Me.ImageURL) Then
        ' 下载图片到临时文件
        downloadResult = URLDownloadToFile(0, Me.ImageURL, tempPath, 0, 0)
        
        If downloadResult = 0 Then
            ' 下载成功，加载到图像控件
            Me.imgItem.Picture = tempPath
        Else
            ' 下载失败的话可以显示默认图片，这里先清空
            Me.imgItem.Picture = ""
        End If
    Else
        ' 没有链接时清空控件
        Me.imgItem.Picture = ""
    End If
End Sub

Private Sub Form_Close()
    ' 关闭表单时删掉临时文件，保持干净
    Dim tempPath As String
    tempPath = Environ("TEMP") & "\temp_item_pic.jpg"
    If Dir(tempPath) <> "" Then
        Kill tempPath
    End If
End Sub

• 记得把ImageURL换成你实际的字段名，imgItem换成你的图像控件名称。
• 这段代码会在切换记录时自动下载图片，关闭表单时清理临时文件，很省心。

• 你的图片URL必须是直接指向图片文件的有效链接（比如https://yourdomain.com/item1.jpg），不能是网页链接，否则要么显示网页，要么下载失败。
• 如果是内网共享文件夹的图片（比如\\server\images\item1.jpg），方法2可以简化，直接用Me.imgItem.Picture = Me.ImageURL，不用下载。
• 打开数据库时要选择「启用内容」，否则VBA代码不会运行。
• 方法1的浏览器控件可能有缓存，要是图片更新了，刷新一下表单就行；方法2每次都会重新下载，不会有缓存问题。

内容的提问来源于stack exchange，提问作者Kim