Drivlistbox
Résolu
gilmerl
Messages postés
30
Date d'inscription
vendredi 17 décembre 2004
Statut
Membre
Dernière intervention
2 mai 2007
-
24 août 2005 à 19:32
EMSIEN Messages postés 194 Date d'inscription lundi 26 juillet 2004 Statut Membre Dernière intervention 11 juin 2009 - 24 août 2005 à 21:37
EMSIEN Messages postés 194 Date d'inscription lundi 26 juillet 2004 Statut Membre Dernière intervention 11 juin 2009 - 24 août 2005 à 21:37
1 réponse
EMSIEN
Messages postés
194
Date d'inscription
lundi 26 juillet 2004
Statut
Membre
Dernière intervention
11 juin 2009
24 août 2005 à 21:37
24 août 2005 à 21:37
ben je te donne un code que j'ai utilisé pour créer comme un parcourir
et pour afficher l'image séléctionné sur un controle image,tu auras
besoin de créer une form avec un DirListBox,Un DriveListBox et un
FileListBox ainsi qu'un objet image et sansa changer leur nom pour que
ce code puisse marcher
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
'L' utilisateur à cliqué sur l' objet
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
'L'utilisateur a sélectionné l' objet
Image1.Picture = LoadPicture(File1.Path & "" & File1.FileName)
End Sub
j'espère que j'étais clair et que ceci te servira à quelque chose.
Bonne chance
et pour afficher l'image séléctionné sur un controle image,tu auras
besoin de créer une form avec un DirListBox,Un DriveListBox et un
FileListBox ainsi qu'un objet image et sansa changer leur nom pour que
ce code puisse marcher
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
'L' utilisateur à cliqué sur l' objet
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_Click()
'L'utilisateur a sélectionné l' objet
Image1.Picture = LoadPicture(File1.Path & "" & File1.FileName)
End Sub
j'espère que j'étais clair et que ceci te servira à quelque chose.
Bonne chance