LoadPicture -> 'File Not Found'

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:

---

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:

---

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:

---

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

Salut, bienvenue sur DVP

La syntaxe semble pourtant correcte, MsgBox App.Path désignerait bien le dossier ou sont contenues les .BMPs ?

Salut ProgElecT,

Tout d'abord merci de ta réponse rapide.

Oui la msgbox m'indique bien le chemin vers les images.

J'ai réussi à contourner ce problème via cette solution :

Code:

---

1 2 3 4 5

Dim Chemin1 As String   chemin1 = App.Path & "\open.bmp"   Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture(chemin1))

---

Mais une autre erreur (Type Mismatch) s’enchaîne qui provient de la ligne set nodX :

Code:

---

1 2 3 4 5 6

Dim nodX As Node   If EnumItemNameBag.Count = 0 And strParentKey = txtServer.Text Then Set nodX = TreeView1.Nodes.Add(, tvwFirst, txtServer.Text, txtServer.Text, "root") Exit Sub End If

---

J'ai éssayé d'enlever le " set " devant mais il me dit qu'il manque "set" devant la variable.