Конференция VBStreets

**Cryonyx** » 07.06.2005 (Вт) 22:11

Всем здрямc.
Встал вопрос - как иконку, полученную из файла путём хирургического вмешательства ExtractIcon[Ex], запихнуть в ImageList :?:

**Demonx** » 08.06.2005 (Ср) 3:36

Код: Выделить всё: Private Declare Function ImageList_Add Lib "comctl32.dll" (ByVal himl As Long, ByVal hbmImage As Long, ByVal hbmMask As Long) As Long

**MeMBus** » 08.06.2005 (Ср) 3:38

Думаю так...
ImageList1.ListImages.Add 1, "Icon", LoadPicture("C:\Edit\icon.ico")
Set butEdit.Picture = ImageList1.ListImages(1).Picture

**Cryonyx** » 08.06.2005 (Ср) 11:24

2 Demonx
У меня она почему-то почти всё время возвращает -1

Глянь, что здесь не так:

Код: Выделить всё: hIcon = ExtractIcon(App.hInstance, s, 1) '' s - путь к исполняемому файлу If hIcon > 0 Then ret = ImageList_Add(il.hImageList, hIcon, 0)

**GSerg** » 08.06.2005 (Ср) 12:14

Для кого в Кирпичах ImageList лежит?

Из файла в ImageList