SetPageStepScrollBar

Синтаксис

Sub SetPageStepScrollBar OverLoad(ByVal iGadget As Long , ByVal stepscroll As integer)

Только в Windows: Sub SetPageStepScrollBar (ByVal hw As HWND, ByVal stepscroll As integer)

Описание

Функция для установки шага прокручивания страниц ScrollBar, при клике по нему. По умолчанию прокручивает на 10 пунктов.

Параметры

gadget - номер гаджета

hw - хендл окна, содержащего ScrollBar

stepscroll - новый шаг

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer ev
Var hw = OpenWindow("",10,10,300,240)
UpdateInfoXserver()
ButtonGadget(1,50,10,100,25,"step = 50")
ButtonGadget(2,50,40,100,25,"step = 100")
ScrollBarGadget(3,0,0,20,WindowClientHeight(hw),0,470,SBS_VERT)
Do
  ev=WaitEvent
  If ev=EventGadget Then
     Select Case EventNumber
        Case 1
           SetPageStepScrollBar(3, 50)
        Case 2
           SetPageStepScrollBar(3 , 100)
     End Select
  EndIf
Loop Until ev=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator