PureBoard

Code: Alles auswählen

Declare schleife()

Declare aus()

Global Dim eintrag.s(10)

For i=0 To 2
  eintrag.s(i)="Eintrag "+Str(i)
Next i  

If OpenWindow(0,200,200,220,100,"Combobox",#PB_Window_MinimizeGadget|#PB_Window_SystemMenu)
  StringGadget(1,10,20,200,20,"")
  ComboBoxGadget(2,10,40,200,20,#PB_ComboBox_Editable)
  For i=0 To 2
    AddGadgetItem(2,-1,eintrag.s(i))
  Next i  
  ButtonGadget(4,10,60,100,20,"Test")
  schleife()
EndIf

Procedure schleife()
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 4
            aus()
        EndSelect
    EndSelect
  ForEver
EndProcedure

Procedure aus()
  SetGadgetText(1,GetGadgetText(2))
  ClearGadgetItems(2)
  For i=0 To 2
    AddGadgetItem(2,-1,eintrag.s(i))
  Next i 
  SetGadgetText(2,GetGadgetText(1))
  Debug "Aus Stringgadget ="+GetGadgetText(1)
  Debug "Aus Comboboxgadget ="+GetGadgetText(2)
EndProcedure