Что нового

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

kvitnitskiy

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

Код:
#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

AutoIT Гуру
Сообщения
1,535
Репутация
413
Код:
#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
 

AZJIO

Меценат
Меценат
Сообщения
2,766
Репутация
1,154
WM_VSCROLL
WM_HSCROLL
И ещё в UDF Slider примеры со стилем $TBS_TOOLTIPS показывают подсказку при перемещении ползунка. В примере функции _GUICtrlSlider_SetToolTips в последнем обновлении справки пример с цветной подсказкой.
 
Верх