SetActiveGadget()
Syntaxe
SetActiveGadget(#Gadget)Description
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