PureBoard

Verfasst: **12.03.2005 19:25**

Hallo erst mal,
ich würde mich freuen wenn mir jemand helfen könnte!

Also: Wenn ich versuche ein mit einem Button ein "ReadOnly" StringGadget zu verändern, benutze ich den Code: SetGadgetText(#Gadget, Text$). Aber ich weiß nicht wie er funktioniert.
Habe schon viel rumprobiert, aber er klappt einfach nicht. In der Hilfe steht auch nichts genaueres. Würde mich sehr freuen wenn bald einer Antwortet.

Danke schon mal im Vorraus,
Tobi

Verfasst: **12.03.2005 19:36**

kurzes Beispiel:

Code: Alles auswählen

OpenWindow(1, 20, 20, 100, 50, #PB_Window_TitleBar | #PB_Window_SystemMenu, "Test")

CreateGadgetList(WindowID())
ButtonGadget(1, 0,0, 16, 16, "+")
StringGadget(42, 0, 20, 100, 20, "0", #PB_String_ReadOnly)
Repeat
  e = WaitWindowEvent()
  
  Select e
    Case #PB_Event_CloseWindow
      End
    Case #PB_Event_Gadget
      g = EventGadgetID()
      Select g
        Case 1
          a = Val(GetGadgetText(42))
          a + 1
          SetGadgetText(42, Str(a))
      EndSelect
  EndSelect
ForEver