SetGadgetData()

Syntax

SetGadgetData(#Gadget, Wert)

Speichert den angegebenen 'Wert' mit dem '#Gadget'. Dieser Wert kann später mit GetGadgetData() wieder ausgelesen werden. Dies ermöglicht das Zuweisen eines individuell vergebenen Wertes zu jedem Gadget.

Dieser Befehl arbeitet mit allen PureBasic Gadgets.

Beispiel:

  ; Dieser Code verwendet SetGadgetData zum Verknüpfen eines Indexes für das Messages()
  ; Array mit jedem Schalter. Dies macht eine Ereignisschleife einfacher, da nicht 
  ; jedes Gadget separat behandelt werden muss.
  ;
  Dim Messages.s(2)
  Messages(0) = "Good morning"
  Messages(1) = "Hello World"
  Messages(2) = "Nothing to say"
  If OpenWindow(0, 0, 0, 190, 100, "SetGadgetData", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0,  10, 10, 80, 20, "Button"): SetGadgetData(0, 1)
    ButtonGadget(1,  10, 40, 80, 20, "Button"): SetGadgetData(1, 2)
    ButtonGadget(2,  10, 70, 80, 20, "Button"): SetGadgetData(2, 1)
    ButtonGadget(3, 100, 10, 80, 20, "Button"): SetGadgetData(3, 2)
    ButtonGadget(4, 100, 40, 80, 20, "Button") ; wird den Wert 0 haben, da noch nichts festgelegt wurde
    ButtonGadget(5, 100, 70, 80, 20, "Button")  
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Gadget
        Value = GetGadgetData(EventGadget())
        MessageRequester("Message", Messages(Value))
      EndIf
    Until Event = #PB_Event_CloseWindow
  EndIf

Unterstützte OS

Alle