Treeview

[Mactish]

Подскажите каким образом добавлять новые пункты (т.е. ответвления)

[hCORe]

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

Dim oParent As Node, oChild As Node
Set oParent = TreeView1.Nodes.Add(, , "ParentKey", "ParentKey")
Set oChild = TreeView1.Nodes.Add(oParent, tvwChild, "ChildKey", "ChildText")

[Mactish]

Сенкс. А заодно подскажите плиз статьи по Treeview.

[Ennor]

Всегда пожалуйста

[Mactish]

А на русском статьи по Treeview бывают. Я уже столько перекопал, а по treeview так больше кроме советов не нашел и MSDN на русском смотрел - нашел всего один совет и все. Мой англ. оставляет желять лучшего

[Mactish]

Как назначить выполнение чего-нибудь при клике на определнный элемент дерева?

[ism]

В событии TreeView1_NodeClick, проверь не опредеделенный ли это элемент и если это он - выполни чего-нибудь.

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


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Msgbox Node.FullPath

End Sub


[Mactish]

Сенкс. А если например в прочессе выполнения создается еще несколко корневых узлов с ответвлениями (неизвестно сколько), то как последущей работе проги при клике на них выпонялось чего-нибудь?

[Inferno]

Создаешь ключи соответсвенным образом и по ним уже определяешь на чем жмакнули