ขอวิธีทำให้ input ดึงค่าจาก slider

ผมอยากให้เวลาเราเลื่อน slider แล้ว ค่า ก็จะไปอยู่ที่ input นะครับ

$Form1 = GUICreate("ตั้งค่าโปรแกรม", 315, 182, -1, -1, 0, $WS_EX_TOPMOST)
$Slider1 = GUICtrlCreateSlider(16, 32, 230, 29)
GUICtrlSetLimit(-1, 255, 0)
$Input1 = GUICtrlCreateInput("", 248, 40, 41, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER,$ES_READONLY))
GUICtrlSetLimit(-1, 3)
$Button1 = GUICtrlCreateButton("OK", 120, 120, 73, 25)

ทำตัวอย่างด้านล่างนี้ครับ

Code:

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 217, 140, 192, 124)
$Slider1 = GUICtrlCreateSlider(16, 16, 150, 45)
$Input1 = GUICtrlCreateInput("", 24, 72, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

      Case $Slider1
         GUICtrlSetData($Input1, GUICtrlRead($Slider1))
   EndSwitch
WEnd

ลองโค๊ดนี้ดูบ้างเป็นไร ..น่าจะตรงใจท่าน Arm ..ผมออกแบบเขียนมาให้โดยเฉพาะ.

Code:

#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiSlider.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>

Opt('MustDeclareVars', 1)

Global $hSlider

_Main()
Func _Main()

   Local $Input

   GUICreate("(UDF Created) Slider Create", 400, 90)
   $hSlider = GUICtrlCreateSlider(2, 20, 396, 20, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
   GUICtrlSetCursor(-1, 0)
   $Input = GUICtrlCreateInput("Input1", 175, 50, 49, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN), BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUISetState(@SW_SHOW)

   Do
      GUICtrlSetData($Input, GUICtrlRead($hSlider))
   Until GUIGetMsg() = $GUI_EVENT_CLOSE
   GUIDelete()
EndFunc

ขอบคุณท่าน Admin และท่าน sak20102005 มากๆเลยครับ