PureBasic

Code : Tout sélectionner

ElseIf GadgetID = #ajouter_sel
      ;Debug "GadgetID: #ajouter_sel"
      
      For n = 0 To CountGadgetItems(#explorateur_list) - 1 
        If GetGadgetItemState(#explorateur_list, n) = #PB_Explorer_Selected
            AddGadgetItem(#selection_list,-1,GetGadgetItemText(#explorateur_list,n,0))
        EndIf
      Next n

Code : Tout sélectionner

ElseIf GadgetID = #ajouter_tout
      ;Debug "GadgetID: #ajouter_tout"
      For n = 0 To CountGadgetItems(#explorateur_list) - 1 
        AddGadgetItem(#selection_list,-1,GetGadgetItemText(#explorateur_list,n,0))
      Next n

Code : Tout sélectionner

OpenWindow(0, 0, 0, 400, 300, #Pb_Window_SystemMenu | #PB_Window_ScreenCentered, "GetGadgetItemState()")
  CreateGadgetList(WindowID())
    ExplorerListGadget(0, 0, 0, 200, 300, "C:\")
    ListViewGadget(1, 200, 0, 200, 300)
    
Repeat

  Select WindowEvent()
  
    Case #PB_EventGadget
      Select EventGadgetID()
      
        Case 0
          For n = 0 To CountGadgetItems(0)
            
            ; Enfait GetGadgetItemState() pour une ExplorerList, qd un element est selection, il précise aussi si c'est un fichier
            ; ou un repertoire, donc on doit tester les 2 combinaison.. Le hic c'est qu'il trouve 2 evenement sur l'ExplorerList :s
            If GetGadgetItemState(0, n) = (#PB_Explorer_Selected | #PB_Explorer_File) Or GetGadgetItemState(0, n) = (#PB_Explorer_Selected | #PB_Explorer_Directory)
              AddGadgetItem(1, -1, GetGadgetItemText(0, n, 0))
            EndIf
            
          Next
          
        Case 1
          For n = 0 To CountGadgetItems(1)
          
            If GetGadgetItemState(1, n) = 1
              RemoveGadgetItem(1, n)
            EndIf
          
          Next
      
      EndSelect
  
    Case #WM_Close
      Quit = #True
      
  EndSelect
  
Until Quit = #True
End

Code : Tout sélectionner

OpenWindow(0, 0, 0, 400, 300, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "GetGadgetItemState()") 
CreateGadgetList(WindowID()) 
ExplorerListGadget(0, 0, 0, 200, 300, "C:\") 
ListViewGadget(1, 200, 0, 200, 300) 
    
Repeat  
  Select WindowEvent()  
    Case #PB_EventGadget 
      Select EventGadgetID()  
        Case 0 
          Select EventType()
            Case #PB_EventType_LeftClick 
              Element = GetGadgetState(0)
              chaine$=  GetGadgetItemText(0, Element, Colonne)
              If GetGadgetItemState(0, Element) & #PB_Explorer_Directory
                Debug "repertoire - " +chaine$
              Else
                Debug "fichier - " +chaine$
              EndIf
  
            Case 1 
               
          EndSelect 
      EndSelect
      
    Case #WM_CLOSE 
      Quit = #True 
      
  EndSelect  
Until Quit = #True 
End