SetScrollGadgetPos

Синтаксис

Sub SetScrollGadgetPos OverLoad(ByVal gadget As Long,ByVal POSITION As Integer)

Только для Windows: Sub SetScrollGadgetPos OverLoad(ByVal hWin As HWND,ByVal POSITION As Integer, ByVal style As integer)

Описание

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

Параметры

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

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

POSITION - новая позиция

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: Full featured Kindle eBooks generator