Drivelist box et recherche de fichier

nomadsoulnomad Messages postés 12 Date d'inscription mercredi 25 janvier 2006 Statut Membre Dernière intervention 23 juin 2006 - 27 janv. 2006 à 17:56
cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 - 27 janv. 2006 à 19:34
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

cs_Jack Messages postés 14007 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 78
27 janv. 2006 à 19:34
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)
0