Private Function GetNextNode(ByVal ATreeNode) As TreeNode
If ATreeNode Is Nothing Then
Return Nothing
End If
If ATreeNode.Nodes.Count > 0 Then
Return ATreeNode.Nodes(0)
Else
While True
If ATreeNode.Parent Is Nothing Then
If ATreeNode.Index + 1 < ATreeNode.TreeView.Nodes.Count Then
Return ATreeNode.TreeView.Nodes(ATreeNode.Index + 1)
Else
Return Nothing
End If
Else
If ATreeNode.Index + 1 < ATreeNode.Parent.Nodes.Count Then
Return ATreeNode.Parent.Nodes(ATreeNode.Index + 1)
Else
ATreeNode = ATreeNode.Parent
End If
End If
End While
Return Nothing
End If
End Function
Private Sub FindNextNode(ByVal ATreeView As TreeView, ByVal AText As String)
If ATreeView Is Nothing Or ATreeView.Nodes.Count <= 0 Then
Return
End If
Dim vTreeNode As TreeNode = ATreeView.SelectedNode
If vTreeNode Is Nothing Then
vTreeNode = ATreeView.Nodes(0)
Else
vTreeNode = GetNextNode(vTreeNode)
End If
Dim vStartNode As TreeNode = vTreeNode
While Not vTreeNode Is Nothing
If vTreeNode.Text.IndexOf(AText) >= 0 Then
ATreeView.SelectedNode = vTreeNode
Return
End If
vTreeNode = GetNextNode(vTreeNode)
End While
ATreeView.SelectedNode = Nothing
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
FindNextNode(TreeView1, "节点")
TreeView1.HideSelection = False
If Not TreeView1.SelectedNode Is Nothing Then
If TreeView1.SelectedNode.IsVisible Then
TreeView1.SelectedNode.EnsureVisible()
End If
End If
End Sub
扫一扫
2838
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
