#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StructureConstants.au3>
#include <GUIScrollBars.au3>
#include <ScrollBarConstants.au3>
#include <ButtonConstants.au3>
#include <GUIScrollBars.au3>
#include <StructureConstants.au3>
Global $GUIMsg, $hGUI, $h_cGUI, $iDummyUP, $iDummyDOWN
$hGUI = GUICreate("ScrollBar Example", 400, 400, -1, -1)
$iDummyUP = GUICtrlCreateDummy()
$iDummyDOWN = GUICtrlCreateDummy()
GUICtrlCreateButton('Ок', 280, 350, 100, 40, $BS_FLAT)
$h_cGUI = GUICreate("Child GUI", 400, 330, 0, 0, $WS_CHILD, $WS_EX_DLGMODALFRAME, $hGUI)
GUICtrlSetResizing($h_cGUI, $GUI_DOCKALL)
GUICtrlCreatePic('1.jpg', 0, 0, 300, 300)
GUICtrlCreatePic('2.jpg', 0, 310, 300, 300)
GUISetState()
GUISwitch($hGUI)
GUIRegisterMsg($WM_VSCROLL, "WM_VSCROLL")
GUIRegisterMsg($WM_MOUSEWHEEL, "WM_MOUSEWHEEL")
GUISetState()
_GUIScrollBars_Init($h_cGUI,0)
While 1
$GUIMsg = GUIGetMsg()
Switch $GUIMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $iDummyUP
WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 0, 1 )
Case $iDummyDOWN
WM_VSCROLL( $h_cGUI, $WM_VSCROLL, 1, 1 )
EndSwitch
WEnd
Func WM_MOUSEWHEEL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nCode, $tSCROLLINFO, $yPos, $nScroll, $iStep = 1
If $hWnd = $hGUI Then
$nCode = BitShift($wParam, 16)
$tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($h_cGUI, $SB_VERT)
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
Switch $nCode
Case 120
$nScroll = $iStep
GUICtrlSendToDummy( $iDummyUP )
Case -120
$nScroll = -$iStep
GUICtrlSendToDummy( $iDummyDOWN )
EndSwitch
DllStructSetData($tSCROLLINFO, "nPos", $yPos - $nScroll)
_GUIScrollBars_SetScrollInfo($h_cGUI, $SB_VERT, $tSCROLLINFO)
EndIf
Return $GUI_RUNDEFMSG
EndFunc
Func WM_VSCROLL($hWnd, $Msg, $wParam, $lParam)
#forceref $Msg, $wParam, $lParam
Local $nScrollCode = BitAND($wParam, 0x0000FFFF)
Local $Idx = -1, $yChar, $yPos, $nPos, $TrackPos, $Page
For $x = 0 To UBound($aSB_WindowInfo) - 1
If $aSB_WindowInfo[$x][0] = $hWnd Then
$Idx = $x
$yChar = $aSB_WindowInfo[$Idx][3]
ExitLoop
EndIf
Next
If $Idx = -1 Then Return 0
Local $tSCROLLINFO = _GUIScrollBars_GetScrollInfoEx($hWnd, $SB_VERT)
$yPos = DllStructGetData($tSCROLLINFO, "nPos")
$Page = DllStructGetData($tSCROLLINFO, "nPage")
$TrackPos = DllStructGetData($tSCROLLINFO, "nTrackPos")
Switch $nScrollCode
Case $SB_LINELEFT ; user clicked left arrow
DllStructSetData($tSCROLLINFO, "nPos", $yPos - 1)
Case $SB_LINERIGHT ; user clicked right arrow
DllStructSetData($tSCROLLINFO, "nPos", $yPos + 1)
Case $SB_PAGELEFT ; user clicked the scroll bar shaft left of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $yPos - $Page)
Case $SB_PAGERIGHT ; user clicked the scroll bar shaft right of the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $yPos + $Page)
Case $SB_THUMBTRACK ; user dragged the scroll box
DllStructSetData($tSCROLLINFO, "nPos", $TrackPos)
EndSwitch
DllStructSetData($tSCROLLINFO, "fMask", $SIF_POS)
_GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
_GUIScrollBars_GetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
$nPos = DllStructGetData($tSCROLLINFO, "nPos")
If ($nPos <> $yPos) Then _
_GUIScrollBars_ScrollWindow($hWnd, 0, $yChar * ($yPos - $nPos))
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_VSCROLL