[Løst] Progress bar farge bakrunden(VB 6.0)

[ostehovel]

Går det ann å sette farge bak på en progress bar? (VB 6.0)

jeg veit at det går an og sette farge på Progressbaren med denne koden:

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
               (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
               ByVal lParam As Long) As Long
               
               
Public Const WM_USER = &H400
Public Const PBM_SETBARCOLOR = (WM_USER + 9)
' Sette Farge på progressbar...


Public Sub ChangeProgressBarColor(objProgressBar As ProgressBar, mlngColor As Long)
   Call SendMessageLong(objProgressBar.hwnd, PBM_SETBARCOLOR, 0&, mlngColor)
End Sub
' End

Men hvordan sette farge bak på den Grå bakrunden?

Endret 12. januar 2006 av ostehovel

[Richard87]

prov med PBM_SETBKCOLOR istedenfor...

 

PS. har ikke testet selv, men regner med at det vil virke..

[ostehovel]

Brukte:

Public Const PBM_SETBKCOLOR = (&H2001)

Og:

Public Sub ChangeProgressBKColor(objProgressBar As ProgressBar, mlngColor As Long)

    Call SendMessageLong(objProgressBar.hwnd, PBM_SETBKCOLOR, 0&, mlngcolor)

   

End Sub