Как програмно кликнуть на узел в TreeView

[Ruslan Demidow]

При поиске текста в TreeView я пробегаю по узлам и ищу текст.
Если нашёл - то я знаю идентификатор узла.
Как по нему програмно щёлкнуть?
Вот так я ищу текст. (SearchText - текстбокс со строкой текста).

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

Private Sub cmdQuickSearch_Click()
    Dim i As Long, n As Long
    Dim intNode As Node
    Dim intSearchResult As String, NodeKey As String
    If Len(SearchText.Text) = 0 Then
        Exit Sub
    End If
    i = SabjList.SelectedItem.Index + 1
    If i = 0 Then
        i = 1
    End If
    For n = i To SabjList.Nodes.Count
     
        Set intNode = SabjList.Nodes.Item(n)
        intSearchResult = Trim$(intNode.Text)
        If InStr(1, intSearchResult, Trim$(SearchText.Text)) <> 0 Then
            SabjList.SelectedItem = intNode
            intNode.Expanded = True
            SabjList.SetFocus
            Exit Sub
        End If
    Next
        MsgBox "Не найдено."
End Sub


Если после SabjList.SetFocus я вызываю процедуру SabjList_NodeClick(ByVal Node As MSComctlLib.Node) c intNode в качестве параметра - то VB ругается на несоответствие типов.

[GoGosha]

Node.Expanded = True
Где Node - соответственно узел

[Ruslan Demidow]

Node.Expanded = True
Где Node - соответственно узел

Не. Я наверное неверно сформулировал вопрос.
Посмотри в коде - я там устанавливаю это свойство.
TreeView переходит на данный узел, выбирает его , раскрывает его.

Но вот само сообщение в ТекстБоксе появляется только после щелчка на узле мышью. А при переходе на него - нет.
У меня на событие SabjList_NodeClick выводится сообщение, которое закреплено за этим узлом.
Т.е. при щелчке мышью на узле - VB не ругается и в качестве параметра нормально получает Node. А вот если ему програмно указать текущий узел - ругается на несоответствие типов.
Где-то видно я не докрутил.

[Cyrax]

.NodeExpanded = True - это развернуть ветку, а выделить - .Nodes(<ID>).Selected=True, где <ID> - это либо Index узла, либо Key


только при программном выделении узла событие NodeClick не происходит... рекомендую код прописанный у тебя сейчас в этом событии вынести в отдельную процедуру и вызывать из NodeClick, и из cmdQuickSearch_Click... как определять выделеный узел, это уже на твое усмотрение, либо передавай в качестве параметра, либо определяй в самой процедуре

[Ruslan Demidow]

Спасибо, попробую.