XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Choicebox editierbar und mit anderer Höhe und Schriftart
USERMESSAGES $0010
Declare ComboBox1&,ComboBox2&,CBFont&
Windowstyle 31+512
Windowtitle Combobox
Window 0,0-640,440
LET CBFont&=@Create(Font,Times New Roman,12,6,0,0,0)
LET ComboBox1&=@Control(ComboBox,,$40000000+$10000000+$200000+$100000+2+$40,0,100,150,180,%HWND,2615,%HINSTANCE)
LET ComboBox2&=@Control(ComboBox,,$40000000+$10000000+$200000+$100000+2+$40,190,100,150,180,%HWND,2615,%HINSTANCE)
SetFont ComboBox2&,CBFont&
@ADDCHOICE(ComboBox2&,Claudia)
@ADDCHOICE(ComboBox2&,Andreas)
@ADDCHOICE(ComboBox2&,Chris)
@sendmessage(ComboBox2&,$14E,2,0)Handle der Combobox,CB_SETCURSEL Message,Index des Eintrags, 0

While %UMESSAGE<>$0010

    Waitinput

Wend

@destroywindow(ComboBox1&)
@destroywindow(ComboBox2&)
Deleteobject CBFont&