ComboBoxGadget abfragen
Verfasst: 02.11.2005 19:19
Hallo,
ich habe einen Code angefangen und komme nicht weiter mit der Abfrage der Einträge im ComboBoxGadget:
Auch andere Arten der Abfrage habe ich ausprobiert, aber nichts funktioniert. Wie wir's gemacht? Danke.
PB42
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