如何在TreeView上定位一个node的text？(或TreeView的查找方法)

Question

SelectedItem 属性（ActiveX 控件）
      返回对所选 ListItem、Node 或 Tab 对象的引用。语法object.SelectedItemobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。 说明SelectedItem 属性返回对于一个对象的引用，该对象能用来在选定的对象上设置属性和调用方法。这一属性被典型地用于返回对 ListItem、Node、Tab 或用户已单击或选定的对象的引用。用此引用，可以在允许任何下一步操作之前验证对象，就象下面的代码中演示的那样：Command1_Click()
   '如果所选对象不是根，则删除此节点。
   If TreeView1.SelectedItem.Index <> 1 Then
      Treeview1.Nodes.Remove TreeView1.SelectedItem.Index
   End If
End Sub
为编程选择 ListItem 对象，用使用带有 SelectedItem 属性的 Set 语句，如下所示：Set ListView1.SelectedItem = ListView1.ListItems(1)

Answer 1

Private Sub Command1_Click()
    Dim Nodex As Node
    Set Nodex = FindNode(TreeView1, "abcde")
    If Not Nodex Is Nothing Then
        Nodex.Selected = True
        If TreeView1.Enabled Then
            TreeView1.SetFocus
        End If
    Else
        MsgBox "没找到"
    End If
End Sub
Private Function FindNode(ctlTreeView As TreeView, strFind As String) As Node
    Dim Nodex As Node
    For Each Nodex In TreeView1.Nodes
        If Nodex.Text = strFind Then
            Set FindNode = Nodex
            Exit Function
        End If
    Next
End Function

Answer 2

刚才的写错了。Private Sub Command1_Click()
    Dim Nodex As Node
    Set Nodex = FindNode(TreeView1, "abcde")
    If Not Nodex Is Nothing Then
        Nodex.Selected = True
        If TreeView1.Enabled Then
            TreeView1.SetFocus
        End If
    Else
        MsgBox "没找到"
    End If
End Sub
Private Function FindNode(ctlTreeView As TreeView, strFind As String) As Node
    Dim Nodex As Node
    For Each Nodex In ctlTreeView.Nodes
        If Nodex.Text = strFind Then
            Set FindNode = Nodex
            Exit Function
        End If
    Next
End Function