Дерево на дрова?

[Went]

Вопрос не раз поднимался, но исчерпывающего ответа я так и не получил. Все-таки, как работать с TreeView? Как создавать дочернюю ветвь и как вообще с ними всеми обращаться? Я добился от него лишь работы как ListBox. Помогите, пожалуйста!

[timsoft]

вот типа заполнение дерева

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

 
  'очистим дерево
  TreeView1.Nodes.Clear
  'добавим главную ноду
  Set mNode = TreeView1.Nodes.Add(, , "node 0", "AAAAAA", "root")
  'добавим 10 детей
  for i=1 to 10
    Set mNode = TreeView1.Nodes.Add("node 0", tvwChild, "node " & Format(i), "CHILD " & format(i), "cfolder", "folder")
  next i

[Eugenio]

У тебя нет справки? На MSDN можно ходить..

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

Set NewItem = mTreeView.Nodes.Add(
1. <СуществующийНод>,
2. <Отношение нового к cуществующему ноду>,
3. <УникальныйКлюч>,
4. <Текст (отображающийся в дереве)>,
5. <Номер картинки в ассоциированном с деревом объекте ImageList>,
6. <Номер картинки в ассоциированном с деревом объекте ImageList,
которая отображается, когда этот нод выбран>
)

Добавление дочернего:
Вариант 1.

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

Set NewItem = mTreeView.Nodes.Add(ParentNode,tvwChild,ParentNode.Key & "\Child" & ParentNode.Children+1,"Дочерняя ветвь " & ParentNode.Children+1,
ParentNode.Image+1)

Вариант 2.

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

ParentKey = mTreeView.Nodes(ParentNodeNum).Key
ChildNum = mTreeView.Nodes(ParentNodeNum).Children+1

Set NewItem = mTreeView.Nodes.Add(ParentNodeNum, tvwChild,ParentKey & "\Child" & ChildNum ,"Дочерняя ветвь " & ChildNum,
ParentNode.Image+1)

Во, отношения:

TvwFirst=0. First: The Node is placed before all other nodes at the same level of the node named in relative.
TvwLast=1. Last: The Node is placed after all other nodes at the same level of the node named in relative. Any Node added subsequently may be placed after one added as Last.
TvwNext=2. (Default) Next: The Node is placed after the node named in relative.
TvwPrevious=3. Previous: The Node is placed before the node named in relative.
TvwChild=4. Child: The Node becomes a child node of the node named in relative.

(relative - это первый параметр)

[timsoft]

Первый параметр функции add - это не строковое значение

Читаем MSDN внимательно:
Relative -- Optional. The index number or key of a pre-existing Node

[Eugenio]

Первый параметр функции add - это не строковое значение

Читаем MSDN внимательно:
Relative -- Optional. The index number or key of a pre-existing Node

Н-да.
Когда-то сделал что-то не так и вызвал ошибку. А запомнил это так, что передавать нужно объект (ну, или индекс). Так и делаю с тех пор - въелось.