Sujet Précédent Sujet Suivant

LoadPicture -> 'File Not Found'

Maganor22 Messages postés 22 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 12 mars 2015 - Modifié par Maganor22 le 5/03/2015 à 11:55
Maganor22 Messages postés 22 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 12 mars 2015 - 12 mars 2015 à 10:42

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".

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 :

Set imgI = ImageList1.ListImages.Add(, "open", LoadPicture(App.Path & "\open.bmp"))

Et maintenant l'erreur est : Type Mismatch

Voici le code de programme :

    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

A voir également:

Vb6 loadpicture
LoadPicture ✓ - Forum Visual Basic 6
Vb6 sleep ✓ - Forum Visual Basic 6
Vb6 instr - Forum Visual Basic 6
Charger une image dans une frm (VB6.0) - Forum Visual Basic 6
Vb6 wait ✓ - Forum Visual Basic 6

21 réponses

Réponse 21 / 21

Maganor22 Messages postés 22 Date d'inscription mardi 3 mars 2015 Statut Membre Dernière intervention 12 mars 2015
Modifié par Maganor22 le 12/03/2015 à 10:43

Salut Neob,

Merci de ta réponse.

J'ai éffectivement intégré les images directement dans le ImageList de ma form.

Cependant on retourne au même problème que j'avais ensuite, c'est à dire que mes images sont chargées, mais une autre erreur ce produit.

Erreur "Type Mismatch" sur la ligne "Set nodX" :

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

Essaye de mettre en commentaire les images comme tu m'as dit de faire, je pense que tu devrais avoir la même erreur.

Merci

Discussions similaires

LoadPicture, ça marche comment ?????

LoadPicture d'une image interne

Loadpicture

LoadPicture sous condition

Problème LoadPicture

Votre réponse

Discussions similaires