progress bar

[philmaure]

bonjour à tous,

Nouveau problème. Pas trouvé de solution sur le forum.
Sur le fichier joint j'utilise un chronometre.
Je souhaiterai paramétrer la progressebar liée au chronomètre de la façon suivante :

La barre represente 60 mn et avance d'un cran toutes les minutes.
Si c'est possible il faudrait 3 couleurs vert les 20 premières minutes puis orange les 20 suivantes et rouge pour les 20 dernières.

L'idéal serait que si la barre arrive à la fin elle puisse repartir de zero et qu'il y ait un compteur indiquant 1 (pour une bare remplie), etc ....

Merci d'avance pour vos solutions si elles existent.

Cordialement
Philippe

 

[YANN-56]

Re : progress bar

Bonsoir,

Je n'ai pas tout pigé, mais regarde ceci, dont peut-être,
tu pourras en tirer quelque chose.

Amicalement

Yann

 

[philmaure]

Re : progress bar

Merci Yann mais c'est pas vraiment ce que je recherche.
en essayant de faire simple je souhaite créer une progressbar qui démarre en meme temps que le chrono et qui remplie équivaut à une durée d'une heure.
Bonne journée
Philippe

 

[philmaure]

Re : progress bar

Re-bonjour à tous,

J'ai trouvé une solution sur le forum(voir fichier joint)

Il ne me reste plus qu'a trouver la programmation pour changer la couleur de la progression selon le temps écoulé

A bientôt
Philippe

 

[kiki29]

Re : progress bar

Salut, pour cela voir http://www.ozgrid.com/forum/showthread.php?t=24227&page=1
et le code correspondant d'Ivan F Moala

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

Private Const WM_USER = &H400  '1024
Private Const CCM_FIRST       As Long = &H2000&
Private Const CCM_SETBKCOLOR  As Long = (CCM_FIRST + 1)

'// set progressbar backcolor in IE3 or later
Private Const PBM_SETBKCOLOR  As Long = CCM_SETBKCOLOR

'//set progressbar barcolor in IE4 or later
Private Const PBM_SETBARCOLOR As Long = (WM_USER + 9)

Private Sub SetProgressBarColour(hwndProgBar As Long, ByVal ClrRef As Long)
   Call SendMessage(hwndProgBar, PBM_SETBARCOLOR, 0&, ByVal ClrRef)
End Sub

Private Sub SetProgressBackColour(hwndProgBar As Long, ByVal ClrRef As Long)
   Call SendMessage(hwndProgBar, PBM_SETBKCOLOR, 0&, ByVal ClrRef)
End Sub


This ActiveX control has a Handle property so............
To set the colours use the send a msg to the progressbar like this

Dim Pbarhwnd As Long
'// Assuming name is Progressbar1
Pbarhwnd = ProgressBar1.hwnd

SetProgressBarColour Pbarhwnd, RGB(205, 205, 0)
SetProgressBackColour Pbarhwnd, RGB(0,0,0)

 

[philmaure]

Re : progress bar

Merci Kiki, je vais essayer de m'en sortir avec ça ce week-end. Je viendrais mettre un post pour dire si ca fonctionne
bonne journée
Philippe