[решено] Управление слайдером

morgan1991 · Отправлено: **10:41, 18-06-2009** | #6

gregaz,
А так не пробовали?

Код:

#include <GUIConstants.au3>

$gui = GUICreate("slider",220,100, 100,200)
GUISetBkColor (0x00E0FFFF)  ; will change background color

$slider1 = GUICtrlCreateSlider (0,10,220,20)
GUICtrlSetLimit(-1,200, 0)   ; change min/max value
$button = GUICtrlCreateButton ("Value?",75,70,70,20)
GUISetState()
GUICtrlSetData($slider1,45) ; set cursor

$start=TimerInit()
Do
  $n = GUIGetMsg ()

   If $n = $button Then
      MsgBox(0,"slider1",GUICtrlRead($slider1),2)
   $start=TimerInit()
   EndIf
   If $n = $slider1 Then
       $pos = GUIGetCursorInfo($gui)
       GUICtrlSetData($slider1, $pos[0]-10)
   EndIf
Until $n = $GUI_EVENT_CLOSE

Только ещё бы отключить стандартный сдвиг ползунка....