PureBasic Forums - English

Code: Select all

   Select EventType()
       Case #Explorerlistgadget
           String$ = GetGadgetText(#Explorerlistgadget)
   Endselect

Code: Select all

If OpenWindow(0, 300, 200, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu)
  ExplorerListGadget(0, 10, 10, 380, 180, "c:\")
  Repeat
    ev=WaitWindowEvent()
    If ev=#PB_Event_Gadget And EventType()=#PB_EventType_Change
      i=GetGadgetState(0)
      Debug GetGadgetItemText(0,i)
    EndIf
  Until ev=#PB_Event_CloseWindow
EndIf

Code: Select all

If OpenWindow(0, 300, 200, 400, 200, "ExplorerListGadget", #PB_Window_SystemMenu)
  ExplorerListGadget(0, 10, 10, 380, 180, "c:\")
  Repeat
    ev=WaitWindowEvent()
    If ev=#PB_Event_Gadget And EventType()=#PB_EventType_Change
      i=GetGadgetState(0)
      Debug GetGadgetText(0)+GetGadgetItemText(0,i)
    EndIf
  Until ev=#PB_Event_CloseWindow
EndIf