GetGadgetText ComboBoxGadget
Verfasst: 23.01.2020 22:45
Hallo Forum,
Ich habe hier ein Problem mit GetGadgetText bei dem ComboBoxGadget
Hier mein Testcode
Wähle ich jetzt einen Eintrag aus dem ComboBoxGadget und drücke den Button "test" dann wird der Text aus dem ComboBoxGadget
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
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