Discussion :

[Polyvar]

Bonjour,

Ce que je veux faire est très simple, mais je n'y arrive pas .
Je veux afficher le compteur de ma boucle (I) boucle dans un TextBox.

Code :

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

1
2
3
For I = 1 To 1000
TextBox.Text = I
Next I

Le programme devrait afficher toutes les valeurs de I, mais il n'affiche que la dernière.
Même en mettant une boucle de temporisation à l’intérieur de ma boucle seul le résultat final 1000 est affiché.

Tous les exemples donnés utilisent une MSGBox qui stoppe l’exécution de la boucle, mais je ne veux pas un messagebox.
L'appel de procédure à l'intérieur de ma boucle agit de la même manière.

Quelle est l'astuce.

amicalement.

[Pol63]

l'affichage de l'interface ne peut pas se faire tant que du code à toi est en cours d'exécution = tant que t'es pas sorti du sub le textbox ne se redessinera pas
il y a des moyens de contourner ca

par contre compter 1 à 1000 sans temporisation ca prend moins d'une seconde (même moins d'une milliseconde sans l'affichage), donc je ne vois pas l'interet de ton code

si tu veux faire quelque chose avec un interval de temps et que le l'interface puisse rafraichir je te conseille le Timer

[Phil Rob]

Bonjour,

Le code suivant fait ce que tu souhaites, mais vu la vitesse à laquelle ça tourne ...

Code :

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

1
2
3
4
        For i As Integer = 0 To 1000 
            TextBox1.Text = i
            TextBox1.Refresh()
        Next

Bon amusement,

[Polyvar]

@ Pol63
Merci pour ta réponse.
D'abord, j'essaye de comprendre ce que fait le VB quand il exécute une boucle For next .
Même avec une forte temporisation, il n'affiche pas les valeurs intermédiaires, mais uniquement la dernière.
@ Piil Rob
Merci pour ta réponse.
Avec Refresh ça marche.
En effet, un peu rapide mais avec une tempo ( sous forme de boucle vide), les résultats s'affichent normalement.

En fait les résultats doivent s'afficher dans des textBox d'une subroutine appelée à l'intérieur d'une boucle imbriquée dans une autre boucle.
Le résultat n'est pas du tout trop rapide, les boucles explorant les lignes et les colonnes d'une image bitmap.
Comme cela ne fonctionnait pas, j'ai simplifié le problème avec une seule boucle qui affichait le compteur de boucle pour comprendre où était le problème.

Amicalement.