Page 1 sur 1
[R] Guictrlcreateslider
Posté : lun. 26 oct. 2009 19:21
par 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.
Re: [...] Guictrlcreateslider
Posté : lun. 26 oct. 2009 22:31
par 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
Re: [...] Guictrlcreateslider
Posté : lun. 26 oct. 2009 22:41
par AsHardstyle
Oui c'est tout a fait le systeme que je cherchai, un grand merci Tlem.
Re: [...] Guictrlcreateslider
Posté : lun. 26 oct. 2009 22:49
par Tlem
Pensez à mettre votre message en [R].
Merci