Discussion :

[dakota77]

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 :

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
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

[Graffito]

Bonjour,

Crée dans Form1 une routine :

Code :

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

1
2
UpdateDateTextBox(dt AS string )
TB01.Text = dt

Puis déclare et crée un delegate:

Code :

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

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 :

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

Form1.BeginInvoke(UpdateTextBox_Caller,hrm)

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

[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

[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é

[dakota77]

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

Encore merci.

[dakota77]

Voici le code qui fonctionne en VB.NET :

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
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