Sélection d'un treeview 2 fois dans la listbox

Version imprimable

1 pièce(s) jointe(s)

Bonjour,
J'ai un treeview du c: qui lorsque je coche une checkbox d'un dossier, le fullpath de celui-ci s'affiche dans une listbox.
Sauf que dans mon cas il s'affiche 2 fois et différemment en plus.
La preuve en image:
Pièce jointe 142807

Mais pourquoi donc???

Merci de m'aider.

voici un bout du code:
Code:

1 2 3 4 5 6 7 Private Sub treeView1_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck 'affiche dans la listbox les items de treeview1 qui seront "checké" If e.Node.Checked Then ListBox1.Items.Add(e.Node.FullPath) 'efface dans la listbox les items de treeview1 qui seront "déchecké" If e.Node.Checked = False Then ListBox1.Items.Remove(e.Node.FullPath) End Sub

Bonjour,
n'auriez vous pas des déclarations dupliquées, genre :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Private Sub node_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterCheck
        'Le code s'exécute uniquement si l'utilisateur a provoqué l'état activé au changement .  
        If e.Action <> TreeViewAction.Unknown Then
            If e.Node.Nodes.Count > 0 Then
                'Appelle la méthode de CheckAllChildNodes, en passant dans le courant   
                'valeur Analyse du TreeNode dont vérifié l'état changé.   
                Me.CheckAllChildNodes(e.Node, e.Node.Checked)
            End If
        End If
 
    End Sub
 
    Private Sub treeView1_AfterCheck(sender As Object, e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck
        'affiche dans la listbox les items de treeview1 qui seront "checké"
        If e.Node.Checked Then ListBox1.Items.Add(e.Node.FullPath)
 
        'efface dans la listbox les items de treeview1 qui seront "déchecké"
        If e.Node.Checked = False Then ListBox1.Items.Remove(e.Node.FullPath)
    End Sub

A voir.

Si effectivement mais si je le supprime je perds l'héritage sur les checkboxs enfants, bon en même temps sur cette version de l'application l'important est de pouvoir sélectionner les dossiers à la racine du C:.
Mais j'aimerai en faire une autre version plus "générale" et complète qui aura surement plus de fonctionnalités (dont l'héritage des checkboxs).
Peut-être que pour la 2ème version je garderai l'héritage et que j'utiliserai le "double-clic" pour remplir la listbox....à voir.

voici une partie du code au cas ou y aurai une solution.

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
    Private Sub treeView1_NodeMouseClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick
 
        Dim newSelected As TreeNode = e.Node
        ListView1.Items.Clear()
        Dim nodeDirInfo As DirectoryInfo = CType(newSelected.Tag, DirectoryInfo)
        Dim subItems() As ListViewItem.ListViewSubItem
        Dim item As ListViewItem = Nothing
        Dim dir As DirectoryInfo
        For Each dir In nodeDirInfo.GetDirectories()
            item = New ListViewItem(dir.Name, 0)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "Directory"), New ListViewItem.ListViewSubItem(item, _
                dir.LastAccessTime.ToShortDateString())}
            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next dir
        Dim file As FileInfo
        For Each file In nodeDirInfo.GetFiles()
            item = New ListViewItem(file.Name, 1)
            subItems = New ListViewItem.ListViewSubItem() {New ListViewItem.ListViewSubItem(item, "File"), New ListViewItem.ListViewSubItem(item, _
                file.LastAccessTime.ToShortDateString())}
            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next file
 
        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
 
    End Sub
 
    'Selection des checkbox avec heritage aux sous dossiers:
    Private Sub CheckAllChildNodes(TreeNode As TreeNode, nodeChecked As Boolean)
        Dim node As TreeNode
        For Each node In TreeNode.Nodes
            node.Checked = nodeChecked
            If node.Nodes.Count > 0 Then
                'Si le nœud actuel possède des nœuds enfant, appelez la méthode CheckAllChildsNodes récursive.  
                Me.CheckAllChildNodes(node, nodeChecked)
            End If
        Next (node)
    End Sub
    Private Sub node_AfterCheck(sender As Object, e As TreeViewEventArgs) Handles TreeView1.AfterCheck
        'Le code s'exécute uniquement si l'utilisateur a provoqué l'état activé au changement .  
        If e.Action <> TreeViewAction.Unknown Then
            If e.Node.Nodes.Count > 0 Then
                'Appelle la méthode de CheckAllChildNodes, en passant dans le courant   
                'valeur Analyse du TreeNode dont vérifié l'état changé.   
                Me.CheckAllChildNodes(e.Node, e.Node.Checked)
            End If
        End If
    End Sub
 
    Private Sub treeView1_AfterCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck
        'affiche dans lbSélection les items de treeview1 qui seront "checké"
        If e.Node.Checked Then ListBox1.Items.Add(e.Node.FullPath)
 
        'efface dans ListBox1 les items de TreeView1 qui seront "déchecké"
        If e.Node.Checked = False Then ListBox1.Items.Remove(e.Node.FullPath)
    End Sub

Merci

Bon j'ai trouvé une solution:
J'ai gardé l'héritage des checkbox et je rempli la listbox en double-cliquant sur le dossier voulu avec le code suivant:
Code:

1 2 3 Sub treeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick ListBox1.Items.Add(e.Node.FullPath) End Sub
Sauf que lorsque je double-cliquais, le nœud se déployai.
J'ai donc rajouté le code suivant qui "repli" (collapse):

Code:

TreeView1.SelectedNode.Collapse()

Ça fonctionne très bien, le noeud se déploie et se repli en une fraction de seconde, c'est juste pas "Hyper clean".
Je vais donc faire avec mais si quelqu'un a une solution plus "clean" je suis preneur.