bonsoir
j'ai adapte un petit bout de code pour faire evoluer 2 progressBar
LngLab = 6000
J = (Me.LblProgressColor.Left - Me.LblProgressBar.Left) * 2
' demarre la boucle
For i = 1 To LngLab
Me.LblPc.Caption = CInt((i / LngLab) * 100) & " %": DoEvents
For p = 1 To 25
Me.LblProgressColor2.Width = 25
Next p
Me.LblProgressColor.Width = (i / LngLab) * (Me.LblProgressBar.Width - J)
Me.LblProgressColor2.Left = (i / LngLab) * (Me.LblProgressBar2.Width - J) -
25
Next i
ma premiere ProgressBar se deplace normalement du debut jusqu'a la fin
ma deuxieme ProgressBar , arrivé a un width de 25 , se deplace de la gauche
vers la droite
je voudrais que ma deuxieme Progressbar une fois arrivée a droite puisse
revenir vers la gauche, comme si elle rebondissait
merci de votre aide
gerard
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
David
Bonjour,
j'aimerais bien t'aider cependant il n'est pas evident de comprendre ton code etant donné que tu ne donne pas de nom explicite a tes variables (J) ou alors il faut faire des commentaires pour expliquer les variables (LblProgressColor? LblProgressBar?). Et j'ai remarqué une boucle qui ne sert a rien For p = 1 To 25 Me.LblProgressColor2.Width = 25 Next p Cela revient au meme que : Me.LblProgressColor2.Width = 25
Mais sinon au niveau de l'algorithme pour faire revenir la barre de progression vers la gauche, tu peux faire une condition un if qui va verifier si tu atteins le coté gauche, et dans ce cas a la place d'incrementer l'emplacement gauche de la barre tu la decrementes.
En esperant que cela puisse t'aider
David
"gérard" wrote in message news:4449434c$0$21295$
bonsoir j'ai adapte un petit bout de code pour faire evoluer 2 progressBar
LngLab = 6000
J = (Me.LblProgressColor.Left - Me.LblProgressBar.Left) * 2 ' demarre la boucle For i = 1 To LngLab Me.LblPc.Caption = CInt((i / LngLab) * 100) & " %": DoEvents
For p = 1 To 25 Me.LblProgressColor2.Width = 25 Next p Me.LblProgressColor.Width = (i / LngLab) * (Me.LblProgressBar.Width - J) Me.LblProgressColor2.Left = (i / LngLab) * (Me.LblProgressBar2.Width - J) - 25
Next i ma premiere ProgressBar se deplace normalement du debut jusqu'a la fin ma deuxieme ProgressBar , arrivé a un width de 25 , se deplace de la gauche vers la droite je voudrais que ma deuxieme Progressbar une fois arrivée a droite puisse revenir vers la gauche, comme si elle rebondissait merci de votre aide gerard
Bonjour,
j'aimerais bien t'aider cependant il n'est pas evident de comprendre ton
code etant donné que tu ne donne pas de nom explicite a tes variables (J) ou
alors il faut faire des commentaires pour expliquer les variables
(LblProgressColor? LblProgressBar?).
Et j'ai remarqué une boucle qui ne sert a rien
For p = 1 To 25
Me.LblProgressColor2.Width = 25
Next p
Cela revient au meme que : Me.LblProgressColor2.Width = 25
Mais sinon au niveau de l'algorithme pour faire revenir la barre de
progression vers la gauche, tu peux faire une condition un if qui va
verifier si tu atteins le coté gauche, et dans ce cas a la place
d'incrementer l'emplacement gauche de la barre tu la decrementes.
En esperant que cela puisse t'aider
David
"gérard" <gege@wanadoo.fr> wrote in message
news:4449434c$0$21295$8fcfb975@news.wanadoo.fr...
bonsoir
j'ai adapte un petit bout de code pour faire evoluer 2 progressBar
LngLab = 6000
J = (Me.LblProgressColor.Left - Me.LblProgressBar.Left) * 2
' demarre la boucle
For i = 1 To LngLab
Me.LblPc.Caption = CInt((i / LngLab) * 100) & " %": DoEvents
For p = 1 To 25
Me.LblProgressColor2.Width = 25
Next p
Me.LblProgressColor.Width = (i / LngLab) * (Me.LblProgressBar.Width - J)
Me.LblProgressColor2.Left = (i / LngLab) * (Me.LblProgressBar2.Width -
J) - 25
Next i
ma premiere ProgressBar se deplace normalement du debut jusqu'a la fin
ma deuxieme ProgressBar , arrivé a un width de 25 , se deplace de la
gauche vers la droite
je voudrais que ma deuxieme Progressbar une fois arrivée a droite puisse
revenir vers la gauche, comme si elle rebondissait
merci de votre aide
gerard
j'aimerais bien t'aider cependant il n'est pas evident de comprendre ton code etant donné que tu ne donne pas de nom explicite a tes variables (J) ou alors il faut faire des commentaires pour expliquer les variables (LblProgressColor? LblProgressBar?). Et j'ai remarqué une boucle qui ne sert a rien For p = 1 To 25 Me.LblProgressColor2.Width = 25 Next p Cela revient au meme que : Me.LblProgressColor2.Width = 25
Mais sinon au niveau de l'algorithme pour faire revenir la barre de progression vers la gauche, tu peux faire une condition un if qui va verifier si tu atteins le coté gauche, et dans ce cas a la place d'incrementer l'emplacement gauche de la barre tu la decrementes.
En esperant que cela puisse t'aider
David
"gérard" wrote in message news:4449434c$0$21295$
bonsoir j'ai adapte un petit bout de code pour faire evoluer 2 progressBar
LngLab = 6000
J = (Me.LblProgressColor.Left - Me.LblProgressBar.Left) * 2 ' demarre la boucle For i = 1 To LngLab Me.LblPc.Caption = CInt((i / LngLab) * 100) & " %": DoEvents
For p = 1 To 25 Me.LblProgressColor2.Width = 25 Next p Me.LblProgressColor.Width = (i / LngLab) * (Me.LblProgressBar.Width - J) Me.LblProgressColor2.Left = (i / LngLab) * (Me.LblProgressBar2.Width - J) - 25
Next i ma premiere ProgressBar se deplace normalement du debut jusqu'a la fin ma deuxieme ProgressBar , arrivé a un width de 25 , se deplace de la gauche vers la droite je voudrais que ma deuxieme Progressbar une fois arrivée a droite puisse revenir vers la gauche, comme si elle rebondissait merci de votre aide gerard
