GetGadgetText ComboBoxGadget

Anfängerfragen zum Programmieren mit PureBasic.
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

GetGadgetText ComboBoxGadget

Beitrag von gnaps »

Hallo Forum,

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
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
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: GetGadgetText ComboBoxGadget

Beitrag von Kiffi »

kein Problem hier:

Eintrag 0 gewählt. Button gedrückt:
Aus Stringgadget =Eintrag 0
Aus Comboboxgadget =Eintrag 0
Eintrag 1 gewählt. Button gedrückt:
Aus Stringgadget =Eintrag 1
Aus Comboboxgadget =Eintrag 1
Eintrag 2 gewählt. Button gedrückt:
Aus Stringgadget =Eintrag 2
Aus Comboboxgadget =Eintrag 2
Oder habe ich Dich falsch verstanden?

Grüße ... Peter
Hygge
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

Re: GetGadgetText ComboBoxGadget

Beitrag von gnaps »

Hallo Kiffi,

Danke für die schnelle Antwort.

Du hast nichts falsch verstanden.

Bei mir kommt

Eintrag 0 gewählt Button gedrückt
Aus Stringgadget =Eintrag 0
Aus Comboboxgadget =

Eintrag 1 gewählt Button gedrückt
Aus Stringgadget =Eintrag 1
Aus Comboboxgadget =

Eintrag 2 gewählt Button gedrückt
Aus Stringgadget =Eintrag 2
Aus Comboboxgadget =

bei mit kommt kein Text vom Comboboxgadget

gruss
gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

Re: GetGadgetText ComboBoxGadget

Beitrag von gnaps »

Hi,

habe jetzt auch Verion 5.70 installiert

gleiches Problem

es kommt kein Text vom Comboboxgadget

gruss
gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
Andesdaf
Moderator
Beiträge: 2658
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Re: GetGadgetText ComboBoxGadget

Beitrag von Andesdaf »

bei mir wie bei Kiffi - alles läuft, wie es sollte. (PB 5.71)
Win11 x64 | PB 6.00 (x64)
gnaps
Beiträge: 151
Registriert: 02.09.2008 13:02

Re: GetGadgetText ComboBoxGadget

Beitrag von gnaps »

Hallo zusammen,

jetzt Verion 5.71 installiert

Problem behoben

Danke für Eure Hilfe

gruss
gnaps
PureBasic Vollversion V 5.71 für Windows - Windows 10 (64)
Benutzeravatar
Kiffi
Beiträge: 10621
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: GetGadgetText ComboBoxGadget

Beitrag von Kiffi »

interessant! Habe es gerade auch mal mit 5.70 ausprobiert.

Selber Fehler wie bei Dir, gnaps.

Grüße ... Peter
Hygge
Antworten