Видимость полосы прокрутки MDIForm

[Jupiter]

Мне нужно программно определить размер клиентской области формы MDIForm. Но естественно с учетом полос прокрутки, которые могут быть то видны, но не видны. Я могу воспользоваться GetClientRect, либо просто Me.Height. НО эти способы слепы к полосам прокрутки. Я согласен вручную вычесть ширину полосы, если она видна. Вопрос: Как программно определить, видна ли верт. или гор. полоса?

[tyomitch]

Вопрос: Как программно определить, видна ли верт. или гор. полоса?

Искать в стилях WS_VSCROLL и WS_HSCROLL.
Но GetClientRect возвращает размеры уже без этих полос, я проверял.

[Wolfie]

Свойство Height вернет размер всего окна - т.е. вместе с полосами прокрутки если они есть, с бордюром и заголовком, а ScaleHeight (если ScaleMode не трогать, кажется) вернет размер доступной области, например для того чтобы растянуть по ней другую форму или растянуть текстбокс по обычной форме... Отчего мешают именно полосы прокрутки?

[EUGY]

Не стоит забывать, что полосы прокрутки НЕ есть элементы MDIForm.
Они - части неклиентской области дочернего окна класса "MDIClient". (вот такая тавтология).

И как писал Темыч:

Искать в стилях WS_VSCROLL и WS_HSCROLL.

но не в MDIForm, а в его дочернем окне "MDIClient" (не путать с MDIChild).

P.S.
так, ради проверки

Код: Выделить всё

Option Explicit
Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As Long) As Long
Dim rc As RECT
Dim hwcl As Long

Private Sub MDIForm_Load()
    Form1.Show
    hwcl = FindWindowEx(MDIForm1.hwnd, 0, "MDIClient", 0)
End Sub
Private Sub Timer1_Timer()
    GetClientRect hwcl, rc
    Debug.Print rc.Right
End Sub


[Jupiter]

Но GetClientRect возвращает размеры уже без этих полос, я проверял.

Не совсем чтобы так. Размер получается без учета полос прокрутки (как будто их никогда нет).

ScaleHeight вернет размер доступной области

А вот это то что нужно!!! ScaleHeight рулит! С учетом полос!

[tyomitch]

И как писал Темыч:

Искать в стилях WS_VSCROLL и WS_HSCROLL.

но не в MDIForm, а в его дочернем окне "MDIClient" (не путать с MDIChild).

[Jupiter]

А как получить программно доступ к MDIClient? Мне надо из программы двигать прокрутки.

[tyomitch]

FindWindowEx(0,"MDIClient",vbNullString)

[Jupiter]

FindWindowEx(0,"MDIClient",vbNullString)

Спасибо, дескриптор окна получили. А как теперь найти коэффициент прокрутки и как его менять? (Типа как в VB: VS.Value = 100). СПАСИБО!

Все, разобрался. ЭТо будет GetScrollPos.
Всем спасибо.
------------------