XProfan

'Listbox con 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$(&bucle))

endwhile

Waitkey
end
'El Listbox scrollt niemals vertikal. Wenn el número el
'Einträge el Listbox-Höhe übersteigt se en el nächsten Spalte
'(column) más eingetragen.
'Ohne el Message LB_SETCOLUMNWIDTH se el Breite automáticamente kalkuliert