本帖最后由 潮州无极 于 2019-8-7 23:49 编辑
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiScrollBars.au3>
#include <ButtonConstants.au3>
Dim $VS = _WinAPI_GetSystemMetrics(2) ; SM_CXVSCROLL
Dim $HS = _WinAPI_GetSystemMetrics(3) ; SM_CYHSCROLL
Dim $CW = 700
Dim $CH = 400
Dim $GW = $CW + $VS
Dim $GH = $CH + $HS
Opt("GUICoordMode", 2)
GUICreate("", 760, 580)
Dim $hGUI = GUICtrlCreateGroup("", 30, 120, $GW, $GH, BitOR($WS_GROUP, $BS_GROUPBOX,$WS_VSCROLL))
GUISetState()
_GUIScrollBars_Init($hGUI)
_GUIScrollBars_SetScrollRange($hGUI, $SB_CTL, 10, 1)
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Exit
滚动条无法使用,怎么回事??求大神指点
|