ProgressBarGadget()

Syntaxe

Resultat = ProgressBarGadget(#Gadget, x, y, Largeur, Hauteur, Minimum, Maximum [, Options])

Crée un gadget 'Barre de progression' (ProgressBar) dans la GadgetList. Si #PB_Any est utilisé pour le paramètre '#Gadget', le numéro du nouveau gadget sera renvoyé dans 'Resultat'. #Gadget est le numéro du gadget renvoyé par la fonction EventGadget(). x et y représentent la position de la barre de progression dans la fenêtre, Largeur et Hauteur, ses dimensions. Les valeurs 'Minimum-Maximum' spécifie l'intervalle qui sera utilisé par la barre de progression.

Le paramètre facultatif 'Options' peut être une combinaison des constantes suivantes:

  #PB_ProgressBar_Smooth  : La progression est précise, au lieu d'utiliser des blocs (Note: sous Windows XP avec
                             le support des skins activé, cette option n'a aucun effet).
  #PB_ProgressBar_Vertical: La barre de progression sera verticale.

Vous pouvez ajouter une 'mini aide' à ce gadget en utilisant GadgetToolTip().

Les fonctions suivantes peuvent être appelées pour agir sur la barre de progression :

- SetGadgetState(): Change la valeur de la barre de progression.
- GetGadgetState(): Renvoie la valeur courante de la barre de progression.
- SetGadgetAttribute() avec les attributs suivants:

  #PB_ProgressBar_Minimum: Change la valeur minimale.
  #PB_ProgressBar_Maximum: Change la valeur maximale. 

- GetGadgetAttribute() avec les attributs suivants:

  #PB_ProgressBar_Minimum: Renvoie la valeur minimale.
  #PB_ProgressBar_Maximum: Renvoie la valeur maximale. 

Ce gadget supporte les commandes SetGadgetColor() et GetGadgetColor() avec les valeurs suivantes comme 'TypeCouleur' (Note: sous Windows XP avec le support des skins activé, la couleur n'a aucun effet):

  #PB_Gadget_FrontColor: Couleur de la barre de progression
  #PB_Gadget_BackColor : Couleur du fond

Exemple:

  If OpenWindow(0, 0, 0, 320, 160, "ProgressBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0))
    TextGadget       (3,  10, 10, 250,  20, "Barre de progression standard  (50/100)", #PB_Text_Center)
    ProgressBarGadget(0,  10, 30, 250,  30, 0, 100)
    SetGadgetState   (0, 50)   ;  change la valeur de la 1ère barre de progression (ID = 0) à 50 sur 100
    TextGadget       (4,  10, 70, 250,  20, "Barre de progression précise  (50/200)", #PB_Text_Center)
    ProgressBarGadget(1,  10, 90, 250,  30, 0, 200, #PB_ProgressBar_Smooth)
    SetGadgetState   (1, 50)   ;  change la valeur de la 2ème barre de progression (ID = 1) à 50 sur 200
    TextGadget       (5, 100,135, 200,  20, "Barre de progression verticale  (100/300)", #PB_Text_Right)
    ProgressBarGadget(2, 270, 10,  30, 120, 0, 300, #PB_ProgressBar_Vertical)
    SetGadgetState   (2, 100)   ; change la valeur de la 3ème barre de progression (ID = 2) à 100 sur 300
    Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
  EndIf

OS Supportés

Tous