powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рисунок из базы на экран
5 сообщений из 5, страница 1 из 1
Рисунок из базы на экран
    #33550595
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем!

В базе Access2000 хранятся строковые поля и поля с рисунками, которые я загрузил из файлов JPG. Строковые поля я достаю из базы в программе на VB6 с помощью выражения типа
str = Table!myStr.
Но при попытке загрузить рисунок в элемент Image, выражениее
Image1.Picture = Table!pic
дает ошибку - Несовпадение типов.

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

Спасибо. Дмитрий!
...
Рейтинг: 0 / 0
Рисунок из базы на экран
    #33550726
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
мог бы и сам это найти
...
Рейтинг: 0 / 0
Рисунок из базы на экран
    #33553459
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо Hibernate за пример!

Там говорится - "в референсах ставишь ссылку на STG.tlb"
Но у себя в системе(Win98 + VB6 + Access2000) я не нашел файла STG.tlb.
Наверно поэтому в примере возникает Error в объявлении функции CreateStreamOnHGlobal Lib "ole32".

Подскажите, где взять этот STG.tlb?
...
Рейтинг: 0 / 0
Рисунок из базы на экран
    #33553668
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну пошукай в инете... если влом искать, то могу выслать - там 34Кб всего-то.
...
Рейтинг: 0 / 0
Рисунок из базы на экран
    #33553771
Дмитрий П.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hibernate, если не запруднит, вышли STG.tlb , буду очень благодарен.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Рисунок из базы на экран
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]