[R] Guictrlcreateslider

[AsHardstyle]

Bonsoir,

Oui voila donc je vous explique mon probleme, je souheterai créer par exemple :
un slider de 0 à 10 et en déplacant le curseur je voudrai qu'il passe par (0 > 0,5 > 1 ...).
Mais je ne sais pas comment m'y prendre.

As_Hardstyle.

[Tlem]

Quelque chose comme ceci :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form = GUICreate("Form1", 587, 128, 192, 124)
$Slider = GUICtrlCreateSlider(8, 16, 574, 53, BitOR($TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
$Label = GUICtrlCreateLabel("0", 272, 88, 66, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox = GUICtrlCreateCheckbox("Pas 0.5", 16, 88, 97, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case - 11
            If BitAND(GUICtrlRead($Checkbox), $GUI_CHECKED) = $GUI_CHECKED Then
                $Sval = GUICtrlRead($Slider)
                Switch Number(StringRight($Sval, 1))
                    Case 0
                        $Dec = 0

                    Case 1 To 5
                        $Dec = 0.5

                    Case 6 To 9
                        $Dec = 1.0

                EndSwitch
                $Sval = Number(StringTrimRight($Sval, 1)) + $Dec
                GUICtrlSetData($Slider, $Sval * 10)
            Else
                $Sval = GUICtrlRead($Slider) * 0.1
            EndIf

            GUICtrlSetData($Label, $Sval)

    EndSwitch
WEnd

[AsHardstyle]

Oui c'est tout a fait le systeme que je cherchai, un grand merci Tlem.

[Tlem]

Pensez à mettre votre message en [R].

Merci