Discussion :

[Anduriel]

Bonjour,

J'ai un TreeView contenant de multiples étages de noeuds et je cherche à supprimer un des "derniers enfants".

Sachant que je connais le nom ce noeud enfant (qui est unique), je fais simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
tree_utilisateurs.BeginUpdate()
tree_utilisateurs.Nodes(fiche.SelectedTab.Text).Remove()
tree_utilisateurs.EndUpdate()

Il me répond:

La référence d'objet n'est pas définie à une instance d'un objet.

D'où vient le problème?
Merci

[tomlev]

Je ne crois pas que l'indexeur de Nodes fasse une recherche récursive... à mon avis ça cherche seulement dans les noeuds racines.

Par contre il y a une méthode Find qui peut chercher récursivement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
tree_utilisateurs.BeginUpdate()
Dim nodeToRemove As TreeNode = tree_utilisateurs.Find(fiche.SelectedTab.Text, True)
If nodeToRemove IsNot Nothing Then
    nodeToRemove.Remove()
End If
tree_utilisateurs.EndUpdate()

[Anduriel]

Merci je ne connaissais pas cette fonction.
Je suis allé voir dans l'aide et la syntaxe qui a l'air correcte est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
tree_utilisateurs.BeginUpdate()
Dim nodeToRemove As TreeNode() = tree_utilisateurs.Nodes.Find(fiche.SelectedTab.Text, True)
If nodeToRemove IsNot Nothing Then
MsgBox(nodeToRemove.Count)
'nodeToRemove(0).Remove()
End If
tree_utilisateurs.EndUpdate()

Cependant, il me dit avec ce code que le tableau possède 0 élément. Or il y a bien fiche.SelectedTab.Text.

Une idée de l'origine du problème?
Merci

[tomlev]

Une idée de l'origine du problème?

Ce serait pas juste le texte du noeud qui est fiche.SelectedTab.Text ? Ca cherche par la propriété Name, pas Text...

[Anduriel]

Je crois comprendre ce que tu veux dire, mais je ne vois pas comment attribuer un Name à un noeud.
Quand on l'ajoute, on fait simplement Add(texte à afficher)?

[chrismonoye]

Bonjour,
je me demande si on peut éviter une procédure récurrente du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Private Sub ScanTrViewForRemoveNod(ByVal nodes As TreeNodeCollection, ByVal textNod As String)
 
        Dim node As TreeNode
        For Each node In nodes
            If node.Text = textNod Then
                node.Remove()
                Exit For
            End If
            'Récursivité sur les noeuds enfants.
            ScanTrViewForRemoveNod(node.Nodes, textNod)
        Next
 
    End Sub

et l'appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ScanTrViewForRemoveNod(tree_utilisateurs.Nodes, fiche.SelectedTab.Text)

en supposant que fiche.SelectedTab.Text soit le text du noeud à supprimer.

[Anduriel]

Merci, cette méthode fonctionne.

J'ai cependant une questions: dans mon Node je pourrais avoir une centaine d'éléments en tout venant d'une base de données.

Qu'est ce qui est plus rapide:

- supprimer l'élément dans la base de donnée, supprimer TOUS les élements dans le TreeView, et aller chercher un nouveau TOUS les éléments dans la bdd

ou

- supprimer dans la bdd l'entrée, chercher l'élément dans le TreeView (sur la centaine), et le supprimer?

Merci

[tomlev]

Je crois comprendre ce que tu veux dire, mais je ne vois pas comment attribuer un Name à un noeud.
Quand on l'ajoute, on fait simplement Add(texte à afficher)?

Il y a plusieurs surcharges de Add, dont une qui prend un nom (key) et un texte. Sinon la plupart des surcharges de Add renvoient un TreeNode, il suffit de setter la propriété Name dessus. Ou encore, tu crées le noeud toi même (new TreeNode), tu affectes le Name, et tu l'ajoutes