[Элементы GUI] Отображение значения при изменении положения ползунка

[kvitnitskiy]

Доброго времени суток.
подскажите пожалуйста, реально ли реализовать следующее.
что бы при изменении положения ползунка, значение сразу же бралось в переменную и соответственно отображалось ?

#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("testform", 174, 158, 324, 144)
$Slider1 = GUICtrlCreateSlider(0, 64, 129, 25)
$Label1 = GUICtrlCreateLabel("      ", 16, 8, 58, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetLimit(-1, 250, 10)
GUISetState()
GUICtrlSetData($Slider1, 20)
While 1
		$nMsg = GUIGetMsg()
		Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

 

[Viktor1703]

Спойлер

#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("testform", 174, 158, 324, 144)
$Slider1 = GUICtrlCreateSlider(0, 64, 129, 25)
$Label1 = GUICtrlCreateLabel("      ", 16, 8, 58, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetLimit(-1, 250, 10)
GUISetState()
GUICtrlSetData($Slider1, 20)
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
		Case $Slider1
            GUICtrlSetData($Label1, GUICtrlRead($Slider1))
    EndSwitch
WEnd

Или

Спойлер

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

Global $iDefault = 0

$Form1 = GUICreate("testform", 174, 158, 324, 144)
$Slider1 = GUICtrlCreateSlider(0, 64, 129, 25)
$Label1 = GUICtrlCreateLabel("      ", 16, 8, 58, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
GUICtrlSetLimit(-1, 250, 10)
GUISetState()
GUICtrlSetData($Slider1, 20)

While 1
	$iValue = GUICtrlRead($Slider1)
	If $iValue <> $iDefault Then
	    GUICtrlSetData($Label1, $iValue)
	    $iDefault = $iValue
	EndIf

	Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

 

[kvitnitskiy]

Спасибо, именно то что надо

 

[AZJIO]

WM_VSCROLL
WM_HSCROLL
И ещё в UDF Slider примеры со стилем $TBS_TOOLTIPS показывают подсказку при перемещении ползунка. В примере функции _GUICtrlSlider_SetToolTips в последнем обновлении справки пример с цветной подсказкой.