Discussion :

[jacma]

Bonjour
Existe-t-il une méthode simple pour déplacer dans un TreeView un noeud (avec tous ses enfants) dans une autre branche?
Pour l'instant, je ne vois que la suppression de ce noeud et de ses enfants (en sauvegardant les valeurs dans un tableau) et ensuite l'ajout du noeud et de ses enfants dans l'autre branche en utilisant les valeur sauvegardées dans le tableau.
Merci

[Theocourant]

Salut,

J'ai également cherché ce type d'info et pour le moment toujours rien non plus ...

Si tu trouves, je suis preneur.

+

Théo

[jacma]

Merci de ta réponse
Pour l'instant, j'ai dévelopé une solution qui fonctionne correctement, mais j'espérais trouver mieux. Je te la livre telle qu'elle:

Code :

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

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
  ElseIf strStatut = "parent" Then  'Insertion d'une filiale qui reprend à son compte les filiales de sa société mère
    MyErreur = "parent"
    intNbreEnfants = tvClients.SelectedItem.Children
    ReDim tbEnfantsOld((intNbreEnfants), 3)
    intIndex = tvClients.SelectedItem.Index
 
    Set ndNodexOld = tvClients.SelectedItem
    Set ndNodex = tvClients.Nodes(intIndex).Child.LastSibling
    strKeyLast = ndNodex.Key
    Set ndNodex = tvClients.Nodes(intIndex).Child.FirstSibling
    strKeyFirst = ndNodex.Key
    For i = 0 To intNbreEnfants - 1
      strKeyRemove = ndNodex.Key
      tbEnfantsOld(i, 0) = ndNodex.Key
      tbEnfantsOld(i, 1) = txtClient(1)
      tbEnfantsOld(i, 2) = ndNodex.Text
      If i < intNbreEnfants - 1 Then
        Set ndNodex = ndNodex.Next
        strKeyFirst = ndNodex.Key
      End If
      tvClients.Nodes.Remove strKeyRemove
    Next i
    Set ndNodex = tvClients.Nodes.Add(ndNodexOld, tvwChild, txtClient(0), txtClient(2), 1, 2)
    strKeyFirst = ndNodex.Key 'Cette variable est libre, donc le l'utilise...
    For i = 0 To intNbreEnfants - 1
      Set ndNodex = tvClients.Nodes.Add(strKeyFirst, tvwChild, tbEnfantsOld(i, 0), tbEnfantsOld(i, 2), 1, 2)
    Next i

Le contexte: l'utilisateur doit avoir sélectionné le noeud parent auquel il faut ajouter un noeud enfant qui deviendra alors le parent des enfant du noeud sélectionné. Ah ces histoires de famille
Si tu as besoin d'explications, n'hésite pas. Je sais que j'ai eu du mal à comprendre tout celà, et pourtant je l'ai écrit

[Megaxel]

Jacma, mon maître, ( )il faudrait penser à demander aux Dieux de créer le bouton AUTO-RÉSOLU, pour ce post.

Et re:

[Theocourant]

Nickel le code :

Il est vraiment
Il est vraiment
Il est vraiment phénoménal-lalalalalalalalalalalal
il meriterait
il meriterait
il meriterait d'être dans les sources
ou dans la FAQ lalalalaaaa

Ok, je sais je

Théo

[jacma]

Bonjour
Vous êtes trop...
Puisque le code semble satisfaisant je vais mettre le tag. Quant à le mettre en source, pourquoi pas. Il faudrait que je vois celà, je n'ai jamais pris le temps de voir comment celà se faisait.
Pour finir, un praticiel sur le TreView est en cours de relecture (merci Bidou) et j'attends son retour pour le mettre en ligne. Mais il ne contient pas cette fonction. Pensez vous qu'il soit intéressant de la rajouter?