[R] Compteur

[touslesmatins]

Bonjour,
Besoin d'aide pour corriger le script "compteur".
Voilà ,ce compteur incremente ou enleve manuellement 1 au compteur via des boutons.
Ce que je souhaiterais faire, c'est que le nombre apparaisse non pas à gauche comme dans le script mais caler le nombre à droite. Et beaucoup plus difficile je souhaiterais qu il apparaisse sous cette forme : 001 et non pas 1.
Est ce possible ? et si oui qui qq1 peut m'aider ?
Merci

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
        
        Local $nMsg, $i,$font
        $GUI1 = GUICreate("COMPTEUR", 100, 100, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_MAXIMIZE))
        
        $btnCountplus1 = GUICtrlCreateButton("Ajoute",10,145,70,30)
        $btnCountmoins1 = GUICtrlCreateButton("Retire",10,185,70 ,30)

        GUICtrlCreateLabel("Compteur: ", 10,50)
        
        $font = "High speed"
        GUISetFont(55, 100,"", $font) 
    
        $labelCounter1 = GUICtrlCreateLabel("", 92, 132, 902, 100)
        
        GUICtrlSetColor(-1,65280)   ; vert fluo
        GUICtrlSetBkColor(-1, 0)
        GUISetState(@SW_SHOW)    

            While 1
                $nMsg = GUIGetMsg()
                Switch $nMsg
                    Case $btnCountplus1
                        $i=$i+1
                        GUICtrlSetData($labelCounter1,$i)
                        sleep(100)
                    Case $btnCountmoins1 
                        $i=$i-1
                        GUICtrlSetData($labelCounter1,$i)
                        sleep(100)  
                    Case $GUI_EVENT_CLOSE
                        Exit

                EndSwitch
            WEnd

[orax]

Il reste un problème avec Stringformat : ça n'affiche pas 3 zéros dans les nombres négatifs.

► Afficher le texte

Code : Tout sélectionner

$labelCounter1 = GUICtrlCreateLabel("", 92, 132, 902, 100, $ES_RIGHT) ; pour aligner à droite
GUICtrlSetData($labelCounter1, StringFormat("%03d", $i)) ; pour les 3 zéros

[touslesmatins]

Merci beaucoup oRAX. Pour mon utilisation je n ai pas besoin de traiter des nombres negatifs.
Par contre j'ai ce message..

► Afficher le texte

$labelCounter1 = GUICtrlCreateLabel("", 350, 35, 602, 170, $ES_RIGHT) ; pour aligner à droite

WARNING: $ES_RIGHT: possibly used before declaration.
$labelCounter1 = GUICtrlCreateLabel("", 350, 35, 602, 170, $ES_RIGHT)[/spoiler]

[Toiinou]

Il faut rajouter cet include: #include <EditConstants.au3> .

Bonne journée.

[touslesmatins]

C'est parfait Toiinou, merci.