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

[miniteck27140]

Je vient de faire comme tu a dit donc voila le problème détailler

L'exception System.InvalidCastException n'a pas été gérée par le code utilisateur
Message="La conversion du type 'FileInfo' en type 'String' n'est pas valide."
Source="Microsoft.VisualBasic"
StackTrace:
à Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
à WindowsApplication1.Form1.ListBox1_SelectedIndexChanged(Object sender, EventArgs e) dans C:\Users\patricia\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb:ligne 13
à System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)
à System.Windows.Forms.ListBox.set_SelectedIndex(Int32 value)
à System.Windows.Forms.ListBox.RefreshItems()
à System.Windows.Forms.ListBox.OnDataSourceChanged(EventArgs e)
à System.Windows.Forms.ListControl.SetDataConnection(Object newDataSource, BindingMemberInfo newDisplayMember, Boolean force)
à System.Windows.Forms.ListControl.set_DataSource(Object value)
InnerException:

[Pol63]

ce ne sont pas des string que tu mets dans ta listbox, mais des fileinfo
dans ce cas :

Code :

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

1
2
 
dim img as image = image.fromfile(directcast(listbox1.selecteditem,fileinfo).filename)

[hunteshiva]

mmm ok, attend

j'ais un doute sur le

Code :

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

CStr(ListBox1.SelectedItem)

je ne travaille pas avec des listBox, je vais faire des essaies

[miniteck27140]

D'accord,
Je ne pourrais pas executer car j'ai une erreur :S

Type 'fileinfo' non défini.

J'ai tester de Faire
Imports System.IO
Et la sa me souligne toute la phrases que tu vient de me dire :S

[hunteshiva]

Code :

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

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

la sa sa doit fonctionner,
ton erreur viens effectivement d'ailleurs
avec ce code tu devrais avoir le chemin complet

[miniteck27140]

Alors je viens de tester se que tu vient de donner alors voici se que j'ai pus avoir comme erreur :S

L'exception System.InvalidCastException n'a pas été gérée par le code utilisateur
Message="La conversion du type 'FileInfo' en type 'String' n'est pas valide."
Source="Microsoft.VisualBasic"
StackTrace:
à Microsoft.VisualBasic.CompilerServices.Conversions.ToString(Object Value)
à WindowsApplication1.Form1.ListBox1_SelectedIndexChanged(Object sender, EventArgs e) dans C:\Users\patricia\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb:ligne 13
à System.Windows.Forms.ListBox.OnSelectedIndexChanged(EventArgs e)
à System.Windows.Forms.ListBox.set_SelectedIndex(Int32 value)
à System.Windows.Forms.ListBox.RefreshItems()
à System.Windows.Forms.ListBox.OnDataSourceChanged(EventArgs e)
à System.Windows.Forms.ListControl.SetDataConnection(Object newDataSource, BindingMemberInfo newDisplayMember, Boolean force)
à System.Windows.Forms.ListControl.set_DataSource(Object value)
InnerException:

[hunteshiva]

nah tu a pas mis en commentaire ce que tu avai avant,
chez moi sa marche nikel ....

tu peut mettre un Screenshots de ton code *stp*

[miniteck27140]

Voila le screen

[Pol63]

arretez de chercher plus loin que l'erreur

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

y a pas plus explicite !!!


tu n'as pas fait un directory.getfiles ou alors le getfiles retourne des fileinfo
un fileinfo n'est pas un string tout comme une voiture n'est pas un lapin


edit : je viens de voir ton screenshot, tu ne fais pas directory.getfiles mais directoryinfo.getfiles qui lui retourne des fileinfo avec tous les infos sur les fichiers au lieu de strings avec juste le nom dedans
(d'ailleurs c'était dans le code de ton premier post, au temps pour moi)

donc soit tu changes pour avoir les noms de fichier, soit tu peux lire un cours sur vb.net pour comprendre le non mélange des torchons et des serviettes et la conversion explicite

fileinfo et directoryinfo servent à avoir des infos comme la taille, la date de dernière modification etc...

[miniteck27140]

Je n'est pas très bien compris mes je vois de quel code tu parle

Code :

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

ListBox1.DataSource = New IO.DirectoryInfo("D:\images\").GetFiles

Je doit faire quoi ?
Sa :

Code :

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

ListBox1.DataSource = New IO.directory("D:\images\").GetFiles

Si tu peut m'aider car la eu je vois pas :S

[methylene]

donc soit tu changes pour avoir les noms de fichier, soit tu peux lire un cours sur vb.net pour comprendre le non mélange des torchons et des serviettes et la conversion explicite

'J'aime bien cette vision de la programmation :p.