XProfan

'Listbox avec LBS_MULTICOLUMN Style
 $H messages.ph
CLS
Var m& = Contrôle("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
'qui Listbox scrollt niemals vertikal. si le nombre qui
'Einträge qui Listbox-Hauteur übersteigt wird dans qui prochain Spalte
'(column) plus eingetragen.
'sans qui Message LB_SETCOLUMNWIDTH wird qui Breite automatisch kalkuliert