Bonjour à toutes et tous,
J'ai un petit problème dont je n'arrive pas à me sortir.
Dans un UserForm j'ai une ProgressBar qui grandit toute les 50ms. Arrivé au max (100) elle rediminue jusqu'à 0. ça ça marche, mon problème est que je voudrais le faire plusieurs fois (30), et que le redémarrage ne ce fait pas?
Dans le code ci-dessous le count_tick varie de 0 au départ jusqu'à 100 puis inversion pour redescendre à 0 le Elseif par contre ne ce fait pas?? Si je mets un point d'arrêt dessus la boucle n'y passe pas alors que la valeur TextBoxCounter.text est bien à 0 ????
Je dois passer à côté de quelque chose d'évident.
D'avance merci.
PS: Le changement de couleur ne fonctionne pas non plus malgré le décochage des styles visuels XP dans les propriétés du projet
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25 Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick If (Count_tick = 100) Then TextBox.Text = "Souffler" PB_Breath.ForeColor = Color.Red Add_Val = -1 ElseIf (Count_tick = 0) Then TextBox.Text = "Respirer" PB_Breath.ForeColor = Color.LawnGreen Add_Val = 1 If (Count_breath < 30) Then Count_breath += 1 Else Count_breath = 0 Timer.Stop() TextBox.Text = "Fin" End If Else Count_tick = Count_tick + Add_Val End If TextBoxCounter.Text = Str(Count_tick) PB_Breath.Value = Count_tick TextBoxBreath.Text = Str(Count_breath) End Sub
Partager