как загрузить System Image List

[X-BOND]

Имеем TreeView, в который загружаем определенную папку со всеми субпапками и файлами. И каждый тип файла должен иметь свою иконку, прописанную доктором... тьфу, системой. Так вот и появилась мысля загнать в обычный ImageList все иконки, ассоциированные с конкретным расширением файла. У меня есть пример на VB, как можно это реализовать с помощью PictureBox, и то криво. Но в VBA PictureBox-а, насколько я знаю, нет в принципе. А может можно "Дереву" сразу задать ссылку на System Image List (возможно ли это вообще) ?
Итак, что делать?

[GSerg]

Можно, сообщением TVM_SETIMAGELIST.
Сам Image list см. в Кирпичах.

[X-BOND]

Так, с этого места поподробнее. Сообщение посылать через SendMessage? а как узнать hWnd чтобы послать сообщение? И что ставить на lParam?

[GSerg]

А что, у treeview не проперти hWnd?..
А справка вот.

[X-BOND]

А что, у treeview не проперти hWnd?..

Звыняюсь . Не соизволил проверить. Привык, что в VBA хендлы редкость.

[X-BOND]

Мы немного от темы отошли. Привязать ImageList к дереву можно без всяких SendMessage: Set TreeView1.ImageList = ImageList1
А мне нужно получить все иконки из System Image List, в чем и заключался сабж первого поста. Или я чего не доглядел в примере кирпича?

[GSerg]

Что такое System Image List?

[Konst_One]

это он думает, что такой существует

[X-BOND]

Существует . Может называется немного иначе, но существует.
И хендл можно получить приблизительно так:
hSLI = SHGetFileInfo("c:\", 0&, SHI, Len(SHI), SHGFI_SYSICONINDEX Or SHGFI_SMALLICON)
Вот только как приаттачить к дереву....

[GSerg]

Интересно...
Получив, пошли sendmessage.

[X-BOND]

Уже пробовал, не катит, говорит, надо сначала инициализировать ImageList
Call SendMessage(TreeView1.hWnd, TVM_SETIMAGELIST, 0/2, hSLI)

[GSerg]

А после чего он говорит, что надо его инициализировать?
И что такое 0/2?
И как объявлена SendMessage?

[X-BOND]

Говорит после попытки добавить узел в дерево

0/2 - константы TVSIL_NORMAL и TVSIL_STATE (пробовал обе)

Объявлено как:
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

[GSerg]

Тогда как минимум Call SendMessage(TreeView1.hWnd, TVM_SETIMAGELIST, 0, ByVal hSLI)

[X-BOND]

И так не работает.

Сделал проверку после:
lRet = SendMessage(TreeView.hWnd, TVM_GETIMAGELIST, 0, 0)

при всех раскладах возращает 0
То есть нифига он не аттачит

Если бы перегнать все иконки из системного в обычный имажлист. Но там требуется буфер из PictureBox-а. Как без него можно это сделать?

[GSerg]

Где он там требуется?

[X-BOND]

То я про другой пример говорил.
Щас буду твой кирпич подробно разгребать...