PureBasic

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
  ID = 0
  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
  
  AddKeyboardShortcut(0, #PB_Shortcut_Up, 0)
  AddKeyboardShortcut(0, #PB_Shortcut_Down, 0)
  AddKeyboardShortcut(0, #PB_Shortcut_Left, 0)
  AddKeyboardShortcut(0, #PB_Shortcut_Right, 0)

  Repeat 
    
    ButtonGadget(1,-500,0,20,20,"")  
    
    event =WaitWindowEvent()
    
    Select event
      Case #PB_Event_CloseWindow
        End
      Case #PB_Event_Menu
        Select EventMenu()
          Case 0
            SetActiveGadget(1)
        EndSelect
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
        EndSelect
        
    EndSelect
    
  Until event = #PB_Event_CloseWindow
EndIf