Code: Select all
Global Window_0
Global lstSelection, lstDisplay, btnCopy
Window_0 = OpenWindow(#PB_Any, x, y, 390, 280, "List View Multiselect", #PB_Window_SystemMenu)
lstSelection = ListViewGadget(#PB_Any, 20, 10, 140, 240, #PB_ListView_MultiSelect)
lstDisplay = ListViewGadget(#PB_Any, 230, 10, 140, 240)
btnCopy = ButtonGadget(#PB_Any, 170, 70, 50, 20, "Copy")
;Add Items to lstSelection
For i = 1 To 10
AddGadgetItem(lstSelection,-1,"Item " + Str(i))
Next i
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_Gadget
Select EventGadget()
Case btnCopy
;Clear display list
ClearGadgetItems(lstDisplay)
;Copy selected items to display list
For i = 0 To 9
If GetGadgetItemState(lstSelection,i) = 1
AddGadgetItem(lstDisplay,-1,GetGadgetItemText(lstSelection,i))
EndIf
Next i
EndSelect
EndSelect
Until event = #PB_Event_CloseWindow
