Afficher dans une form les valeurs calculées par un thread

Version imprimable

Bonjour,

Je voudrais afficher dans une form des valeurs calculées par un thread.

Le thread s'occupe de lire les données qui arrivent sur le port série. Celles-ci sont stockées dans la variable globale m.

Je pensais qu'il suffirait d'attribuer au textbox TB01 qui se trouve dans la form1 la valeur de m. (tb01.text = m). Mais apparemment cela ne fonctionne pas.

Comment peut-on récupérer dans une form des valeurs calculées dans un thread ?

Dans l'exemple ci-dessous, le thread calcule la date et heure du jour. Je voudrais afficher la valeur de hrm dans le textbox TB01.

Merci pour votre aide.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Imports System.Threading Public Class Form1 Dim th1 As Thread Private Sub CB01_Click th1 = New Thread(AddressOf HEURE01) Timer1.Interval = 3000 Timer1.Enabled = True End Sub Private Sub HEURE01() Dim i As Integer = 1 do hrm = DateTime.Now.ToString Thread.Sleep(1000) loop End Sub Private Sub Timer1_Tick TB01.Text = hrm End Sub End Class

Bonjour,

Crée dans Form1 une routine :
Code:

1 2 UpdateDateTextBox(dt AS string ) TB01.Text = dt
Puis déclare et crée un delegate:
Code:

1 2 3 4 Public Delegate Sub UpdateTextBox_Delegate( dt As dateTime) // Set up delegate to allow asynchronous calls between threads. Dim UpdateTextBox_Caller As UpdateTextBox_Delegate (AddressOf Form1.UpdateDateTextBox)
et dans l'event du thread :

Code:

Form1.BeginInvoke(UpdateTextBox_Caller,hrm)

Moyennant quelques erreurs de syntaxe (je ne connais pas VB), cela devrait résoudre le problème.

27/03/2010, 10h41
Pol63

et pour l'explication : un controle ne peut être modifié que par le thread qui l'a créé (le thread principal en général)
quand on est dans un autre thread il faut dire à un controle d'invoker un pointeur vers une sub
27/03/2010, 12h07
Sankasssss

Bonjour,
Je te conseille de lire les titres de la FAQ, bien souvent tu peux résoudre un problème seul sans avoir à poster grâce à la FAQ, la preuve, la solution à ton problème était ici :
http://faqvbnet.developpez.com/?page...m_graph_access
Bien à toi.

P.S. : Pense au balise code pour une meilleur lisibilité ;)
27/03/2010, 14h31
dakota77

Merci pour vos réponses. Elles été fort utiles.
(l'exemple dans les fac n'était pas trop clair pour moi).

Encore merci.

Voici le code qui fonctionne en VB.NET :

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
Imports System.Threading
 
Public Class Form1
    Dim th1 As Thread
    Public Delegate Sub upd_delegate(ByVal dt As String)
 
    Private Sub CB01_Click
        TB01.Text = DateTime.Now.ToString
        th1 = New Thread(AddressOf Thread01)
        th1.Start()
    End Sub
 
    Private Sub Thread01()
        Do
            Me.TB01.Invoke(New upd_delegate(AddressOf upd), DateTime.Now.ToString)
            Thread.Sleep(1000)
        Loop
    End Sub
 
    Private Sub upd(ByVal dt As String)
        TB01.Text = dt
    End Sub
 
End Class

Encore merci pour votre aide