Utilisation du BackgroundWorker

Version imprimable

Bonjour à tous,

je fais une appli qui à un certains moment parcours une ListView une très grosse ListView :lol: et qui exécute une fonction pour chaque élément de la liste, et sa fait un peu freezer l'interface qraphique.

J'ai donc décider d'utilisé un backgroundWorker (thread) mais j'ai un peu du mal à le mettre en place (j'aime pas les threads :aie:), j'ai une erreur car je tente d'accéder à une valeur d'un autre thread et bon je vois pas comment faire autrement.

Voilà le code, bon c'est pas super propre :roll:

En gros j'aimerais que le clique sur ce bouton passe en backgroundWorker

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
 
Private Sub B_AppliQuota_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_AppliQuota.Click
 
        If Lv_SansQuota.SelectedItems.Count = 1 Then
            MsgBox(Lv_SansQuota.SelectedItems.Item(0).SubItems(0).Text)
            Dim objet = CreateObject("Scripting.FileSystemObject")
            Dim fichier = objet.GetFolder(Lv_SansQuota.SelectedItems.Item(0).SubItems(0).Text)
            Dim taille = (fichier.Size / 1024) / 1024
            AddQuota(Lv_SansQuota.SelectedItems.Item(0).SubItems(0).Text, taille * Integer.Parse(tb_Pourcentage.Text) / 100 + taille) 'taille * Integer.Parse(tb_Pourcentage.Text) / 100 + taille
 
        Else
            Using sr5 As StreamReader = File.OpenText("C:\Resultat.txt")
                Dim input3 As String
                input3 = sr5.ReadLine()
                While Not input3 Is Nothing
                    Dim objet, fichier
                    objet = CreateObject("Scripting.FileSystemObject")
                    fichier = objet.GetFolder(input3)
                    Dim taille = (fichier.Size / 1024) / 1024
                    If taille = 0 Then
                        AddQuota(input3, 100)
                    Else
                        AddQuota(input3, taille * Integer.Parse(tb_Pourcentage.Text) / 100 + taille)
                    End If
                    input3 = sr5.ReadLine()
                End While
            End Using
        End If
        B_SearchUser.PerformClick()
    End Sub

Merci à tous

15/04/2011, 10h18
Pol63

on ne peut pas modifier l'interface depuis un autre thread
lire les données sur l'interface ne marche pas toujours et provoque dans certains cas la même erreur

le backgroundworker a 2 évènements relayés sur le thread principal permettant de modifier l'interface (progresschanged appelé autant de fois qu'on veut pendant le traitement et workercompleted appelé à la sortie du dowork)
sur ces 2 évènements on peut passer des variables

si l'erreur vient du performclick et pas du selecteditem ca peut être simple à modifier, sinon il faut passer par une collection dans laquelle tu mets les selecteditem avant de démarrer le backgroundworker
15/04/2011, 10h24
jlm22

Bonjour Pol63

En faite il plante sur les SelectedItems, je cherche à récupérer la taille total de la listView (pour une progressBar) et vérifier si un élément de la liste a été sélectionné mais il veut pas et je ne modifie pas l'interface en elle même je cherche juste à accéder à une donnée de ma Liste.

Merci pour ta réponse rapide
15/04/2011, 10h49
Pol63

donc il faut mettre selecteditems dans une collection avant d'appeler le dowork et utiliser cette collection dans le dowork
15/04/2011, 11h03
jlm22

désolé j'ai commencé à développer en vb y'as moins d'une semaine donc je ne vois pas ce que tu entends par "collection", une Liste ? :?
15/04/2011, 11h43
Pol63

il faut apprendre avant de coder en théorie ...
un cours plutot pas mal : http://plasserre.developpez.com/cours/vb-net/

une collection permet de stocker plusieurs objets dans une seule variable
selecteditems est une collection
List(Of ) est une collection
etc...

donc mettre le contenue de selecteditems dans un list(of object) par exemple et utiliser ce list(of ) dans le dowork
15/04/2011, 12h31
jlm22

