Code : Tout sélectionner
If OpenWindow(0, 0, 0, 355, 180, "TreeGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
TreeGadget(0, 10, 10, 160, 160) ; liste arborescente standard
TreeGadget(1, 180, 10, 160, 160, #PB_Tree_CheckBoxes|#PB_Tree_NoLines) ; liste arborescente avec cases à cocher + sans lignes reliant les noeuds
For ID = 0 To 1
For a = 0 To 10
AddGadgetItem (ID, -1, "Elément normal "+Str(a), 0, 0) ; si vous souhaitez ajouter une image, utilisez
AddGadgetItem (ID, -1, "Noeud "+Str(a), 0, 0) ; ImageID(x) comme 4ème paramètre
AddGadgetItem (ID, -1, "Sous-élément 1", 0, 1) ; Ceux-là sont au premier sous-niveau
AddGadgetItem (ID, -1, "Sous-élément 2", 0, 1)
AddGadgetItem (ID, -1, "Sous-élément 3", 0, 1)
AddGadgetItem (ID, -1, "Sous-élément 4", 0, 1)
AddGadgetItem (ID, -1, "Fichier "+Str(a), 0, 0) ; sous-niveau 0 à nouveau
Next
Next
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf