SetGadgetText(#Gadget, Text$)

Anfängerfragen zum Programmieren mit PureBasic.
Tobi
Beiträge: 7
Registriert: 12.03.2005 19:15

SetGadgetText(#Gadget, Text$)

Beitrag von Tobi »

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
Benutzeravatar
freedimension
Admin
Beiträge: 1987
Registriert: 08.09.2004 13:19
Wohnort: Ludwigsburg
Kontaktdaten:

Beitrag von freedimension »

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
Beginne jeden Tag als ob es Absicht wäre!
Bild
BILDblog
Antworten