Utilisation de la fonction SET

Question

J'ai r&#233;cup&#233;r&#233; un programme ici (http://www.vbfrance.com/article.aspx?ID=489) qui d&#233;place un noued Treeview avec ce code l&#224;:



Private Sub ctlSpinUpDown_SpinUp()

Dim strTextPrevious As String, strTextNext As String

Dim nodNodeItem As Node, nodPreviousNode As Node, nodMovedNode As Node

Set nodNodeItem = ctlTreeView.SelectedItem

If nodNodeItem Is Nothing Then

    Exit Sub

End If

If nodNodeItem.Parent Is Nothing Then

    Exit Sub

End If

If nodNodeItem.Previous Is Nothing Then

    Exit Sub

    Else

    strTextPrevious = nodNodeItem.Previous.Key

    Set nodPreviousNode = nodNodeItem.Previous

End If

strTextNext = ""

Set nodMovedNode = nodNodeItem

Do Until strTextNext = strTextPrevious

    Set nodMovedNode.Parent = nodMovedNode.Parent

    strTextNext = nodNodeItem.Next.Key

    Set nodMovedNode = nodPreviousNode.Previous

Loop

End Sub



Tout est compr&#233;hensible pour moi sauf cette subtilit&#233; l&#224;:  Set nodMovedNode.Parent = nodMovedNode.Parent

C'est &#224; ce moment que le noeud qui &#233;tait par exemple au rang 3 des fils
passe &#224; 1. Je ne comprends qu'on affecte l'objet &#224; lui m&#234;me et que &#224;
premi&#232;re vue cela change quelque chose.



Merci d'avance. C'est important pour moi car cela fait un sacr&#233; moment que j'essaye de comprendre

Renfield · Answer

c'est pas franchement sens&#233; faire grand chose.....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_M51 · Answer

;) mou&#233; pour la r&#233;ponse, n'emp&#234;che que si tu ex&#233;cutes le code le noeud
moved se d&#233;place  syst&#233;matiquement au premier rang. Et l&#224; myst&#232;re
! Apr&#232;s ce noeud moved change pour en d&#233;placer un autre. Si tu as plus
d'id&#233;e fait moi signe car j'aime bien comprendre

rvblog · Answer

Salut M51, salut Renfield, en fait l'astuce (si ce n'est pas l'exploitation d'un effet de bord), c'est que d'un noeud, il devient le premier enfantFirstSibling), et du coup, se replace tout de suite après le parent. La boucle à l'air de servir à déplacer tous les noeuds précédents celui qui précède le noeud sélectionné (donc sauf lui) pour ré-affecter leur parent. Au résultat, tous les précédents ont bougé, sauf le précédent du sélectionné. Et on a donc l'impression que le sélectionné est remonté d'un enfant dans la filiation. Bien sûr, ce curieux algo (qui doit certainement son existance au fait que FirstSibling, ou Next ou Privious sont en lecture seule) a ses limites : ne nous amusons pas à changer le tri ! Je vous jure qu'il n'est pas de moi :) à+ rvblogn^{Je veux ton bien... et je l'aurais}

Utilisation de la fonction SET

3 réponses

Discussions similaires