XProfan

'Listbox mit LBS_MULTICOLUMN Style
 $H messages.ph
CLS
Var m& = Control("LISTBOX","",$54110341,10,10,500,400,%hwnd,0,%hinstance,$0200)'LBS_MULTICOLUMN
SendMessage(m&,~LB_SETCOLUMNWIDTH,80,0)

whileloop 0,300

    addstring(m&,"Hallo"+str$(&loop))

endwhile

Waitkey
end
'Die Listbox scrollt niemals vertikal. Wenn die Anzahl der
'Einträge die Listbox-Höhe übersteigt wird in der nächsten Spalte
'(column) weiter eingetragen.
'Ohne die Message LB_SETCOLUMNWIDTH wird die Breite automatisch kalkuliert