GetScrollGadgetPos

Синтаксис

Function GetScrollGadgetPos OverLoad(ByVal hWin As HWND, ByVal style As Integer) As Integer

Function GetScrollGadgetPos OverLoad(ByVal gadget As Long) As Integer

Описание

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

Параметры

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

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

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)
SetScrollGadgetPos(2,50)
? "Position=" & GetScrollGadgetPos(2)
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)
SetScrollGadgetPos(hw,50,SBS_VERT)
? "Position=" & GetScrollGadgetPos(hw,SBS_VERT)
Do
  ev=WaitEvent
Loop Until ev=EventClose

Created with the Personal Edition of HelpNDoc: Free EPub and documentation generator