SetActiveGadget()

Syntaxe

SetActiveGadget(#Gadget)

Active un gadget et lui donne le focus clavier.

Arguments

#Gadget

Le gadget à activer. La valeur '-1' supprime le focus clavier de la fenêtre active.

Valeur de retour

Aucune.

Remarques

L'activation d'un gadget lui permet de devenir l'objet courant et de recevoir les messages et la gestion des touches.

Exemple

  If OpenWindow(0, 0, 0, 270, 140, "SetActiveGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) 
    StringGadget  (0, 10, 10, 250, 25, "bla bla...")
    ComboBoxGadget(1, 10, 40, 250, 25)
    For a = 1 To 5 : AddGadgetItem(1, -1, "Elément de liste déroulante " + Str(a)) : Next
    SetGadgetState(1, 2)                ; sélectionne le troisième élément (la numérotation commence à 0)
    ButtonGadget  (2, 10,  90, 250, 20, "Activer le gadget de saisie de texte")
    ButtonGadget  (3, 10, 115, 250, 20, "Activer la liste déroulante")
    Repeat
      Evenement = WaitWindowEvent()
      If Evenement = #PB_Event_Gadget
        Select EventGadget()
          Case 2 : SetActiveGadget(0)   ; Activer le gadget 'saisie de texte'
          Case 3 : SetActiveGadget(1)   ; Activer la liste déroulante
        EndSelect
      EndIf
    Until Evenement = #PB_Event_CloseWindow
  EndIf

Voir aussi

GetActiveGadget(), SetActiveWindow()

OS Supportés

Tous