OVH Cloud OVH Cloud

Sélectionner un 'Noeud' dans un treeView a l'aide d'un bouton.

1 réponse
Avatar
Blaster
Bonjour,

Je voudrai sélectionner un Noeud d'un treeView un l'aide d'un bouton, quelle
commande dois-je utiliser ?

Merci d'avance,

Blaster.

1 réponse

Avatar
Christophe
Blaster a écrit :
Bonjour,

Je voudrai sélectionner un Noeud d'un treeView un l'aide d'un bouton, quelle
commande dois-je utiliser ?

Merci d'avance,

Blaster.



Salut,

C'est très simple, tu parse tes nodes et tu test si c'est bon, je t'ai
fait un copier/coller d'un de mes codes perso : tu appelles
SelectItem(un_Tag) qui te renvoie si ca été trouvé et sélectionné.
Je passe mes ID de chaque nodes dans la propriété tag, mais tu peux
adapter le code très facilement.



Private Function SelectItem(ByVal Item_ID As String) As Boolean
If IsNothing(Tree.Nodes) = True Then Return False

Dim i As Integer = 0
Dim Trouver As Boolean = False

Do While Tree.Nodes.Count - 1 >= i And Not Trouver
If Tree.Nodes.Item(i).Tag = Item_ID Then
Trouver = True
Tree.SelectedNode = Tree.Nodes.Item(i)
Tree.SelectedNode.Expand()
Return Trouver
Else
Trouver = SelectItem(Item_ID, Tree.Nodes.Item(i).Nodes)
End If
i += 1
Loop

Return Trouver
End Function

Private Function SelectItem(ByVal Item_ID As String, ByVal Noeuds
As TreeNodeCollection) As Boolean
Dim i As Integer = 0
Dim Trouver As Boolean = False

Do While Noeuds.Count - 1 >= i And Not Trouver
If Noeuds.Item(i).Tag = Item_ID Then
Trouver = True
Tree.SelectedNode = Noeuds.Item(i)
Tree.SelectedNode.Expand()
Return Trouver
Else
Trouver = SelectItem(Item_ID, Noeuds.Item(i).Nodes)
End If
i += 1
Loop

Return Trouver
End Function