Récuperer le chemin d'une image d'une PictureBox - VB/VBA/VBS - Programmation
Marsh Posté le 28-01-2007 à 12:29:43
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
Marsh Posté le 28-01-2007 à 18:20:14
Merci
mais j'ai utilisé une autre méthode qui fonctionne aussi bien.
Marsh Posté le 28-01-2007 à 18:41:58
Code :
|
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.
Marsh Posté le 26-01-2007 à 18:31:34
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
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 :
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