XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Combobox per API erstellen
DEF SetWindowLong(3) !USER32, SetWindowLongA
Declare Combo&
Clearlist
Chdir C:Windows
AddFiles **.bmp
SetTrueColor 1
cls rgb(192,192,192)
UseFont ,15,0,0,0,0
SetDialogFont 1
Let Combo& = @Control(Combobox,Liste,$50000102,0,0,0,0,%hwnd,1000,%Hinstance)
Setwindowpos Combo& = 20,20-200,250
Sendmessage(Combo&,$014F,1,0) Mit dieser Message wird die Combobox aufgeklappt
MoveListtoChoice(Combo&)
Waitinput
Fin