TreeView控件已知node.key值，如何用程序选定它？

Question

我的node.key与node.text是完全不同的二个值，node.key是不重复的，而node.text是重复的。
已知node.key如何定位node?
并把它给：SelectedItem

Answer 1

Private Function Findkey(ctlTreeView As TreeView, strFind As String) As Node
        Dim Nodex     As Node
        For Each Nodex In ctlTreeView.Nodes
                If Nodex.Key = strFind Then
                        Set FindNode = Nodex
                        Exit Function
                End If
        Next
End Function
在程序中调用它：
         set mynode=findkey(TreeView1,"mykey")
        If Not mynode Is Nothing Then
                mynode.Selected = True
        end if