Récuperer le chemin d'une image d'une PictureBox

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récuperer le chemin d'une image d'une PictureBox

kahn21

Régularité

Bonjour,

j'essaie de réaliser un petit programme (avec VB express 2005) qui affiche simplement des images comme le fait l'aperçu de Windows.

Pour cela, j'utilise une fonction qui ouvre un OpenFileDialog et affiche dans la PictureBox1 le fichier sélectionné.
Le problème, c'est que je n'arrive pas à récupérer le chemin de l'image pour le réutiliser dans cette même fonction et une autre.

La valeur retournée dans value est toujours vide, je ne comprends pas pourquoi

Code :

Private Sub opengivenfiles()
Dim myStream As IO.Stream
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.InitialDirectory = "c:\"
openFileDialog1.Filter = "Supported files (*.BMP;*.JPG;*.GIF)|*.BMP;*.JPG;*.GIF|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 1
openFileDialog1.RestoreDirectory = True
openFileDialog1.Multiselect = False
If openFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
myStream = openFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Insert code to read the stream here.
ListView1.Visible = False
PictureBox1.Visible = True
PictureBox1.Image = Image.FromStream(myStream)
myStream.Close()
value = Me.PictureBox1.ImageLocation
Me.Text = value
End If
End If
End Sub

Deuxième problème, j'utilise une fonction qui remplit un ListView affiche les images contenues dans un répertoire.
Le problème, c'est que l'affichage est restraint aux fichiers jpeg :

Code :

Dim files() As System.IO.FileInfo = dirInfo.GetFiles("*.jpg" )

J'ai essayé de mettre "*.jpg;*.gif;*.png" comme dans la fonction plus haut mais ça fait planter le programme.

Comment est ce que je pourrais faire ?

Merci

Publicité

kahn21

Régularité

ingenieurcesi

tu peux peut etre utiliser ca

Sub Macro2()
Dim Myarray(1, 150) As String
Set fs = Application.FileSearch
With fs
.LookIn = "C:\"
.SearchSubFolders = False
.Filename = "*.xls"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Myarray(1, i) = .FoundFiles(i)
MsgBox (Myarray(1, i))
Next i
End If
End With
End Sub

kahn21

Régularité

Merci

mais j'ai utilisé une autre méthode qui fonctionne aussi bien.

ingenieurcesi

ouais et ta fais commen?

kahn21

Régularité

Code :

For Each d In System.IO.Directory.GetDirectories(value)
If i = 0 Then
d2 = System.IO.Directory.GetParent(d).ToString
i = i + 1
End If
If Not (d Is Nothing) Then
Dim f2 As String
For Each f2 In System.IO.Directory.GetFiles(d)
Dim ext As String = New System.IO.FileInfo(f2).Extension
If ext = ".jpg" Or ext = ".gif" Or ext = ".bmp" Or ext = ".png" Then
count += 1
Dim item As New ListViewItem
item.Text = f2
item.SubItems.Add((5).ToString)
ListView1.Items.Add(item)
End If
Next
End If
Next
Dim f As String
If Not (d2 Is Nothing) Then
For Each f In System.IO.Directory.GetFiles(d2)
Dim ext As String = New System.IO.FileInfo(f).Extension
If ext = ".jpg" Or ext = ".gif" Or ext = ".bmp" Or ext = ".png" Then
count += 1
Dim item As New ListViewItem
item.Text = f
item.SubItems.Add((5).ToString)
ListView1.Items.Add(item)
End If
Next
End If

J'ai séparé le chargement de la liste en deux parties puisque seules les images des sous-dossiers étaient chargés.
Le seul problème c'est que si le dossier sélectionné ne contient pas de sous-dossier, le programme plante.
Mais bon, j'y connais pas grand chose en VB donc ça tient plus du bricolage que de la programmation.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Récuperer le chemin d'une image d'une PictureBox

Sujets relatifs
Convertir un chemin windows en chemin linux	Récupérer le résultat d'une fonction javascript dans variable php
Récupérer la console sous Visual Studio	redimension image automatique
afichage d'une image	Récupérer la date et l'heure du système en javascript
alignement texte et image	Problème pour fixer l'image de fond
Background image	Suprimé un fichier totalement du dd, sans pouvoire le récupérer
Plus de sujets relatifs à : Récuperer le chemin d'une image d'une PictureBox

Page générée en 0.065 secondes