Discussion :

[Maganor]

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

[ProgElecT]

Salut, bienvenue sur DVP

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

[Maganor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.