VB.NET Chargement optimisé du treeview

Version imprimable

Bonjour,
Bon voila la suite de mes problèmes avec le treeview (treeview et moi ça fait 2).
Sur mon ancien post je demandais de l'aide pour pouvoir charger le treeview du (C:\) sans les dossier protégés.
Le post a été résolut grâce à Wallace1 (encore une fois) sauf que le chargement s'en est trouvé très long (12s).
On me dit :
"Si tu veux accélérer le chargement des données, tu peux au début ne charger que les deux premiers niveaux de l'arborescence. Ensuite lorsque l'utilisateur déplie un nœud, tu vas chercher les deux sous-niveaux suivants, et ainsi de suite."
J'ai beau chercher sur d'autres forum et site, je ne trouve rien de concluant.
J'ai vu qu'on pouvait utiliser le "VirtualizingStackPanel.IsVirtualizing" (je sais même pas à quoi ça sert, c'est mal expliqué dans msdn.microsoft) et aussi la propriété "expand" mais je sais pas où les placer dans le code ni comment s'en servir.

Quelqu'un pour m'aider?

Voici mon code:

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
Imports System.IO
Public Class Form2
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub PopulateTreeView()
        Dim rootNode As TreeNode
        Dim info As New DirectoryInfo("C:\")
 
        If info.Exists Then
            rootNode = New TreeNode(info.Name)
            rootNode.Tag = info
            rootNode.Expand()
            GetDirectories(info.GetDirectories(), rootNode)
            TreeView1.Nodes.Add(rootNode)
        End If
    End Sub
 
    Private Sub GetDirectories(ByVal subDirs() As DirectoryInfo, ByVal nodeToAddTo As TreeNode)
 
        Dim aNode As TreeNode
        Dim subSubDirs() As DirectoryInfo
        Dim subDir As DirectoryInfo
        For Each subDir In subDirs
            aNode = New TreeNode(subDir.Name, 0, 0)
            aNode.Tag = subDir
            aNode.ImageKey = "folder"
            Try
                subSubDirs = subDir.GetDirectories()
            Catch e As UnauthorizedAccessException
                subSubDirs = Nothing
            End Try
            If Not subSubDirs Is Nothing Then
                If subSubDirs.Length <> 0 Then
                    GetDirectories(subSubDirs, aNode)
                End If
            End If
            If Not subDir.Attributes = (FileAttributes.Hidden Or subDir.Attributes) Then
                nodeToAddTo.Nodes.Add(aNode)
            End If
        Next subDir
    End Sub
 
    Public Sub New()
        InitializeComponent()
        PopulateTreeView()
    End Sub 'New

10/04/2014, 23h10
Pol63

VirtualizingStackPanel c'est en wpf, ca n'existe pas en windows forms

http://msdn.microsoft.com/fr-fr/libr...vs.110%29.aspx
là il y a tout ce qu'il y a de dispo sur le treeview et ce que ca fait
il y a par exemple l'event AfterExpand qui se déclénche donc quand on ouvre un noeud

il suffit donc de retirer la récursivité de ta méthode, lire le niveau 0 du disque, mettre les nodes
afterexpand, si tu n'as pas encore les noeuds d'en dessous tu recherches sur le disque

après gérer niveau n+2 c'est vrai que c'est plus pratique, mais c'est plus chiant à expliquer en détail :D

sinon il y a aussi le multithreading :aie:

Tout à fait d'accord avec Pol63, on peut aussi envisager le multithreading :) Mais c'est une autre paire de manche.

En attendant, voici déjà un exemple d'optimisation :

On charge le premier niveau
On s'abonne à l'évènement BeforeExpand
On ajoute un nœud fantôme histoire d'afficher le signe + sur tous les dossiers du premier niveau
Lorsqu'on passe dans BeforeExpand, on supprime le nœud fantôme, puis on va charger le premier niveau du dossier en cours
Etc.

Voici le code :

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
58
59
60
61
62
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.PopulateTreeView()
 
        ' On s'abonne à l'évènement BeforeExpand du TreeView (on le fait après avoir populé le TreeView)
        AddHandler Me.TreeView1.BeforeExpand, AddressOf Me.TreeView1_BeforeExpand
    End Sub
 
    Private Sub PopulateTreeView()
        Dim rootNode As TreeNode
        Dim info As New DirectoryInfo("C:\")
 
        If info.Exists Then
            rootNode = New TreeNode(info.Name)
            rootNode.Tag = info
            rootNode.Expand()
            GetDirectories(info.GetDirectories(), rootNode)
            TreeView1.Nodes.Add(rootNode)
        End If
    End Sub
 
    Private Sub GetDirectories(ByVal subDirs() As DirectoryInfo, ByVal nodeToAddTo As TreeNode)
 
        Dim aNode As TreeNode
        Dim subSubDirs() As DirectoryInfo
        Dim subDir As DirectoryInfo
        For Each subDir In subDirs
            aNode = New TreeNode(subDir.Name, 0, 0)
            aNode.Tag = subDir
            aNode.ImageKey = "folder"
 
            Me.AddFakeNode(aNode)
 
            Try
                subSubDirs = subDir.GetDirectories()
            Catch e As UnauthorizedAccessException
                subSubDirs = Nothing
            End Try
 
            If Not subDir.Attributes = (FileAttributes.Hidden Or subDir.Attributes) Then
                nodeToAddTo.Nodes.Add(aNode)
            End If
        Next subDir
    End Sub
 
    Private Sub AddFakeNode(ByVal nodeToAddTo As TreeNode)
        ' On ajoute le noeud fantome pour afficher le signe +
        nodeToAddTo.Nodes.Insert(0, New TreeNode(String.Empty))
    End Sub
 
    Private Sub RemoveFakeNode(ByVal nodeToRemoveFrom As TreeNode)
        ' On supprime le noeud fantome
        nodeToRemoveFrom.Nodes.RemoveAt(0)
    End Sub
 
    Private Sub TreeView1_BeforeExpand(sender As Object, e As TreeViewCancelEventArgs)
        RemoveFakeNode(e.Node)
 
        ' On charge le premier niveau de dossiers pour le noeud en cours de traitement
        Dim di As New DirectoryInfo(e.Node.FullPath)
        GetDirectories(di.GetDirectories(), e.Node)
    End Sub

11/04/2014, 00h29
wallace1

Grace à l'évènement BeforeExpand :

http://www.dreamincode.net/forums/to...dows-explorer/
http://www.java2s.com/Tutorial/CShar...irectories.htm
http://www.codeproject.com/Articles/...ystem-TreeView

EDIT : arff flute ça m'apprendra à coder en même tps.....

A+
11/04/2014, 00h41
Bylliboy

Super, merci DotNetMatt, ton code rectifié fonctionne bien (sauf le "Me.PopulateTreeView()" en trop dans le load qui affiche le treeview 2 fois), l'affichage est instantané.
J'y comprends pas grand chose à ton code mais merci à Pol63 pour le lien, je vais potasser tout ça.

Pour info j'essaye de faire un "BackUp" pc assez complet pour me motiver à apprendre le VB.

Juste une question bête pour finir...
Pensez-vous qu'il est possible, en VB (ou tout autre langage d'ailleurs), suite à l'exécution d'un backup (comme j'essaye de faire) de continuer sur la réinstallation complète d'un pc via une image?
11/04/2014, 08h48
Pol63

Citation:

Envoyé par Bylliboy

Pensez-vous qu'il est possible, en VB (ou tout autre langage d'ailleurs), suite à l'exécution d'un backup (comme j'essaye de faire) de continuer sur la réinstallation complète d'un pc via une image?

en théorie c'est un peu complexe
un pc ce n'est pas seulement des fichiers, il y a aussi les secteurs de boots, parfois plusieurs disques
et après pour réinstaller en général ca se fait au boot de la machine, il faut donc un mini OS capable de démarrer, de recréer des partitions, des systèmes de fichiers (ntfs ou autre) et ensuite remettre tout
donc je ne pense pas que c'est une bonne idée de se lancer là dedans
11/04/2014, 16h41
Bylliboy

OK merci Pol63, je me doutais bien aussi mais bon je me disais on sait jamais (..sur un malentendu) .
Salut à tous.