Динамическое добавление в ImageList картинок

'Синтаксис:
'ImageList1.ListImages.Add([Index],[Key],[Picture]), где
'[Index] - номер по списку расположения
'[Key] - назначение данному элементу свойство Key
'[Picture] - полный путь к необходимой картинке

On Error Resume Next

Dim img As ListImage

Set img = ImageList1.ListImages.Add(1, "SpellCheck", LoadPicture("D:\t\2\SPELL.BMP"))
Set img = ImageList1.ListImages.Add(2, "Open", LoadPicture("D:\t\2\OPEN.BMP"))

Set img = ImageList1.ListImages.Add(3, "About", LoadPicture("D:\t\2\W95MBX04.ICO"))

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Динамическое добавление в ImageList картинок", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!