设置当前滑块的逻辑位置
#Include <GuiSlider.au3>
_GUICtrlSlider_SetPos($hWnd, $iPosition)
$hWnd | 控件句柄 |
$iPosition | 滑块新的逻辑位置 |
#include <GUIConstantsEx.au3>
#include <GuiSlider.au3>
$Debug_S = False ; 检查传递给函数的类名, 设置为True并输出到一个控件的句柄,用于检查它是否工作
_Main()
Func _Main()
Local $hSlider
; 创建 GUI
GUICreate("Slider Set Pos", 400, 296)
$hSlider = GUICtrlCreateSlider(2, 2, 396, 20, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS, $TBS_ENABLESELRANGE))
GUISetState()
; Set Pos
_GUICtrlSlider_SetPos($hSlider, Random(0, 100, 1))
; Get Pos
MsgBox(4160, "信息", "Pos: " & _GUICtrlSlider_GetPos($hSlider))
; 循环直到用户退出
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main