• Home
 · 
• Windows API Call/Explanation
 · 
• Creates a flat scrollbar onto an object or form.

Creates a flat scrollbar onto an object or form.

Creates a flat scrollbar onto an object or form.

API Declarations


Private Declare Function FlatSB_SetScrollRange Lib "comctl32" (ByVal hWnd As Long, ByVal code As Long, ByVal nMinPos As Long, ByVal nMaxPos As Long, ByVal fRedraw As Boolean) As Long
Private Declare Function FlatSB_ShowScrollBar Lib "comctl32" (ByVal hWnd As Long, ByVal code As Long, ByVal fShow As Boolean) As Boolean
Private Declare Function FlatSB_GetScrollPos Lib "comctl32" (ByVal hWnd As Long, ByVal code As Long) As Long



Rate Creates a flat scrollbar onto an object or form.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    Dim SI As SCROLLINFO
    InitializeFlatSB uObject.hWnd
    FlatSB_SetScrollProp uObject.hWnd, WSB_PROP_VSTYLE, FSB_ENCARTA_MODE, False
    FlatSB_EnableScrollBar uObject.hWnd, SB_VERT, ESB_DISABLE_UP
    FlatSB_SetScrollRange uObject.hWnd, SB_VERT, 20, 80, False
    FlatSB_SetScrollPos uObject.hWnd, SB_VERT, 60, False
    FlatSB_ShowScrollBar uObject.hWnd, SB_HORZ, False
    SI.cbSize = Len(SI)
    SI.fMask = SIF_ALL
    FlatSB_GetScrollInfo uObject.hWnd, SB_VERT, SI
    SI.nPos = SI.nPos - 10
    FlatSB_SetScrollInfo uObject.hWnd, SB_VERT, SI, True
    Dim RetMin As Long, RetMax As Long
    FlatSB_GetScrollRange uObject.hWnd, SB_VERT, RetMin, RetMax
    Me.AutoRedraw = True
End Sub
Private Sub RemoveScrollB(ByVal u As Object)
    UninitializeFlatSB u.hWnd
End Sub
Private Sub Form_Load()
FlatScroll Me
End Sub