Функция SetScrollInfo

Declare Function SetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long
SetScrollInfo устанавливает параметры полосы прокрутки, включаю минимальные и максимальные значения прокрутки, размер страницы, позицию ползунка, а также перерисовывает их в случае необходимости

Возвращаемое значение

Функция возвращает текущую позицию ползунка

Параметры

hwnd
Дескриптор полосы прокрутки или окна, имеющего стандартную полосу прокрутки
n
Одно из значений, определяющих тип полосы прокрутки:
SB_CTL Устанавливает параметры для элемента Полоса прокрутки. Параметр hwnd должен быть дескриптором этого элемента управления
SB_HORZ = 0 Устанавливает параметры для стандартной горизонтальной полосы прокрутки у окна
SB_VERT = 1 Устанавливает параметры для стандартной вертикальной полосы прокрутки у окна
lpcScrollInfo
Указатель на структуру SCROLLINFO. Перед вызовом функции не забудьте сначала установить параметр cbSize этой структуры, а также параметр fMask
bool
Если True, то полоса прокрутки перерисовывается при изменениях параметров. Если False, то не перерисовывается

Пример

' Поместите на форме текстовое поле
' и установите ScrollBars = 3 (Both) 
Dim sbinfo As SCROLLINFO
With sbinfo
    .cbSize = Len(sbinfo)
    .fMask = SIF_RANGE Or SIF_PAGE
    .nMin = 0
    .nMax = 12
    .nTrackPos = 2
    .nPos = 1
End With
SetScrollInfo Text1.hwnd, SB_VERT, sbinfo, True

Смотри также

GetScrollInfo

Категория

Полосы прокрутки