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