从 Access 导出图标图像的最佳方法？答案

【问题标题】：Best way to export an Icon Image from Access?从 Access 导出图标图像的最佳方法？
【发布时间】：2019-01-23 11:18:33
【问题描述】：

我在 Access 表单上有大约 50 个图标图像 (.ico)，但是我没有将它们存储在磁盘上。我想将它们从 Access 导出到磁盘位置。

我在这个线程上尝试了建议的解决方案：

Access - Export images from Image controls in forms

我无法打开生成的文件，可能是因为我的图片是 (.ico) 而不是 (.png)

编辑：我可以将图标复制到绘画中，将它们保存为 png，然后使用在线转换器将它们转换为图标。相当耗时，但它有效。

【问题讨论】：

标签： vba ms-access

【解决方案1】：

您可以使用此代码。

它将提供的表单的所有图像控件的内容保存到同一文件夹中的文件中。

请注意，某些图像控件包含“奇怪”的二进制格式，每个工具可能无法正确显示这些格式。

您还必须注意在导出自己后分配正确的文件扩展名。

将代码放在一个新模块中，然后在设计视图中打开表单并像这样调用它：SaveAllImageControls Forms("MyForm")

Public Sub SaveAllImageControls(ByRef sourceForm As Form)
    Dim item As control
    For Each item In sourceForm.Controls: Do
        If item.ControlType <> acImage Then Exit Do
        If IsNull(item.PictureData) Then Exit Do

        Dim bArray() As Byte
        bArray = item.PictureData

        Dim filename As String
        filename = Application.CurrentDb.Name & "-" & sourceForm.Name & "-" & item.Name & ".binary"

        Dim fileNumber As Integer
        fileNumber = FreeFile

        Open filename For Binary As fileNumber
        Put fileNumber, , bArray
        Close fileNumber
    Loop While False: Next item
End Sub

【讨论】：

【解决方案2】：

最简单的解决方案可能是导出所有 ico 文件，然后用ImageMagick 处理它们。你可以运行类似的东西

convert image.ico image.png

作为您链接到的代码的一部分，或者作为命令提示符中的简单一次性调用。

【讨论】：