Discussion :

[miniteck27140]

Bonjour (et oui encore moi)
Bon mon projet avance a très grand pas (quoi que :p )
Bon donc je fait se sujet car j'ai encore un petit soucis.
Donc j'ai fait un petit schéma pour vous montrer le système (Schèma plus bas)
Bouton 1
Affiche les image qui se trouve dans le dossier qui se trouve a cette adresse
"D:\Images" dans la
ListBox1
Elle affiche le nom des image et leur extension (ici arrive le moment ou j'ai besoin de vous)
Donc je voudrais quand je clic dessu que sa affiche l'image dans la picturebox1
Script utiliser pour afficher les images :

Code :

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

1
2
ListBox1.DataSource = New IO.DirectoryInfo("D:\images").GetFiles
ListBox1.DisplayMember = "Name"

Voila le Schéma


Merci de votre aide
Ps : Je cherche comment faire sur le net en vains je ne trouve pas. mes je ne lâches

[Pol63]

sur l'evenement selectionchanged du listbox

Code :

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

1
2
3
4
 
dim img as image = image.fromfile(cstr(listbox1.selecteditem))
if monpicturebox.image isnot nothing then monpicturebox.image.dispose
monpicturebox.image = img

[hunteshiva]

As tu essayé les événements suivants?

Code :

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

1
2
3
ListBox1.SelectedIndexChanged
'ou
ListBox1.SelectedValueChanged

[miniteck27140]

Ma listbox1 était déjà en ListBox1.SelectedIndexChanged
J'ai tester

Code :

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

1
2
3
Dim img As Image = Image.FromFile(CStr(ListBox1.SelectedItem))
If PictureBox1.Image IsNot Nothing Then PictureBox1.Image.Dispose()
PictureBox1.Image = img

Sa me dit

La conversion du type 'FileInfo' en type 'String' n'est pas valide.

[hunteshiva]

Ah mon avis le chemin est incomplet ...

Code :

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

Dim img As Image = Image.FromFile("D:\images\" & CStr(ListBox1.SelectedItem))

[hunteshiva]

Au passage, pour balader tes images a coté de ton application
je te laisse une source qui pourrait te servir

Code :

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

lblAttention.Image = Image.FromFile(Application.StartupPath & "\images\attention.png")

[miniteck27140]

Je vient te tester avec le chemin d'accès et c'est toujours pareil
Toujours même problème :S

[hunteshiva]

je vais pas recréer ton programme pour voir ou sa plante ...

ce que je te conseil de faire *dans ListBox1.SelectedIndexChanged*

Code :

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

1
2
        Dim Test As String = "D:\images\" & CStr(ListBox1.SelectedItem)
        MessageBox.Show(Test.ToString)

met le reste en commentaire et essaye de voir si tu a bien le bon chemin