Discussion :

[patrickvier]

Bonjour à tous,
J'ai besoin de générer une tache de fond qui exécutera certain travaux de gestion et ou d'affichage sans monopoliser le thread principal.
j'ai cherché sur le net et j'ai trouvé qlq chose de simple, de compréhensible rapidement, mais ça marche pas
http://support.microsoft.com/kb/315577/fr
Ci-dessous le code :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.Threading
 
Public Class Form1
 
    Private trd As Thread
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        trd = New Thread(AddressOf ThreadTask)
        trd.IsBackground = True
        trd.Start()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("This is the main thread")
    End Sub
 
    Private Sub ThreadTask()
        Dim stp As Integer
        Dim newval As Integer
        Dim rnd As New Random()
 
        Do
            stp = ProgressBar1.Step * rnd.Next(-1, 2)
            newval = ProgressBar1.Value + stp
            If newval > ProgressBar1.Maximum Then
                newval = ProgressBar1.Maximum
            ElseIf newval < ProgressBar1.Minimum Then
                newval = ProgressBar1.Minimum
            End If
 
            ProgressBar1.Value = newval
 
            Thread.Sleep(100)
        Loop
    End Sub
 
End Class

le Debog se lance et crash au bout d'une seconde avec cette erreur :
Opération inter-threads non valide : le contrôle 'ProgressBar1' a fait l'objet d'un accès à partir d'un thread autre que celui sur lequel il a été créé.
je comprend bien le message d'erreur mais n'ai aucune idée pour faire en sorte que cela fonctionne, et vous ?
Patrick

[_Ez3kiel]

Tout est dit ici : Comment : faire des appels thread-safe aux contrôles Windows Forms

Avant de te lancer dans l'inter-thread, doc-toi sur les Invoke et les Delegate

[wallace1]

Bonsoir patrickvier,

Je ne vois pas trop l'intérêt de mettre en pratique cet exemple car la progression est aléatoire et ne se termine jamais du fait que la variable d'incrémentation est issu d'un random !
Lorsque tu rencontres ce genre d'erreur (même si tu dis savoir la comprendre sans pour autant pouvoir la résoudre o_O), c'est que tu essayes de mettre à jour un composant situé sur l'interface (UI) de ton programme, or tu ne délègues pas cette tache.

Il faut créer un délégué et l'appeler en lieu et place de ce qui te permet actuellement de mettre à jour ta progressbar comme cela :

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
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
 
Imports System.Threading
 
Public Class Form1
 
    Private trd As Thread
 
    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If trd.IsAlive Then
            trd.Abort()
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        trd = New Thread(AddressOf ThreadTask)
        trd.IsBackground = True
        trd.Start()
    End Sub
 
    Private Delegate Sub UpdateProgressBarDelegate(ByVal progress%)
    Private Sub UpdateProgressBarMethod(ByVal progress%)
        If Not progress > 100 Then
            Me.ProgressBar1.Value = progress
        End If
    End Sub
 
    Private Sub ThreadTask()
        Dim stp As Integer
        Dim newval As Integer
        Dim rnd As New Random()
 
        Do
            stp = ProgressBar1.Step * rnd.Next(-1, 2)
            newval = ProgressBar1.Value + stp
            If newval > ProgressBar1.Maximum Then
                newval = ProgressBar1.Maximum
            ElseIf newval < ProgressBar1.Minimum Then
                newval = ProgressBar1.Minimum
            End If
 
            If Me.InvokeRequired Then
                Me.Invoke(New UpdateProgressBarDelegate(AddressOf UpdateProgressBarMethod), newval)
            End If
            'ProgressBar1.Value = newval
 
            Thread.Sleep(100)
        Loop
    End Sub
 
End Class

Tu remarqueras qu'en quittant l'application il faut impérativement libérer les ressources monopolisées par ton thread (trd) :

Code :

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

1
2
3
4
 
    If trd.IsAlive Then
            trd.Abort()
        End If

Si les thread te rebutent un peu, tu peux également utiliser le composant "backgroundWorker" qui est très complet et fait très bien ce job de gestion de thread.


A+ et bon codage.

[patrickvier]

Merci à tous les 2 pour votre aide.
Il est vrai que les délégués sont encore obscures pour moi
En fait, dans le Thread, je traite des données toutes les minutes et ce temps là est géré par un timer...
Je ne suis pas si c'est la bonne méthode.
Merci encore.
Patrick.

[wallace1]

Merci à tous les 2 pour votre aide.
Il est vrai que les délégués sont encore obscures pour moi
En fait, dans le Thread, je traite des données toutes les minutes et ce temps là est géré par un timer...
Je ne suis pas si c'est la bonne méthode.
Merci encore.
Patrick.

Si tu traites des données toutes les minutes alors je pense que l'utilisation de Timer Callbacks devrait faire l'affaire sans trop se prendre la tête :
http://tutorials.csharp-online.net/C...imer_Callbacks

Cet exemple est bien illustré mais il faut que tu prévois de disposer l'objet Timer qui a été instancié préalablement !

PS : attention quand je parle de timer je ne parle pas du composant Timer issu de l'espace de noms "System.Windows.Forms" mais de la classe issue de l'espace de noms "System.threading" ! Ce n'est pas la même chose !

A+