Discussion :

[Maximeus]

Bonjour,

Je sollicite votre aide pour l'utilisation de BackgroundWorker, pour lequel j'ai du mal à saisir le fonctionnement.

Voici mon souci:

Je souhaiterais lister les dossiers d'un répertoire et afficher le contenu dans une Listbox se trouvant dans ma Form.

En dehors du BackgroundWorker, cela fonctionne sans problème.

Mais dès que j'intègre le code à un BackgroundWorker (pour éviter de bloquer complèment la Form et pouvoir lancer d'autres tâches simultanément), il m'affiche le très connu message "Cross-Thread operation not valid...".

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
Liste_Des_Dossiers_ListBox.Items.Clear()
Liste_Des_Dossiers_ListBox.Refresh()
 
Liste_Des_Dossiers_BackgroundWorker.RunWorkerAsync()
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Liste_Des_Dossiers_BackgroundWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Liste_Des_Dossiers_BackgroundWorker.DoWork
 
Dim Dossier_Principal As String  = "c:\temp"
Dim Liste_Des_Dossiers As New IO.DirectoryInfo(Dossier_Principal)
 
For Each Dossier As IO.DirectoryInfo In Liste_Des_Dossiers.GetDirectories
 
Liste_Des_Dossiers_ListBox.Items.Add(Dossier.ToString)
Liste_Des_Dossiers_ListBox.Refresh()
 
Next
 
End Sub

Code :

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

1
2
3
4
5
6
 
Private Sub Liste_Des_Dossiers_BackgroundWorker_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Liste_Des_Dossiers_BackgroundWorker.RunWorkerCompleted
 
MessageBox.Show("Listing des dossiers effectué")
 
End Sub

Il y a bien de nombreux forums qui traite du BackgroundWorker de manière générale, mais je ne trouve rien sur le listing de dossier.

Pourriez-vous svp m'aider?

Un grand merci

[Pol63]

les controles ne sont modifiables que depuis le thread principal, pas depuis un autre thread comme celui créé par un backgroundworker
sinon ca donne le message d'erreur que tu as (cross thread)

http://www.developpez.net/forums/d10...m/#post5757425

[Sokhz]

Et juste pour optimiser un peu, il vaut mieux récupérer tous les dossiers dans une liste, et ensuite venir l'appliquer à la Combobox. Cela générera moins d'événement que ta méthode actuelle.

[infosam76]

Exemple d'utilisation d'un BackGroundWorker avec une progressBar :
http://dotnet.developpez.com/telecha...ckgroundWorker

sinon Sokhz n'a pas tord, Créez une liste dans votre fonction "Liste_Des_Dossiers_BackgroundWorker_DoWork" et vous la renvoyer en fin de fonction par e.Result ce qui va donner plus ou moins :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Liste_Des_Dossiers_BackgroundWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Liste_Des_Dossiers_BackgroundWorker.DoWork
 
Dim Dossier_Principal As String  = "c:\temp"
Dim Liste_Des_Dossiers As New IO.DirectoryInfo(Dossier_Principal)
 
For Each Dossier As IO.DirectoryInfo In Liste_Des_Dossiers.GetDirectories
 
 ' Ajout à la liste (SortedList par exemple)
 
Next
 
e.Result = LaListe 
End Sub

Et pour l'affichage vous implémentez la fonction suivante pour l'événement
"RunWorkerCompleted" (Implémentation en C# ici):

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
 
void work_RunWorkerCompleted(object sender, RunWorkerCompletedEventArgs e)
        {
            // L'objet RunWorkerCompletedEventArgs peut renvoyer une propriété (Error) contenant une information en cas d'erreur
            if (e.Error != null)
            {
            }
            else
            {
                // Ou un résultat via la propriété Result
                Type de la liste Ma Liste = (Type de la liste)e.Result
 
                // Ajout dans votre Liste_Des_Dossiers_ListBox
            }
        }

[Sankasssss]

@Sokhz :

Cela va de soi vu que l'on ne peut accéder au composant graphique dans un autre thread comme le disait Pol63
Mais maintenant grace à toi, Maximeus sait comment pallier à son problème

1. Créer une liste en variable global
2. Initialiser la liste avant le For Each dans le DoWork
3. La remplire dans le DoWork
4. La lier à la liste via la propriété Datasource dans RunWorkerCompleted

@Maximeus :
N'hésite pas à lire le lien de Pol63 qui explique bien le fonctionnement du Backgroundworker.

[Maximeus]

Merci pour votre aide. Cela fonctionne maintenant

Voici mon code (ça pourra toujours dépanner qn en cas de besoin):

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
Liste_Des_Dossiers_ListBox.Items.Clear()
Liste_Des_Dossiers_ListBox.Refresh()
 
Liste_Des_Dossiers_BackgroundWorker.RunWorkerAsync()
 
End Sub

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
 
Liste_Des_Dossiers_BackgroundWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles Liste_Des_Dossiers_BackgroundWorker.DoWork
 
Dim Dossier_Principal As String  = "c:\temp"
Dim Liste_Des_Dossiers As New IO.DirectoryInfo(Dossier_Principal)
 
Dim Table_Liste_Des_Dossiers As Datatable = New DataTable("Dossiers")
Table_Liste_Des_Dossiers.Columns.Add("Dossiers", GetType(Object))
 
For Each Dossier As IO.DirectoryInfo In Liste_Des_Dossiers.GetDirectories
 
Table_Liste_Des_Dossiers.Rows.Add(Dossier.Name.ToString)
 
Next
 
e.result = Table_Liste_Des_Dossiers
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Liste_Des_Dossiers_BackgroundWorker_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles Liste_Des_Dossiers_BackgroundWorker.RunWorkerCompleted
 
Liste_Des_Dossiers_ListBox.DataSource = DirectCast(e.Result, DataTable)
Liste_Des_Dossiers_ListBox.DisplayMember = "Dossiers"
Liste_Des_Dossiers_ListBox.Refresh() 
 
End Sub

Salutations.

[Sokhz]

Je peux chipoter? :p

Code :

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

1
2
3
4
5
6
 
For Each Dossier As IO.DirectoryInfo In Liste_Des_Dossiers.GetDirectories
 
Table_Liste_Des_Dossiers.Rows.Add(Dossier.Name.ToString)
 
Next

Je préfère :

Code :

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

1
2
 
Table_Liste_Des_Dossiers.Rows.AddRange(New IO.DirectoryInfo("c:\temp").GetDirectories.Select(Function(d) d.Name.ToString))

C'est dommage de faire une boucle lorsque l'on a aucun traitement à faire dedans, si ce n'est récupérer les éléments sur lesquelles on itère. Pour faire les ajouts en masse, il y a généralement une méthode AddRange. Et si elle n'existe pas, un petit coup d'extension .. En l'occurence, AddRange n'existe pas sur les Rows, mais elle existe sur les colonnes

De manière plus générale, tu utilises des variables dont tu pourrais te passer, même si elles sont locales, ça fait toujours ça d'économiser

Après, c'est vrai que ça rend le code un peu moins lisible au premier coup d'oeil.