• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Change Backcolour and Fill Colour In Progress Bar

Change Backcolour and Fill Colour In Progress Bar

Change Backcolour and Fill Colour In Progress Bar

API Declarations



Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal lParam As Any) As Long

Private Const PBM_SETBARCOLOR As Long = (WM_USER + 9)
Private Const CCM_SETBKCOLOR As Long = (CCM_FIRST + 1)
Private Const PBM_SETBKCOLOR As Long = CCM_SETBKCOLOR

Private Enum PrScrolling
Standard = 0
Smoth = 1
End Enum

Private Enum PrBarColor
DRed = vbRed
DGreen = vbGreen
DBlue = vbBlue
DBCustom = &HE76F0C
End Enum

Private Enum PrAppearance
ccFlat = 0
cc3D = 1
End Enum



Rate Change Backcolour and Fill Colour In Progress Bar

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    
    With PB
        .Appearance = Appr
        .Scrolling = DScrolling
    End With
    SendMessage PB.hwnd, PBM_SETBARCOLOR, 0, BarColor
    SendMessage PB.hwnd, PBM_SETBKCOLOR, 0, &HFFFFFF
    
End Sub