Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Treeview

4 réponses
Avatar
Brat'ac
Bonjour,
Je m'essaie aux Treeview, cela fonctionne sauf que je n'arrive pas Í 
mettre une image

----- Le code -------------------------------------
Public MesImages As New ImageList

Private Sub UserForm_Initialize()

MesImages.ListImages.Clear
Img1 = "C:\image.ico"
MesImages.ListImages.Add , "Image1", LoadPicture(Img1)

With Me.TreeView1
.Nodes.Add Key:="A1", Text:="UN" , Image:="Image1"
.Nodes.Add Key:="A2", Text:="DEUX"
End With
End Sub
--------------------------------------------------------
J'ai l'erreur 35613 "Le contrÍ´le ImageList doit être initialisé avant
utilisation"
Je galére
Merci de l'aide

4 réponses

Avatar
MichD
Le 11/01/21 Í  12:51, Brat'ac a écrit :
Bonjour,
Je m'essaie aux Treeview, cela fonctionne sauf que je n'arrive pas Í 
mettre une image
----- Le code -------------------------------------
Public MesImages As New ImageList
Private Sub UserForm_Initialize()
   MesImages.ListImages.Clear
   Img1 = "C:image.ico"
   MesImages.ListImages.Add , "Image1", LoadPicture(Img1)
       With Me.TreeView1
         .Nodes.Add Key:="A1", Text:="UN" , Image:="Image1"
         .Nodes.Add Key:="A2", Text:="DEUX"
       End With
End Sub
--------------------------------------------------------
J'ai l'erreur 35613 "Le contrÍ´le ImageList doit être initialisé avant
utilisation"
Je galére
Merci de l'aide

Bonjour,
Regarde ici, un exemple sur ce site concernant ton message d'erreur.
https://www.vbforums.com/showthread.php?231367-Initialize-An-Image-List-TreeView-Error-(Resolved)
MichD
Avatar
Brat'ac
MichD a présenté l'énoncé suivant :
Le 11/01/21 Í  12:51, Brat'ac a écrit :
Bonjour,
Je m'essaie aux Treeview, cela fonctionne sauf que je n'arrive pas Í  mettre
une image
----- Le code -------------------------------------
Public MesImages As New ImageList
Private Sub UserForm_Initialize()
   MesImages.ListImages.Clear
   Img1 = "C:image.ico"
   MesImages.ListImages.Add , "Image1", LoadPicture(Img1)
       With Me.TreeView1
         .Nodes.Add Key:="A1", Text:="UN" , Image:="Image1"
         .Nodes.Add Key:="A2", Text:="DEUX"
       End With
End Sub
--------------------------------------------------------
J'ai l'erreur 35613 "Le contrÍ´le ImageList doit être initialisé avant
utilisation"
Je galére
Merci de l'aide

Bonjour,
Regarde ici, un exemple sur ce site concernant ton message d'erreur.
https://www.vbforums.com/showthread.php?231367-Initialize-An-Image-List-TreeView-Error-(Resolved)
MichD

Merci du retour,
j'avais trouvé le site, mais je ne m'en sors pas pour autant.
l'Í¢ge surement :-[
Avatar
Brat'ac
MichD a pensé très fort :

Bon finalement j'ai réussi Í  m'en sortir grÍ¢ce au site suivant
https://silkyroad.developpez.com/VBA/ImageList/
Merci,et bonne soirée
Avatar
MichD
https://silkyroad.developpez.com/VBA/ImageList/

Excellent site pour ceux désirant insérer des images dans un treeview.
Merci.
MichD