Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'Pour la ProgressBar Public Const CCM_FIRST = &H2000 Public Const CCM_SETBKCOLOR = (CCM_FIRST + 1) Public Const PBM_SETBKCOLOR = CCM_SETBKCOLOR Public Const WM_USER = &H400 Public Const PBM_SETBARCOLOR = (WM_USER + 9) '-------------------------------------------------------------------------------------- 'Change la couleur d'une ProgresseBar '-------------------------------------------------------------------------------------- Public Function ProgressBar_Couleur(ProgressBar As ProgressBar, Optional Couleur_Barre As ColorConstants, Optional Couleur_Fond As ColorConstants) ' 'Change la couleur du fond SendMessage ProgressBar.hwnd, PBM_SETBKCOLOR, 0, ByVal Couleur_Fond 'Change la couleur des barres SendMessage ProgressBar.hwnd, PBM_SETBARCOLOR, 0, ByVal Couleur_Barre End Function