добавление новых элементов в TreeView в начало

[Chuvak]

ну, в принципе, в названии темы все сказано:
как добавлять новые node'ы в самый вверх

[Gemini]

Помойму на сайте VBS был пример работы с TreeView.
сохраняеш в фаил расположение node, очищаешь TV добовляешь новую ветвь и загружаеш из файла старое расположение ветвей с новым индексом.

[alibek]

Зачем???
Вот декларация: Add([Relative], [Relationship], [Key], [Text], [Image], [SelectedImage])
Здесь Relative -- нода, относительно которой происходит добавление, а Relationship -- "способ" добавления. Они бывают следующие:
* tvwFirst - добавляемая нода будет ПЕРВОЙ на том же уровне, что и Relative.
* tvwLast - добавляемая нода будет ПОСЛЕДНЕЙ на том же уровне, что и Relative.
* tvwNext - Нода добавится на тот же уровень, что и Relative, и ПОСЛЕ него.
* tvwPrevious - Нода добавится на тот же уровень, что и Relative, и ПЕРЕД ним.
* tvwChild - Добавляемая нода будет child'ом Relative.

[Vi]

Можно проще.
Или

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

      TreeView1.Nodes.Add TreeView1.Nodes(1).Root.Index, tvwFirst, , "имя"

Или

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

      TreeView1.Nodes.Add TreeView1.Nodes(1).Root.Index, tvwPrevious, , "имя"

[Chuvak]

Можно проще.
Или
Код:
TreeView1.Nodes.Add TreeView1.Nodes(1).Root.Index, tvwFirst, , "имя"

Или
Код:
TreeView1.Nodes.Add TreeView1.Nodes(1).Root.Index, tvwPrevious, , "имя"

а если treeview в начале пуст и неизвестно, какой элемент добавиться первым

[Vi]

Если пуст, то нужно анализировать

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

If TreeView1.Nodes.Count = 0 Then
  TreeView1.Nodes.Add , , , "имя"
Else
  TreeView1.Nodes.Add TreeView1.Nodes(1).Root.Index, tvwFirst, , "имя"
End If

Если не знаешь, то наводи порядок, чтобы знать.

[Chuvak]

спасибо, все ништяк