|
|
|
| Ни чего не понимаю
во многих местах (в том числе и на hiprog) написано что если у контрола есть свойство Picture то этому контролу можно подсунуть рисунок из ImageList
Пишу (как везде советуют)
Set Рисунок1.Picture=ImageList0.ListImages(1).Picture
получаю ошибку что не возможно найти рисунок (и далее идет номер рисунка)
но ведь Picture должно быть текстовой строкой ( а именно путь к файлу рисунка) а тут число
Вот и возник вопрос или я не туда полез и мой случай безнадёжен или у меня руки растут не оттуда
Заранее спасибо | |
|
| |
|
|
|
| Вот так работает : http://webfile.ru/3938522 | |
|
| |
|
|
|
| Спасибо Alex но вопрос не много в другом.....
в предложенном Вам варианте (т.е. когда рисунки храняться где то на диске) есть маленькая огреха которая мне не нравится, а именно в момент смены рисунка появляется progress bar Поскольку рисунки маленькие то эта зараза(в данном случае) появляется на очень маленькое время т.е мельтешит перед глазами - и это напрягает. Вот и полез искать способ избежать этого - глаз упал на ImageList который хранит рисунки внутри себя - вот только связать этот контейнер рисунков(ImageList ) с контролом отображения рисунков(Image) пока не получается | |
|
| |
|
|
|
| Если рисунки маленькие, может как вариант их хранить в разных Image-ах, а в отображаемом Image менять рисунок через PictureData? | |
|
| |
|
|
|
| Спасибо Lukas
но удалось найти более интересный вариант
в комплект MS Access входит стандартный элемент ActiveX - Microsoft Forms2.0 Image
ставлю его на форму
ставлю ImageList - гружу его рисунками
далее в VBA пишу
me![имя Forms2.0 image].picture=me![имя ImageList].listimages(1).picture
и все получается
тему можно закрыть | |
|
| |
|
12 Кб. |
|
| Видимо поторопился не много с закрытием темы....
все работает и прекрасно работает....
вот только вокруг рисунка присутствует черная рамка
и как от её избавиться пока ума не приложу
подскажите плиз | |
|
| |
|
|
|
| Ура - убил рамку
оказывается у этого элемента две рамки
одна просто .borderstyle
a вторая .Object.borderstyle
вот второй рамке задал значение fmBorderStyleNone (при загрузке формы)
и вопрос решился
теперь точно можно тему закрывать
спасибо откликнувшимся | |
|
| |
|
|
|
|
| это ActiveX
если точно то Microsoft ImageList Control - контейнер для хранения рисунков
хитрость его в том что при загрузке формы все рисунки запихиваются в память компа
(из-за этого может тормозить)
а так какие-нибудь мелкие рисунки в небольших количествах милое дело | |
|
| |