VB.Net Faire apparaitre une photo dans un picture box Fonction FileStream

Question

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
        
<hr size="2" width="100%" />
          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:	est\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

Mayzz · Answer

Salut,

Essaye simplement

PbLstBox.Image = New Bitmap ("Nom de fichier")

VB.Net Faire apparaitre une photo dans un picture box Fonction FileStream

1 réponse

Votre réponse

Discussions similaires