Discussion :

[benito9253]

Bonjour,

Je voudrais lister les fichiers d'un repertoire et afficher les chemin du fichier en cours dans un label pendant la recherche. Pour cela j'ai pensé à utiliser un BackGroundWorker. Le problème c'est que le BackGroundWorker ne peut pas renvoyer directement le chemin a mon thread principal pour qu'il soit affiché dans le label puisque la fonction ne sera pas terminée... Je ne vois donc pas comment faire pour envoyer le résultat au thread de mon form avant la fin.

Voici le code que j'utilise pour le listage:

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
19
20
21
22
Public Function GetAllFiles(ByVal path As String) As String
        Dim sFiles As String()
        Dim sbBuffer As New StringBuilder
 
        Try
            sFiles = Directory.GetFiles(path)
            For Each fichier In sFiles
                sbBuffer.AppendLine(fichier)
                nbrFileFn2 += 1
            Next
 
            Dim sDir As String()
            sDir = Directory.GetDirectories(path)
            For Each dossier In sDir
                sbBuffer.AppendLine(GetAllFiles(dossier))
            Next
        Catch ex As Exception
            sbBuffer.AppendLine(ex.Message)
        End Try
 
        Return sbBuffer.ToString
    End Function

Est ce que quelqu'un a une solution?

Merci d'avance

[Pol63]

oui, ca doit etre expliqué dans la doc du backgroundworker d'ailleurs
il y a une méthode ReportProgress, à laquelle tu peux passer des objets
et ca déclenche un évènement (progresschanged) sur le thread principal (donc ok pour modifier l'interface) avec les objets que tu as passé

[benito9253]

OK je vais essayer ca.

Par contre j'ai un autre problème: j'ai modifié un peu ma fonction et maintenant j'ai besoin de passer deux arguments. Mais il me semble que le backGroundWorker ne peut passer qu'un argument.

Y a t il moyen de résoudre ce problème?

[Ogotcha]

Tu appel un fonction spécifique au moment du DoWork de ton BackGroundWorker

[Pol63]

tu peux passer une seule chose as object certes, mais tout dérivant de object ca laisse pas mal de place à l'imagination
comme une instance de classe avec 2 membres ou encore plus simple, un tableau d'objet, une collection etc...

exemple avec un tableau d'objet :

bckw.reportprogress(new object(1){obj1,obj2})

et de l'autre coté il faut surement faire

directcast (e.JeSaisPlusQuoi,object())(0)
directcast (e.JeSaisPlusQuoi,object())(1)

[benito9253]

Merci pour les réponses

J'ai créé une classe pour passer mes arguments: ca marche impec! J'avoue que je n'y aurais jamais pensé ^^

Par contre j'ai un problème avec l'événement BackgroundWorker.ProgressChanged:

je le déclenche comme ca:

Code :

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

1
2
3
4
5
6
            For Each fichier In sFiles
                Form1.BackgroundWorker1.WorkerReportsProgress = True
                Form1.BackgroundWorker1.ReportProgress(0, fichier)
                sbBuffer.AppendLine(fichier)
                nbrFileFn2 += 1
            Next

et dans l'événement je met ca:

Code :

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

1
2
3
    Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        lblChemin.Text = e.UserState.ToString()
    End Sub

Mais lorsque je lance mon programme rien ne d'affiche dans le label. J'ai testé avec le débuger en mode pas a pas mais tout se déroule correctement et la valeur du chemin est bien passé a mon label...

Quelqu'un aurait il une idée?

Merci