PureBasic Forums - English

Code: Select all

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