Функция GetScrollInfo

Declare Function GetScrollInfo Lib "user32" (ByVal hwnd As Long, _
    ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long

GetScrollInfo получает параметры полосы прокрутки, включаю минимальные и максимальные значения прокрутки, размер окна, позицию ползунка

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

Если функция получает какие-нибудь параметры, то она возвратит ненулевое значение. Если функция не получит никаких значений параметра, то возвращается 0 (для получения кода ошибки используйте GetLastError

Параметры

hwnd

Дескриптор полосы прокрутки или окна, имеющего стандартную полосу прокрутки

n

Одно из значений, определяющих тип полосы прокрутки:

SB_CTL	Получает параметры для элемента Полоса прокрутки. Параметр hwnd должен быть дескриптором этого элемента управления
SB_HORZ = 0	Получает параметры для стандартной горизонтальной полосы прокрутки у окна
SB_VERT = 1	Получает параметры для стандартной вертикальной полосы прокрутки у окна

lpScrollInfo

Указатель на структуру SCROLLINFO

Пример

' Поместите на форме текстовое поле
' и установите ScrollBars = 3 (Both) 
Cls
Dim S As SCROLLINFO
With S
 .cbSize = Len(S)
 .fMask = SIF_ALL
End With
 GetScrollInfo Text1.hwnd, SB_VERT, S
 Print "nMax"; S.nMax
 Print "nPos"; S.nPos
 Print "nPage"; S.nPage

Смотри также

SetScrollInfo

Категория

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