ComboBoxGadget abfragen

[PB42]

Hallo,

ich habe einen Code angefangen und komme nicht weiter mit der Abfrage der Einträge im ComboBoxGadget:

Code: Alles auswählen

OpenWindow(0,0,0,400,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ButtonImage") And CreateGadgetList(WindowID(0)) 

LoadImage(0, "Sprite\schwarz.bmp") 
LoadImage(1, "Sprite\braun.bmp") 
LoadImage(2, "Sprite\rot.bmp") 
LoadImage(3, "Sprite\orange.bmp") 
LoadImage(4, "Sprite\gelb.bmp") 
LoadImage(5, "Sprite\grün.bmp") 
LoadImage(6, "Sprite\blau.bmp") 
LoadImage(7, "Sprite\violett.bmp") 
LoadImage(8, "Sprite\grau.bmp") 
LoadImage(9, "Sprite\weiß.bmp") 
LoadImage(10, "Sprite\silber.bmp") 
LoadImage(11, "Sprite\gold.bmp") 

ContainerGadget(0,100,100,200,50,#PB_Container_Raised) 
ButtonImageGadget(1,42,0,15,50,UseImage(0 + x)) 
ButtonImageGadget(2,67,0,15,50,UseImage(5)) 
ButtonImageGadget(3,92,0,15,50,UseImage(7)) 
ButtonImageGadget(4,117,0,15,50,UseImage(8)) 
ButtonImageGadget(5,150,0,15,50,UseImage(3)) 
CloseGadgetList() 

ComboBoxGadget(6,10,10,60,100) 
AddGadgetItem(6,-1,"schwarz") 
AddGadgetItem(6,-1,"braun") 
AddGadgetItem(6,-1,"rot") 

TextGadget(7,110,10,50,20,"",#PB_text_border) 

Repeat 
eventID = WaitWindowEvent() 
GadgetID = EventGadgetID() 
Select GadgetID 

Case 6 
If GetGadgetItemText(6,-1,Spalte) = "schwarz" 
SetGadgetText(7,"schwarz") 
EndIf 
EndSelect 

Until WaitWindowEvent()=#PB_Event_CloseWindow  

Auch andere Arten der Abfrage habe ich ausprobiert, aber nichts funktioniert. Wie wir's gemacht? Danke.

PB42

[AND51]

Bin grad nicht ganz bei der Sache, aber probiers mal mit GetGadgetText() oder GetGadgetItem(); ansonsten schau in der Hilfe bei ComboboxGadget nach, wie man das Ding abfragen kann.

[PB42]

Mit GetGadgetText komme ich jetzt weiter, vorhin komischerweise nicht. Mein Rechner war halt wieder launisch.

[KeyKon]

@PB42: Ich kanns nicht oftgenug sagen, aber ich würde Code immer einrücken, bei größeren Geschichten verliert man sonst leicht den Überblick...

KeyKon

[PB42]

Text einrücken kann man natürlich machen, aber ich persönlich finde noch viel wichtiger persönliche Notitzen hinter den einzelnen Programmteilen.

PB42

[Zaphod]

Die Einrückung sollte die Struktur des Codes wiedergeben, das ist die elementarste Regel für akzeptablen Programmierstil. Das finde ich persönlich noch wichtiger als Kommentare. Wenn ich ein stück Code ohne Einrückung sehe, dann sehe ich ihn mir in der Regel nicht genauer an.