Question

VB treeview选中节点展开时其它节点都关闭功能

VB中 treeview选中节点展开时其它节点都关闭，求代码

你可以参考VB.net的代码，如下
Protected Sub TreeView1_TreeNodeExpanded(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.TreeNodeEventArgs) Handles TreeView1.TreeNodeExpanded
Dim i As Integer
Dim value As Nullable(Of Boolean)
For i = 0 To TreeView1.Nodes.Count - 1
value = TreeView1.Nodes(i).Expanded
If value.HasValue Then
If e.Node IsNot TreeView1.Nodes(i) Then
If e.Node.Parent IsNot TreeView1.Nodes(i) Then
TreeView1.Nodes(i).CollapseAll()
End If
End If
End If
Next
End Sub

Answer 1

'试试下面两个属性为真
treeview1.Nodes(index).Selected = True
treeview1.Nodes(index).EnsureVisible =True