Bonjour à tous... J'ai un problème pour faire afficher mes images provenant d'un ListView
Mon problème est que je réussis tres bien a faire apparitre les images dans un PictureBox lorsque je sélectionne les image à partir d'un ListBox. Mais
Quand je clique sur une image de mon ListView, ca fonctionne pas...
C'est ma Variable
MyStream qui vaut rien et donc, rien ne s'affiche dans le PictureBox
Form1.Panel3.Visible =
True Form1.lstvItem.Visible =
False If Choix = True Then
'Dans cette condition tout fonctionne bien, la variable MyStream est remplie
Form1.PbLstBox.Visible =
True Form1.PbLstView.Visible =
False If Form1.rbPhoto_Terrain.Checked = True Then
Dim MyStream
As FileStream = New FileStream(Type_Photo & Repertoire_Photo & "\" & Form1.ListBox_File.SelectedItem, FileMode.Open)
Form1.PbLstBox.SizeMode = PictureBoxSizeMode.StretchImage
Form1.PbLstBox.Image = Image.FromStream(MyStream)
MyStream.Close()
ElseIf Form1.rbPhoto_Archive.Checked = True Then
Dim MyStream
As FileStream = New FileStream(Type_Photo & Form1.ListBox_Mois.SelectedItem & "\" & Repertoire_Photo & "\" & Form1.ListBox_File.SelectedItem, FileMode.Open)
Form1.PbLstBox.SizeMode = PictureBoxSizeMode.StretchImage
Form1.PbLstBox.Image = Image.FromStream(MyStream)
MyStream.Close()
ElseIf Form1.rbArchive.Checked = True Then
Dim MyStream
As FileStream = New FileStream(Type_Photo & Form1.ListBox_Mois.SelectedItem & "\" & Repertoire_Photo & "\" & Form1.ListBox_File.SelectedItem, FileMode.Open)
Form1.PbLstBox.SizeMode = PictureBoxSizeMode.StretchImage
Form1.PbLstBox.Image = Image.FromStream(MyStream)
MyStream.Close()
End If
Else 'C'est ici que ma variable MyStream de se remplie pas Form1.PbLstBox.Visible =
False Form1.PbLstView.Visible =
True 'Ma variable s vaut c:\test\Photo1.jpg Dim s
AsString = Form1.lstvItem.SelectedItems(0).SubItems(1).Text
Dim MyStream
As FileStream =
New FileStream(s, FileMode.Open)
'Ma variable MyStream = Nothing Form1.PbLstView.SizeMode = PictureBoxSizeMode.StretchImage
Form1.PbLstView.Image = Image.FromStream(MyStream)
MyStream.Close()
End if