XProfan

 $H Messages.ph
 $H Windows.ph
cls
var h& = Control("LISTBOX","",~WS_CHILD | ~LBS_OWNERDRAWFIXED,0,0,0,0,%hWnd,999,%hInstance)
mit entsprechenden Styles sind auch Mehrfachauswahl und Sortierung möglich
print ClassOf(h&)
SendMessage(h&,~lb_addstring,0,1000)
SendMessage(h&,~lb_addstring,0,42)
SendMessage(h&,~lb_addstring,0,1234)
SendMessage(h&,~lb_addstring,0,98765)
Einträge können mir LB_SETITEMDATA manipuliert werden.
print SendMessage(h&,~lb_getitemdata,0,0)
print SendMessage(h&,~lb_getitemdata,1,0)
print SendMessage(h&,~lb_getitemdata,2,0)
print SendMessage(h&,~lb_getitemdata,3,0)
waitinput
end