AutoIt Français

Code : Tout sélectionner

#include <GUIConstantsEx.au3>

; Script : Exemple de barre de progression qui change de couleur en fonction du % du curseur
; Script original : http://www.autoitscript.com/forum/topic ... _p__634438 (auteur : RomanK)
; Réécrit et complété par scorp84 (modification simplifiée de la taille et de la position de la barre de progression
; et ajout du changement de couleur suivant la position du curseur)
; 28/12/11


GUICreate("Progress bar colorée selon %", 350, 50) ; GUI

$prog_left=10       ; Position en x de la barre de progression
$prog_top=10        ; Position en y de la barre de progression
$prog_width=300     ; Longueur de la barre de progression
$prog_height=15     ; Largeur de la barre de progression (recommandé : 15 pour une barre équivalente à une progressbar

$prog_curseur = 0   ; Raz valeur curseur

$prog_frame = GUICtrlCreateLabel("", $prog_left, $prog_top, $prog_width, $prog_height+2, 0x12) ; Cadre de la barre de progression

$progress = GUICtrlCreateLabel("", $prog_left+1, $prog_top+1, 0, $prog_height); Barre de progression / $prog_left+1 et $prog_top+1 pour voir le cadre autour

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) ; Fond transparent pour la barre de progression

$label_pourc = GUICtrlCreateLabel("", $prog_left, $prog_top+($prog_height/2)-5, $prog_width, 20, 0x01); $prog_top+($prog_height/2)-5 pour mettre les % au milieu

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT); Fond du label % transparent

GUISetState() ; Affichage de la GUI


While 1

    $prog_curseur=$prog_curseur+1 ; Augmente la valeur du curseur de 1
    GUICtrlSetPos($progress, $prog_left+1, $prog_top+1, $prog_curseur) ; Augmente la position du curseur
    GUICtrlSetData($label_pourc, "  " & Round($prog_curseur / $prog_width * 100, 0) & "%" ) ; Indique le %

    Switch $prog_curseur

        Case 1 ; Barre de progression verte de 0 à 50 %
            GUICtrlSetBkColor($progress, 0x00FF00) ; Vert

        Case ($prog_width/2)+1 ; Barre de progression orange de 50 à 75 %
            GUICtrlSetBkColor($progress, 0xFF9900) ; Orange

        Case ($prog_width*3/4)+1 ; Barre de progression rouge de 75 à 100 %
            GUICtrlSetBkColor($progress, 0xFF0000) ; Rouge

        Case $prog_width ; Sortie de la boucle à 100 %

            Sleep(1000) ; Pause avant sortie de la boucle (Facultatif)

            ExitLoop ; Sortie de la boucle

    EndSwitch

    Sleep(100) ; Pause
WEnd

Exit

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

GUICreate("test", 320, 120)
$input = GUICtrlCreateInput("", 10, 5, 300, 20)
GUISetState()
GUIRegisterMsg($WM_COMMAND, "_CheckInput") 

While 1
  Switch GUIGetMsg()
      Case $GUI_EVENT_CLOSE
           Exit
  EndSwitch
WEnd

Func _CheckInput($hWnd, $Msg, $wParam, $lParam)  ;WM_COMMAND
Switch BitAND($wParam, 0x0000FFFF)
	Case $input
		If BitShift($wParam, 16) = $EN_UPDATE Then
			If Number(GuiCtrlRead($input)) < 10 Then GUICtrlSetColor($input, 0x000000)
			If Number(GuiCtrlRead($input)) > 9 Then GUICtrlSetColor($input, 0xff0000)
			If Number(GuiCtrlRead($input)) > 19 Then GUICtrlSetColor($input, 0x00ff00)
		EndIf
EndSwitch
  Return 'GUI_RUNDEFMSG'
EndFunc