Some examples of working with Picture data in VBA (Access)
База содержит примеры работы с изображениями в Access Загрузка/выгрузка файла изображения в таблицу для последующего использования, вывод данных из таблицы на контролы типа Access.CommandButton, Access.Image и все принимающие StdPicture
- некоторые дополнительные возможности последующей работы с загруженным изображением (добавление текста, повороты, полупрозрачность и т.п.) поддерживает альфаканал, PNG и ICO файлы
Работает в Access 2003+ (x86/x64) Используются библиотеки FreeImage и слегка модифицированный модуль Visual Basic Wrapper for FreeImage 3 by Carsten Klein (cklein05@users.sourceforge.net) взятый с https://freeimage.sourceforge.io/download.html Для работы требуется наличие библиотек FreeImage соответствующей разрядности. По умолчанию ищет их в подпапке \INC\ рабочей папки примера
содержит:
PicturesFI.mdb - база Access содержащая все примеры
Pictures_Model.xml - модель объясняющая, как рассчитывается позиция текста рядом с картинкой.
\INC\ - папка содержащая библиотеки FreeImage x86/x64
Запускается с формы: ~RunMe.
Содержит формы:
Test_PictureData_SetToControl - Пример работы с картинками
Test_OlePictContinuos - Вывод картинок в ленточную форму
Test_OlePictDIBContinuos - Вывод картинок встроенных в Access в ленточную форму
Sample_Clock - Аналоговые часы
Sample_Dates - Вывод изображений в плавающие кнопки и контекстное меню
Модуль и классы для работы с изображениями:
modFreeImage - собственно модифицированный модуль Visual Basic Wrapper for FreeImage 3 by Carsten Klein (cklein05@users.sourceforge.net)
modPictureData - содержит основные функции, в частности PictureData_SetToControl, которая и загружает картинку в нужное свойство указанного контрола