; English forum: ; Author: Danilo ; Date: 07. October 2002 ;Danilo, 07. Okt. 02 ;You simply create a ListBox with the styles: ;#LBS_SORT | #LBS_NOINTEGRALHEIGHT | #LBS_HASSTRINGS ;and for adding new stuff you use: ;SendMessage_(handle, #LB_ADDSTRING, 0, String). hWnd = OpenWindow(1,100,100,400,300,#PB_Window_SystemMenu,"ListBox Sort") CreateGadgetList(hWnd) ListViewGadget(1, 10,10,280,280,#LBS_SORT | #LBS_NOINTEGRALHEIGHT | #LBS_HASSTRINGS) StringGadget (2,300,50, 90, 20, "Type here") ButtonGadget (3,320,75, 50, 20, "Add") Repeat Select WaitWindowEvent() Case #PB_EventCloseWindow: End Case #PB_EventGadget Select EventGadgetID() Case 1 ; ListView If EventType() = #PB_EventType_LeftDoubleClick ; show the selected listview entry on doubleclick MessageRequester("INFO",GetGadgetItemText(1,GetGadgetState(1),0),0) EndIf Case 3 ; Button: Add SendMessage_( GadgetID(1), #LB_ADDSTRING, 0, GetGadgetText(2)) EndSelect EndSelect ForEver ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; Executable=C:\GeoWorld\Census2000-US\zips_viewer.exe ; EOF