Discussion :

[Sam Placi]

Bonjour,

Le but est d'afficher dans une TextBox une valeur en cours d'évolution au sein de boucles For.
La succession des différentes valeurs est très rapide et cela les rend illisibles, mais ça permet de voir que le "compteur" tourne.

J'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim R As Long = 0
        For i As Integer = 0 To 10
            For j As Integer = 0 To 5000
                R += i + j
                TextBox1.Text = R
                TextBox1.Refresh()
            Next i
        Next j
    End Sub

Ce code donne bien l'effet attendu grâce à la ligne TextBox1.Refresh(). Sans elle, seule la dernière valeur affectée est visible après le dernier tour de boucle, comme si la ligne TextBox1.Text = R avait été placée après la ligne Next j. Tout cela est bien normal, je le comprends.

La solution du TextBox1.Refresh() n'est parait-il pas la meilleure.

Quelqu'un peut-il me donner un exemple de code qui serait une meilleure solution ?

Merci d'avance,

Sam

[popo]

Pourquoi pas un BackgroundWorker.
https://glarde.developpez.com/dotnet/bgworker/vb/

[Sam Placi]

Merci Popo.
Je vais examiner le BackgroundWorker.
Mais cela me parait bien lourd à mettre en œuvre pour remplacer un "simple" .Refresh d'un TextBox.
S'il est facile de me répondre, en quoi cela est-il meilleur ?

Bonne soirée,

Sam

[Phil Rob]

Bonjour,

A toutes fins utiles, la méthode Refresh peut être remplacée par la méthode UpDate :

Code :

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

TextBox1.UpDate()

Sans connaître l'ampleur de ton application ni le rôle du bout de code que tu donnes en exemple, je ne me hasarderai pas à dire si c'est mieux ou pas,

Je pense que le meilleur des semi-remorques, le plus beau, le plus économique, le moins polluant, le plus rapide, ..., est inapproprié s'il s'agit de conduire un petit pois de Lille à Marseille, la Poste fera l'affaire de manière aussi rapide et bien plus économique. Par contre, si c'est une cargaison de plusieurs tonnes de petits pois qu'il faut transporter, il faut un transporteur à la hauteur, le semi-remorque en est un, encore faudra-t-il un chauffeur capable de l'utiliser correctement.
Moralité : il est parfois utile de mettre en œuvre un dispositif "lourd" mais toi seul peut savoir ce qui est meilleur ou non, et cela demande une bonne dose de réflexions.

...

[popo]

Mais cela me parait bien lourd à mettre en œuvre pour remplacer un "simple" .Refresh d'un TextBox.
S'il est facile de me répondre, en quoi cela est-il meilleur ?

C'est dû à la manière dont fonctionne le Win Form.
Tout ce qui se passe à l'écran est basé sur des envois de message (à ne pas prendre au sens de courrier ou de mail).
Ces messages sont traités dans l'ordre où ils sont générés.
Et lorsque tu fais un Refresh tu rajoute un message "PAINT" dans la pile de message.

Sauf que le dépilement n'est effectué que lorsqu'on lui laisse le temps de le faire.
Or tant que boucle, tu empêches ce dépilement.
Cela signifie que ton Refresh n'est pas sûr de fonctionner.

[Phil Rob]

Re,

Intrigué par ton problème, et inspiré par l'échange d'hier entre Popo et Fricad à propos du "textbox en thread", je me suis souvenu d'une forme de multithreading qui ne fait pas appel au BackgroundWorker et de ce fait, est peut-être moins lourde à mettre en œuvre.
Si ce code te convient il te faudra quand vérifier s'il est fiable dans ton contexte, je n'ai pas une grande expérience de cette programmation.

Sur un Form contenant un TextBox et un Button, j'ai placé ce code qui permet l'affichage de chaque valeur dans le textBox sans Refresh ni UpDate.

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
Public Class Form1
 
    Delegate Sub Affichage(S As String)
 
    Dim AutreThread As System.Threading.Thread = Nothing
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AutreThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf Calcule))
        AutreThread.Start()
    End Sub
 
    Private Sub EcritText(Valeur As String)
        If (TextBox1.InvokeRequired) Then
            TextBox1.Invoke(New Affichage(AddressOf EcritText), New Object() {Valeur})
        Else
            TextBox1.Text = Valeur
        End If
    End Sub
 
    Private Sub Calcule()
        Dim R As Long = 0
        For i As Integer = 0 To 3       ' J'ai diminué tes valeurs de 10 et 5000 pour faire moins long à l'exécution.
            For j As Integer = 0 To 10 
                R += i + j
                EcritText(R.ToString)
                System.Threading.Thread.Sleep(10) ' pour avoir le temps de voir, comme tu le dis : La succession des différentes valeurs est très rapide
            Next
        Next
    End Sub
 
End Class

J'espère que ceci te fera avancer ...

[Sam Placi]

Bonsoir,

Merci Popo pour les explications. Peut-être que le UpDate indiqué par Phil est plus sûr ?
J'ai commencé à tester, plutôt essayé de tester, le BackgroundWorker. J'y suis pas loin, je n'ai encore rien qui fonctionne correctement.

Merci Phil, j'ai bien aimé ton histoire de semi-remorque. Ton code multithread fonctionne, je dois le comprendre.

Bon week-end à vous deux.

Sam.

[popo]

La différence entre Update et Refresh et est que Update va demander le repaint du composant seul alors que Refresh va également demander le repaint des composants qu'il contient.
D'ailleurs, il me semble que Refresh appelle Update.

[Sam Placi]

Merci Popo.

UpDate serait donc meilleur (ou moins mauvais) que Refresh.
Assez bêtement, je pensais que UpDate ne concernait que les données lorsqu'il y a un Bindings sur la propriété Text.
Quant au multithread, il permet donc de "simplement" changer le texte du TextBox là où cela ne se fait tant que le processus en cours n'est pas fini.

Cela me fait déjà beaucoup d'infos ...

Je crois bien de clôturer maintenant ce sujet.

Très bonne journée,

Sam

[popo]

UpDate serait donc meilleur (ou moins mauvais) que Refresh.

Cela va dépendre du contexte et du composant.
Un simple Label n'a pas besoin de rafraichir d'autre composants.
En revanche, un GroupBox ou une grille en aura potentiellement besoin.

Ce qu'il faut retenir, c'est que l'un comme l'autre, il vont ajouter un message PAINT dans la pile.
Et c'est pourquoi on met en place ce genre de technique.

[Sam Placi]

Bonjour Popo,

Merci pour cette explication complémentaire.
Il faut donc toujours évaluer la complexité du dispositif mis en oeuvre et le bénéfice recherché.
Le UpDate convient parfaitement au TextBox de mon simpliste exemple de départ et je comprends très bien que s'il s'agit d'un ensemble de composants, il faut utiliser le multithreading. Je vais devoir m'entrainer !

Très bonne journée,

Sam

[umfred]

une alternative peut-être au backgroundworker, l'utilisation d'un timer qui exécutera un tour de la boucle à chaque interruption