Suppression noeud TreeView

Version imprimable

23/10/2010, 11h51
Anduriel

Suppression noeud TreeView
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:

1 2 3 tree_utilisateurs.BeginUpdate() tree_utilisateurs.Nodes(fiche.SelectedTab.Text).Remove() tree_utilisateurs.EndUpdate()
Il me répond:

Citation:

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

D'où vient le problème?
Merci

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:

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()

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

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

23/10/2010, 17h51
tomlev

Citation:

Envoyé par Anduriel

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...
23/10/2010, 22h47
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)?

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

Code:

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:

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

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

24/10/2010, 10h23
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
24/10/2010, 18h46
tomlev

Citation:

Envoyé par 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)?

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