drivelist box et recherche de fichier

Question

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 !!!

cs_Jack · Answer

Salut
Oui, c'est normal.
Il faut utiliser   picture1.Picture = LoadPicture(NomDuFichier)

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Drivelist box et recherche de fichier

1 réponse

Discussions similaires