Bonjour,

J'utilise un programme qui intègre un ftp en VB6.
J'ai un problème avec ce programme avec une ligne de code qui utilise la fonction "LoadPicture".

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture("open.bmp"))
Quand je lance le programme, j'ai une erreur qui me dit : File not Found: 'Open.bmp'
J'ai essayé plusieurs autres codes comme :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ChDir App.Path
Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture(App.Path & "\open.bmp"))
Et maintenant l'erreur est : Type Mismatch

Voici le code du programme :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Dim imgI As ListImage
 
    Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture("open.bmp"))
    Set imgI = ImageList1.ListImages.Add(, "closed", LoadPicture("closed.bmp"))
    Set imgI = ImageList1.ListImages.Add(, "leaf", LoadPicture("leaf.bmp"))
    Set imgI = ImageList1.ListImages.Add(, "root", LoadPicture("root.bmp"))
    TreeView1.ImageList = ImageList1
    TreeView1.Style = tvwTreelinesPictureText
Merci de votre aide