Загрузка файлов PIC в ImageList

[Space]

У меня есть некие стандартные изображения в ImageList. Как можно программно загрузить в ImageList новые изображения из файлов, заменив ими стандартные? При ошибке загрузки остаются стандартные pic.

[Space]

Я так понимаю, св-во Picture ImageList только для чтения.

[SSecurity]

Я так понимаю, св-во Picture ImageList только для чтения.

также как и со всеми элементами из этой библиотеки

Код: Выделить всё

Dim X As ListImage
  Set X = ImageList1.ListImages.Add
  Set X.Picture = LoadPicture("...бла бла бла...")
  ...

[Alexanbar]

Код: Выделить всё

Dim NewPicture as IPIcturedisp

Imagelist1.listimages.Remove ImageKey 'Or ImageNumber

Imagelist1.listimages.Add , ImageKey, NewPicture '

[SSecurity]

Код: Выделить всё

Dim NewPicture as IPIcturedisp
Imagelist1.listimages.Remove ImageKey 'Or ImageNumber
Imagelist1.listimages.Add , ImageKey, NewPicture '

я конечно не проверял, но что-то мне подсказывате что Remove надо будет выполнять пока Imagelist1 ни к кому не подключен. Добавить он наверно добавит. Но могу ошибаться.

[SSecurity]

было лишним:)

[Space]

нет, зачем удалять стандартные изображения. Тут надо плясать с двумя ImageList. А как по ImageKey определить, есть ли элемент в ImageList (без On Goto Error желательно )?

[SSecurity]

нет, зачем удалять стандартные изображения. Тут надо плясать с двумя ImageList. А как по ImageKey определить, есть ли элемент в ImageList (без On Goto Error желательно )?

ну как ... как ..

наверно надо прогнать все картинки и посмотреть какой у них ImageKey

Код: Выделить всё

For I = 1 to ImageList1.ListImages.Count
  if ImageList1.ListImages(I-1).ImageKey = YourImageKey then   'тут возможно я ошибаюсь, не I-1 а просто I
    msgbox "Такой есть"
    exit for
  end if
Next I