На форме Access 97 есть контрол Image1. Нужно програмно, не обращаясь к диску, извлечь bitmap картинки из Image1 и преобразовать его к типу StdPicture.

Подскажите, если кто такое делал ... Спасибо!

2 Serge Gavrilov

Картинку в Image1 формирую динамически, без обращения к диску. Не хочется сохранять ее на диске, чтобы потом загружать в StdPicture с помощью LoadPicture, дергая лишний раз диск. Ведь наверняка есть способ проделать все с помощью API в ОЗУ ...

Я никогда не работал графикой в VBA, поэтому не совсем понял вопрос <Какой формат у picturedata?>

Нужную картинку формирую (именно в Image Control VBA: это не тоже самое, что PictureBox в Visual Basic), вижу ее на форме. Остается преобразовать ее в StdPicture. Как это сделать через операции с диском знаю, все получается. Но хочется без них. Наверное, привычка с времен ассемблера. Да и возможна ситуация, когда картинок за единицу времени потребуется много.

Dim pic As stdole.IPictureDisp

Тут, как понял, какая-то библиотека должна быть подключена?

Пардон, последниий вопрос снимаю ...

2 Serge Gavrilov

Спасибо, этот вариант работает и устраивает! Еще вопрос:

а будет ли он работать в откомпилированной в mde базе, где убраны все меню? И зависит ли этот способ от версии Access?

Все это пробую на Access 2000. Вы опередили мой вопрос :)

Картинку формирую с помощью класса clsPictureBox. Лежит здесь:

http://www.lebans.com/imageclass.htm

Похоже, в Access 97 способ с <SysCmd(712,NameOfImageControl)> не проходит. Может все-таки есть универсальный вариант такого преобразования?

авторЯ думаю можно сделать, но лучше поискать готовое решение у того же Лебанса.

Я с ним самим списывался. Он мне так толком ничего не ответил, только посоветовал использовать StdPicture.

Замкнутый круг получился :).

Поднимаю тему, спать не дает ... Может еще кто из знатоков уже проснулся (с надеждой) :) ...

2 АлексейК

Мне не нужно сохранять в базе, картинку сформированную в Image Control. Мне действительно нужно просто перенести ее в другой контрол (имею ввиду Background Picture Listview).

Все это реализуемо и нормально переностится: лишнее тому подтверждение способ предложенный Сергеем Гавриловым вчера.

Проблема в том, что способ этот не работает в Access 97. Мне нужно что-то универсальное, чтобы работало в версиях Access 97 - 2003 и без обращений к диску (ну хочется без них и все тут :).

Наверняка это 3-4 обращения к каким-то API, типа BitToBit. Просто у самого нет опыта в этом и никогда подобное не делал.