Drivelist box et recherche de fichier

Signaler
Messages postés
12
Date d'inscription
mercredi 25 janvier 2006
Statut
Membre
Dernière intervention
23 juin 2006
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
bonjour, jai besoin de creer un petit programme qui m'affiche les fichier que j'ai selectionner dans un file list box ! voici le code :

Option Explicit



Private Sub Dir1_Change()
File1.path = Dir1.path
End Sub


Private Sub Drive1_Change()
Dir1.path = Drive1.Drive
End Sub


Private Sub File1_Click()
Dim img As String
img = Dir1.path & " \ " & File1.FileName
picture1.Picture = img

End Sub


Private Sub openfile_Click()
Form2.Visible = False
End Sub

la variable img donne ceci dans un msgbox :
c:\mes documents and settings\image1.bmp
donc elle est bonne !! pourtant a la ligne picture1.picture= img
il me dit l'erreur "type mismatch" ! Pourqoui ?????

merci !!!

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
Oui, c'est normal.
Il faut utiliser picture1.Picture = LoadPicture(NomDuFichier)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)