Изображение не отображается в элементе управления изображением

Question

У меня есть отчет в MS Access с 4 элементами управления изображением. В событии формата раздела подробностей у меня есть код, который устанавливает свойство изображения на основе значений полей в DAO.recordset. Ниже приведен пример моего кода.

For i = 0 To 3
    If Not rs.EOF Then
        Me.Controls("img" & i).Picture = blobGet(rs!phBlobId)
        rs.MoveNext
    Else
        Me.Controls("img" & i).Picture = ""
    End If
Next i

В основном поле rs!phBlobId является именем файла. Функция blobGet возвращает полный путь к изображению, который затем устанавливает свойство изображения правильного элемента управления в разделе сведений моего отчета.

Я не уверен во всех причинах, но при определенных обстоятельствах изображения не будут отображаться в элементах управления. У меня есть аналогичная настройка в форме, и у меня нет никаких проблем, проблема возникает только в отчете.

Одной из причин, по-видимому, является размер картинки. Если я вставлю большую картинку (скажем, более 5 мегабайт), она иногда не будет отображаться. С разным сочетанием картинок появляются разные.

Я открыт как для решения моей проблемы, как описано выше, так и для альтернативных идей, как показать эти картинки в отчете. Одно абсолютное требование состоит в том, что изображения должны быть установлены с VBA, поскольку точное расположение изображений изменяется в зависимости от несвязанной переменной.

Answer 1

Решение, которое я придумал, состояло в том, чтобы просто изменить размеры изображений, используя imageMagick . Это на самом деле дает мне пару преимуществ. Не последним из них является существенное улучшение производительности, поскольку я имею дело с небольшими изображениями.