Programme pour loader images (AIDEZ MOI)

Question

J'avais ecris pour la meme chose et je devais repondre mais j'ai oublier ou le mot etait.

Dans mon programe jai deux forms : 1 pour visualiser les images et un autre avec un drivelistbox, un directorylistbox, et un filelistbox pour ouvrir les fichiers.

Mon prbleme est que je veux ouvrir des fichiers dans un  dossier et je veux pouvoir les ouvrir aussi depuis un disque tout simple comme "C:". Exemple : les fichiers de C:\My Documents\Mes Images et les fichiers de C:\ tout court.
Jai utiliser ce code-ci:

Dir1.Path = "C:"
Form1.Image2.Picture = LoadPicture((Dir1.Path) + (File1.FileName))

mais ceci ne me permet de loader des images depuis C:\ tout court. J'aimerais faire depuis un dossier aussi.

Si vous pouvez maider, merci beacoup.

pcpunch · Answer

Ben je vois pas vraiment le probleme mais si ca peu t'aider voila comment je ferai :

Private Sub Dir1_Change()
File1.Path = Dir1.Path ' actualisation de file1
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive 'actualisation de dir1
End Sub

Private Sub File1_Click()
Dim chemin As String
'gestion du chemin de l'image
If Right(Dir1.Path, 1) <> "" Then
chemin = Dir1.Path & "" & File1.FileName
Else
chemin = Dir1.Path & File1.FileName
End If
Form2.Show
Form2.Image1.Stretch = True
Form2.Image1.Picture = LoadPicture(chemin)
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg;*.bmp;*.gif" 'affichage que les extentions
End Sub

Programme pour loader images (AIDEZ MOI)

1 réponse

Discussions similaires