SetGadgetData()

Syntaxe

SetGadgetData(#Gadget, Valeur)

Associe une valeur à un gadget.

Arguments

#Gadget	Le gadget à utiliser
Value	La valeur à donner.

Valeur de retour

Aucune.

Remarques

Cette valeur peut être récupérée avec GetGadgetData().

Tous les gadgets sont supportés par cette commande.

Exemple

  ; Ce programme utilise SetGadgetData pour associer un indice du tableau Messages()
  ; à chaque bouton. Cela rend la boucle d'évènements plus simple car les gadgets
  ; n'ont plus besoin d'être traités séparément un par un
  ;
  Dim Messages.s(2)
  Messages(0) = "Bonjour"
  Messages(1) = "Salut le Monde"
  Messages(2) = "Rien à dire"
  If OpenWindow(0, 0, 0, 230, 100, "SetGadgetData", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ButtonGadget(0,  10, 10, 80, 20, "Bouton 0"): SetGadgetData(0, 1)
    ButtonGadget(1,  10, 40, 80, 20, "Bouton 1"): SetGadgetData(1, 2)
    ButtonGadget(2,  10, 70, 80, 20, "Bouton 2"): SetGadgetData(2, 1)
    ButtonGadget(3, 100, 10, 80, 20, "Bouton 3"): SetGadgetData(3, 2)
    ButtonGadget(4, 100, 40, 80, 20, "Bouton 4") ; aura la valeur 0 car aucune valeur n'a été attribuée
    ButtonGadget(5, 100, 70, 80, 20, "Bouton 5")  
    Repeat
      Evenement = WaitWindowEvent()
      If Evenement = #PB_Event_Gadget
        Valeur = GetGadgetData(EventGadget())
        MessageRequester("Message", Messages(Valeur))
      EndIf
    Until Evenement = #PB_Event_CloseWindow
  EndIf

Voir aussi

GetGadgetData(), GetGadgetItemData(), SetGadgetItemData()

OS Supportés

Tous