Как определенным узлам TreeView назначать иконки из ImageList?

11.11.2007, 15:08. **Показов** 4043. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Извиняюсь за идиотский вопрос, но блин в делфи бы давно уже разобрался, а VBA Access - плохо сделать это самомуМ

Проблема следующая, как определенным узлам TreeView назначать иконки из ImageList?
Пробую след:

Visual Basic

Dim TreeNode As Node
 
  Set TreeNode = tree.Nodes.Add(, , 'CurrentDB', 'Текущая БД')
      TreeNode.Expanded = True
      TreeNode.Image = Treeimage.ListImages.Item(1)

tree - TreeView
TreeImage - ImageList

Прикол в том, что на строчке с присвоением иконки возникает ошибка: Invalid Key. Но иконка появляется!!!

Что делать-то? В чем ошибка?

12.11.2007, 05:23

Visual Basic

1
2
3

Set TreeNode = tree.Nodes.Add(, , 'CurrentDB', 'Текущая БД')
   TreeNode.Expanded = True
   TreeNode.Image = Treeimage.ListImages.Item(1).Index

(Если в странице свойств установлен ImageList для tree в Treeimage, то все работает)

12.11.2007, 13:13

Спасибо за помощь!
Сам не смог разобраться, потому что Help'а нет

Deymos
	12.11.2007, 13:13	3
	Спасибо за помощь! Сам не смог разобраться, потому что Help'а нет