VB6.0 Открытие узла в TreeView по ключу узла

[kpblc]

Доброго времени суток!
Как я могу "развернутьЭ дерево до узла (то есть как если бы пользователь до него руками добрался), если я знаю только его ключ (узел надо еще и активировать, то есть на нем спозиционировать курсор выделения)? Узел может находится на любом уровне вложенности. Примеры, которые я нашел в MSDN, показывают только варианты разворота всего дерева. Вариант

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

.Nodes(sOpenKey).Expanded = True

не срабатывает. Цикл

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

      For lCounter = 1 To .Nodes.Count
        If LCase(.Nodes(lCounter).Key) = LCase(sOpenKey) Then
          .Nodes(lCounter).Expanded = True
          Exit For
        End If
      Next lCounter

тоже мимо. Что и как надо сделать? Или последовательно проходить по FullPath узла, разворачивать каждый элемент? А как тогда "выделить" узел, который определен ключом?
Дополнительно: если такое вообще возможно, будет ли выполняться обработка TreeView_Expand или TreeView_NodeClick?
Спасибо.

[Konst_One]

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

with TREE.Nodes("key1")
.EnsureVisible
.Expanded=True
end with

[Хакер]

1) Верно ли то, что автор думает, что нужно сначала выделить узел, чтобы его раскрыть?

2) Правильно ли я понял?

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

A+
|
+-B
   +-C
     |
     +-Filamad
+-D
+-E


Развернуть все узлы до Filamad значит = развернуть A, затем, B затем C но не разорачивать сам Filamad

[kpblc]

> Kost One : Не срабатывает. Скорее всего, я просто не разобрался. За наводку спасибо, погляжу.
> Хакер : 1) Ну с точки зрения пользователя-то так и происходит. Хотя как это будет в программе, я не очень представляю (все-таки не профи)
2) Да, именно так.

[Хакер]

Делаем такую процедуру

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


Function ItemByKey(ByVal sKey As String) As Integer
      For lCounter = 1 To .Nodes.Count
        If LCase(.Nodes(lCounter).Key) = LCase(sKey) Then
          ItemByKey = lCounter
          Exit Function
        End If
      Next lCounter


А потом делаем вот что

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


xxx = кей узла, до которого нужно развернуть
fp = Tree.Nodes(ItemByKey(xxx)).FullPath
NodesBefore = split(fp, Tree.PathSeperator)
For i = LBound(NodesBefore) To UBound(NodesBefore)
Tree.Nodes(ItemByKey(NodesBefore(i))).Expand
Next i


Не проверял, поэтому может и не сработать...

[alibek]

Делаем такую процедуру

Лучше не делаем, ибо глупо и не эффективно.
Правильным будет рекурсия с использованием Set N = N.Childs(1) и Set N = N.NextSibling, с ограничением по Children = 0.

[pronto]

Однажды пришлось решать подобную задачу самому, но это было так давно...

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

Private Sub ExpandLastFolder(LastFolder As String) 'переход к папке на любую возможную глубину
Dim i As Integer, u As Integer, p As Integer, ch As Integer, s As Integer
Dim dopStr As String, sym As String
Dim Steps() As String

p = -1
For u = 1 To Len(LastFolder)
   sym = Mid$(LastFolder, u, 1)
   If sym = "\" Then ch = ch + 1
Next u
For u = 1 To ch
   For i = 1 To Len(LastFolder)
      sym = Mid$(LastFolder, i, 1)
      If sym = "\" Then
         s = s + 1
         If s = u Then
            p = p + 1
            ReDim Preserve Steps(p): Steps(p) = dopStr
            dopStr = "": s = 0
            Exit For
         Else
            dopStr = dopStr & sym
         End If
      Else
         dopStr = dopStr & sym
      End If
   Next i
   i = 1
Next u
ch = 1
For u = 0 To p
   For i = ch To AllNodes
      If tvwFolders.Nodes(i).Key = Steps(u) Then
         tvwFolders.Nodes(i).Expanded = True
         ch = i
         Exit For
      End If
   Next
Next
For i = ch To AllNodes
   If tvwFolders.Nodes(i).Key = LastFolder Then
      tvwFolders.Nodes(i).Selected = True
      Set xNewTreeNode = tvwFolders.Nodes(i)
      Call tvwFolders_NodeClick(xNewTreeNode)
      KeyOfExpFolder = LastFolder
      Exit For
   End If
Next
End Sub

[kpblc]

Спасибо! Все получилось!