Private Function Findnode(ByVal treelist As TreeNodeCollection)
If treelist Is Nothing Then
Return ""
End If
Dim nodex As TreeNode
For Each nodex In treelist
If nodex.Text = citystr Then
nodex.EnsureVisible()
nodex.Checked = True
Me.DreamsTView1.SelectedNode = nodex
Me.DreamsTView1.Focus()
Else
Findnode(nodex.Nodes)
End If
Next
End Function
用下以方法使用
cmd = New OleDbCommand(strcity5, conn)
Try
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
Catch ex As Exception
End Try
read = cmd.ExecuteReader()
If read.Read() Then
'TraverseNode(DreamsTView1.Nodes)
Findnode(DreamsTView1.Nodes)
End If
read.Close()

这个博客介绍了如何在VB.NET中实现对TreeView控件的遍历搜索,以找到并定位特定目标节点。通过`Findnode`函数实现,当找到匹配的节点时,将其设置为可见、选中并聚焦。在实际应用中,该方法被用于处理从数据库查询结果中获取的城市名称,将结果与TreeView中的节点进行匹配。
1408

被折叠的 条评论
为什么被折叠?



