GetScrollGadgetRange

Синтаксис

Function GetScrollGadgetRange OverLoad(ByVal gadget As long, ByVal flag As Integer) As Integer

Function GetScrollGadgetRange OverLoad(ByVal hWin As HWND,ByVal flag As Integer, ByVal style As Integer) As Integer

Описание

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

Параметры

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

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

flag - может быть:
    0 - для получения начального диапазона
    1 - для получения конечного диапазона

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

Платформы

Windows , Linux

Пример

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

Результат

MINRANGE=0
MAXRANGE=470

Пример2

#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

Результат

MINRANGE=0
MAXRANGE=500

Created with the Personal Edition of HelpNDoc: Create HTML Help, DOC, PDF and print manuals from 1 single source