Bon j'ai réussi à avançer la fonction se fait bien dans le thread :ccool: mais (oui il ya un mais) comment mettre à jour ma progress bar ?
15/04/2011, 13h53
Pol63

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

j'ai appelée le reportProgress mais il ne se passe rien de plus, pas de message working ou autre, j'ai rater un truk ? :aie:

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
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        BackgroundWorker1.ReportProgress(0, "Working...")
        Dim i = 1
        If Lv_SelectedItem.Items(0).SubItems(0).Text = "1" Then
            ' MsgBox(Lv_SansQuota.SelectedItems.Item(0).SubItems(0).Text)
            Dim objet = CreateObject("Scripting.FileSystemObject")
            Dim fichier = objet.GetFolder(Lv_SelectedItem.Items(1).SubItems(0).Text)
            Dim taille = (fichier.Size / 1024) / 1024
            AddQuota(Lv_SelectedItem.Items(1).SubItems(0).Text, taille * Integer.Parse(Lv_SelectedItem.Items(2).SubItems(0).Text) / 100 + taille) 'taille * Integer.Parse(tb_Pourcentage.Text) / 100 + taille
 
        Else
            Using sr5 As StreamReader = File.OpenText("C:\Resultat.txt")
                Dim input3 As String
                input3 = sr5.ReadLine()
                While Not input3 Is Nothing
                    Dim objet, fichier
                    objet = CreateObject("Scripting.FileSystemObject")
                    fichier = objet.GetFolder(input3)
                    Dim taille = (fichier.Size / 1024) / 1024
                    If taille = 0 Then
                        AddQuota(input3, 100)
                    Else
                        AddQuota(input3, taille * Integer.Parse(Lv_SelectedItem.Items(2).SubItems(0).Text) / 100 + taille)
                    End If
                    input3 = sr5.ReadLine()
                    BackgroundWorker1.ReportProgress(i, "Working...")
                    i = i + 1
                End While
            End Using
        End If
        BackgroundWorker1.ReportProgress(Integer.Parse(Lv_SelectedItem.Items(2).SubItems(0).Text), "Complete!")
        'B_SearchUser.PerformClick()
    End Sub

Merci pour ton aide Pol

15/04/2011, 15h30
Pol63

oui

appeler reportprogress ne fait que lever l'évènement, si tu n'es pas abonné à l'évènement normal que ca ne fasse rien ...

voici un exemple de code de msdn et je ne vois pas la différence avec le mien il ne fait qu'appeler la methode ReportProgress

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
 
 
Private Sub backgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs)
   ' This method will run on a thread other than the UI thread.
   ' Be sure not to manipulate any Windows Forms controls created
   ' on the UI thread from this method.
   backgroundWorker.ReportProgress(0, "Working...")
   Dim lastlast As [Decimal] = 0
   Dim last As [Decimal] = 1
   Dim current As [Decimal]
   If requestedCount >= 1 Then
      AppendNumber(0)
   End If
   If requestedCount >= 2 Then
      AppendNumber(1)
   End If
   Dim i As Integer
 
   While i < requestedCount
      ' Calculate the number.
      current = lastlast + last
      ' Introduce some delay to simulate a more complicated calculation.
      System.Threading.Thread.Sleep(100)
      AppendNumber(current)
      backgroundWorker.ReportProgress(100 * i / requestedCount, "Working...")
      ' Get ready for the next iteration.
      lastlast = last
      last = current
      i += 1
   End While
 
 
   backgroundWorker.ReportProgress(100, "Complete!")
 End Sub

15/04/2011, 15h54
Pol63

au lieu de papoter tu ferais mieux de tester ce que je dis ...
l'évènement est ProgressChanged
15/04/2011, 16h13
jlm22

merci beacoup ca m'aura quand même aidé, j'avais commencé a utilisé progressChanged sa marche presque mais on va dire que c'est résolu hein :aie: