treeview - Ordre des Noeuds et BDD

Salut,

Voila, je cherche un moyen de remonter (ou de descendre) un noeud...(drag&Drop)...
Et de sauvegarder mon treeview dans une base.

un grand merci d'avance

pour monter un noeud :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub monterNoeud()
        Dim selectedNode As TreeNode = Me.TreeViewMenu.SelectedNode
        Me.TreeViewMenu.BeginUpdate()
        Dim parentNode As TreeNode = selectedNode.Parent
        Dim oldIndex As Integer = selectedNode.Index
        selectedNode.Remove()
        parentNode.Nodes.Insert(oldIndex - 1, selectedNode)
        Me.TreeViewMenu.SelectedNode = selectedNode
        Me.TreeViewMenu.EndUpdate()
    End Sub

pour descendre un noeud:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub descendreNoeud()
        Dim selectedNode As TreeNode = Me.TreeViewMenu.SelectedNode
        Dim maxIndex As Integer = 0
        If selectedNode.Parent Is Nothing Then
            maxIndex = TreeViewMenu.Nodes.Count - 1
        Else
            maxIndex = TreeViewMenu.SelectedNode.Parent.Nodes.Count - 1
        End If
        TreeViewMenu.BeginUpdate()
        Dim parentNode As TreeNode = selectedNode.Parent
        Dim oldIndex As Integer = selectedNode.Index
        selectedNode.Remove()
        parentNode.Nodes.Insert(oldIndex + 1, selectedNode)
        Me.TreeViewMenu.SelectedNode = selectedNode
        Me.TreeViewMenu.EndUpdate()
    End Sub

par contre, j'aierai une petite piste pour l'enregistrement de tout mon arbre !!!!

merci !

ben j'ai trouvé..... en reflichissant un chouilla !!! :lol:
Code:

1 2 3 4 5 6 7 Sub ParcoursTreeView(ByVal n As TreeNode) For Each n1 As TreeNode In n.Nodes Debug.Print(n1.Name.ToString + " " + n1.Text) ParcoursTreeView(n1) Next End Sub
et on remplace "Debug.Print(n1.Name.ToString + " " + n1.Text)" par l'enregistrement dans base !!!

Facile !!
Désolé du derengement !