PureBoard

Verfasst: **09.09.2005 13:55**

Hallo,
leider bring ich das nicht fertig, ein ComboBoxGadget automatisch auszuwerten, so wie das zb. bei Word die Größe automatisch geändert wird, stelle ich mir das vor.
Hat jemand ein Tipp wie ich das anstellen kann?

Code: Alles auswählen

  If OpenWindow(0,0,0,270,140,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ComboBoxGadget") And CreateGadgetList(WindowID(0))
  
    ComboBoxGadget(1,10,40,250,100)
    For a=1 To 5 : AddGadgetItem(1,-1,"ComboBox item "+Str(a)) : Next

 
    Repeat
      Select EventWindowID() 
        Case #PB_Event_Gadget
          If EventWindowID() = 1
          Debug "test"
          EndIf
       EndSelect
    Until WaitWindowEvent()=#PB_Event_CloseWindow
    
  EndIf

Grüße,
Simon

Verfasst: **09.09.2005 14:11**

die Event-Schleife ist murksig

So sollte es funktionieren:

Code: Alles auswählen

  Repeat
    EventID = WaitWindowEvent()
    Select EventID
      Case #PB_Event_Gadget
        If EventGadgetID() = 1
          Debug "test"
        EndIf
    EndSelect
  Until EventID=#PB_Event_CloseWindow

Verfasst: **09.09.2005 15:24**

dankeschön Kiffi,

bei mir sieht das jetzt fertig so aus:

Code: Alles auswählen

  If OpenWindow(0,0,0,270,140,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"ComboBoxGadget") And CreateGadgetList(WindowID(0))
  
    ComboBoxGadget(1,10,40,250,100)
    For a=1 To 5 : AddGadgetItem(1,-1,"ComboBox item "+Str(a)) : Next
    auto = GetGadgetState(1)

    Repeat 
    EventID = WaitWindowEvent() 
    Select EventID 
      Case #PB_Event_Gadget 
        If EventGadgetID() = 1
          If auto = GetGadgetState(1)
          Else 
          auto = GetGadgetState(1)
          Debug auto
          EndIf
          
          

        EndIf 
    EndSelect 
  Until EventID=#PB_Event_CloseWindow 
    
  EndIf

PureBoard

ComboBoxGadget - Ergebnis automatisch auswerten

ComboBoxGadget - Ergebnis automatisch auswerten