Ich habe hier ein Problem mit GetGadgetText bei dem ComboBoxGadget
Hier mein Testcode
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
an das StringGadget übergeben.
Dann muss ich das ComboBoxGadget löschen und die Einträge neu einlesen.
die Textausgabe erfolgt dann mit
Aus Stringgadget =Eintrag 0
Aus Comboboxgadget =
warum ??
Es steht doch im ComboBoxGadget der gewählte Text drin.
Was mache ich da falsch.
Gruß
gnaps