Má prvek zobrazený scrollbar ?

Postup:
Private Declare Function GetWindowLong Lib "user32" Alias _
    "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const GWL_STYLE = (-16)
Const WS_VSCROLL = &H200000
Const WS_HSCROLL = &H100000

Function HasHorizontalScrollbar(ctrl As Control) As Boolean

    HasHorizontalScrollbar = (GetWindowLong(ctrl.hwnd, _
        GWL_STYLE) And WS_HSCROLL)

End Function

Function HasVerticalScrollbar(ctrl As Control) As Boolean

    HasVerticalScrollbar = (GetWindowLong(ctrl.hwnd, GWL_STYLE) And _
         WS_VSCROLL)
End Function

Použití:
If HasVerticalScrollBar(List1) Then
    ' List1 má vertikální scrollbar
End If

Zpět

Autor: The Bozena