Změna barev ProgressBaru
Postup:
Private
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As
Long, _
ByVal wParam As Long, lParam As Any) As Long
Const CCM_FIRST = &H2000
Const CCM_SETBKCOLOR = (CCM_FIRST + 1)
Const PBM_SETBKCOLOR = CCM_SETBKCOLOR
Const WM_USER = &H400
Const PBM_SETBARCOLOR = (WM_USER + 9)
Private Sub Form_Load()
ProgressBar1.Value = ProgressBar1.Max / 2
' Barva
ukazatele
SendMessage
ProgressBar1.hwnd, PBM_SETBARCOLOR, 0, _
ByVal RGB(0, 255, 0)
'Barva pozadí
SendMessage ProgressBar1.hwnd, PBM_SETBKCOLOR, 0, _
ByVal RGB(255, 0, 0)
End Sub
