SetScrollGadgetRange

Синтаксис

Sub SetScrollGadgetRange OverLoad(ByVal gadget As Long,ByVal MINRange As Integer,ByVal MAXRange As Integer)

Только для Windows: Sub SetScrollGadgetRange OverLoad(ByVal hWin As HWND,ByVal MINRange As Integer,ByVal MAXRange As Integer, ByVal style As Integer)

Описание

Это перегруженная функция для установки диапазона ScrollBar. Первая функция используется для своего созданного гаджета с помощью ScrollBarGadget. Вторая функция используется для стандартного ScrollBar, который указывается при создании окна с параметрами WS_HSCROLL и WS_VSCROLL.

Параметры

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

hWin - окно, имеющее ScrollBar

MINRange , MAXRange - начальный и конечный диапазоны для ScrollBar

style - стиль , может быть:
    SBS_HORZ - диапазон горизонтального ScrollBar
    SBS_VERT - диапазон вертикального ScrollBar

Платформы

Windows , Linux

Пример1

#Include "window9.bi"
Dim Shared As HWND hw
Dim As Integer ev
hw=OpenWindow("",10,10,300,240): WindowColor(hw,&hff0000)
UpdateInfoXserver()
ScrollBarGadget(2,0,0,20,WindowClientHeight(hw),0,470,SBS_VERT)
SetScrollGadgetRange(2,0,500)
? "MINRANGE=" & GetScrollGadgetRange(2,0)
? "MAXRANGE=" & GetScrollGadgetRange(2,1)
Do
  ev=WaitEvent
Loop Until ev=EventClose

Пример2 (только для windows)

#Include "window9.bi"
Dim Shared As HWND hw
Dim As Integer ev
hw=OpenWindow("",10,10,300,240,WS_VSCROLL Or WS_VISIBLE Or WS_OVERLAPPEDWINDOW)
SetScrollGadgetRange(hw,0,500,1)
? "MINRANGE=" & GetScrollGadgetRange(hw,0,1)
? "MAXRANGE=" & GetScrollGadgetRange(hw,1,1)
Do
ev=WaitEvent
Loop Until ev=EventClose

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad