TreeNode folder toujours ouvert?

Le code suivant devrait donner à peu près le comportement que tu décris :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
	' Pour empêcher qu'un noeud non-sélectionné soit déplié
	Private Sub treeView1_BeforeExpand(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs) Handles treeView1.BeforeExpand
		If Not e.Node.IsSelected Then
			e.Cancel = True
		End If
	End Sub
 
	' Pour déplier automatiquement le noeud sélectionné
	Private Sub treeView1_AfterSelect(ByVal sender As Object, ByVal e As TreeViewEventArgs) Handles treeView1.AfterSelect
		e.Node.Expand()
	End Sub
 
	' Pour replier le noeud actuellement sélectionné avant de sélectionner le nouveau
	Private Sub treeView1_BeforeSelect(ByVal sender As Object, ByVal e As TreeViewCancelEventArgs) Handles treeView1.BeforeSelect
		Dim current As TreeNode = treeView1.SelectedNode
		If current <> Nothing AndAlso Not IsChildNode(current, e.Node) Then
			CollapseNodesUpToLevel(current, e.Node.Level - 1)
		End If
	End Sub
 
	' Replie les noeuds à partir du noeud sélectionné en remontant jusqu'au niveau indiqué
	Private Sub CollapseNodesUpToLevel(ByVal node As TreeNode, ByVal level As Integer)
		Dim tmp As TreeNode = node
		While tmp <> Nothing AndAlso tmp.Level > level
			tmp.Collapse()
			tmp = tmp.Parent
		End While
	End Sub
 
	' Vérifie si un noeud est un descendant d'un autre
	Private Function IsChildNode(ByVal parent As TreeNode, ByVal child As TreeNode) As Boolean
		For Each node As TreeNode In parent.Nodes
			If node = child Then
				Return True
        ElseIf IsChildNode(node, child) Then
				Return True
			End If
		Next
		Return False
	End Function

Il y a peut-être quelques ajustements à faire, mais l'idée est là...