Discussion :

[gpa81]

Bonjour,

Je cherche à coder l'affichage de fichiers images d'un répertoire avec après chaque image affichée la saisie d'une info dans un textbox.

De manière séparée lister les fichiers d'un répertoire pas de problème, gérer la saisie de la TextBox pas de problème.
Mais dès que je code une boucle en listant les fichiers, je n'ai pas trouvé le moyen de stopper la boucle d'affichage après chaque image pour saisir les infos.
Exemple de code :
NomFic = Dir(Lblsource.Text, vbNormal)
While NomFic <> ""
PictureBox1.Image = Image.FromFile(Lblsource.Text & NomFic)
TextBox1.Focus()
Application.DoEvents()
End While
Ce code n'affiche que la dernière image. Si je mets un sleep, je vois bien les images défilées comme un diaporama, mais impossible de saisir quoique ce soit.
Windows XP
Visual Studio 2008 Express.

Merci pour votre aide.

[synergie35]

Il est tout à fait normal que ton code n'affiche que la dernière image car tu écrases ton TextBox et ton PictureBox.

Code :

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

1
2
PictureBox1.Image = Image.FromFile(Lblsource.Text & NomFic)
TextBox1.Focus()

Il faut que tu instancies une nouvelle pictureBox et un nouveau TextBox pour chaque image que tu souhaites afficher (dans le while en gros).

[gpa81]

Bonjour
Merci pour ton aide.
Instancier un nouveau pictureBox et un nouveau TextBox, cela donne quoi en codage en fait ? (Je suis novice en VB, je serais plutôt shell et bash ...)

While NomFic <> ""
PictureBox1 = new PictureBox
TextBox1 = new TextBox
PictureBox1.Image = Image.FromFile(Lblsource.Text & NomFic)
TextBox1.Focus()
Application.DoEvents()
NomFic = Dir()
End While
J'ai essayé ça, mais le focus ne se fait pas sur le TextBox, l'affichage reste bloqué sur la 1ère image, mais la boucle se fait.

[synergie35]

Je n'ai pas totalement compris pourquoi mettre un focus sur la dernière TextBox. Tu souhaites afficher tes images avec une textbox info par image, c'est bien ça ?
Oui, l'instanciation se réalise bien comme cela.

[gpa81]

En fait ce que je veux faire, c'est faire défiler des photos une par une des photos stockées dans un répertoire, et pour chaque photo saisir dans le TextBox un numéro (ce sont des photos de voitures de course auxquelles je donne le ° du concurrent qui me servira pour renommer le fichier photo).