utilisation d'une progress bar avec un timer
Bonjour,
Je suis un peu dans l'urgence donc je viens vous demander ici...
Voilà grâce à un timer que j'execute 30 fois je voudrais qu'une progress bar affiche le pourcentage d'execution mais cela n'affiche pas la progression de la progress bar donc je viens vous voir pour me dire éventuellement d'ou cela peut venir.
Voici mon code :
la ou j'execute le timer :
Code:
1
2
3
4
5
6
7
| Private Sub cmd_tirage_Click()
proBar_alea.Enabled = True
timer = 0
timer_alea.Enabled = True
txt_mise.Enabled = False
cmd_tirage.Enabled = False
End Sub |
et mon timer
Code:
1
2
3
4
5
6
7
8
9
10
11
| proBar_alea.Max = 6000
proBar_alea.Value = proBar_alea.Value + 3.33
aleatoire
timer = timer + 1
If timer = 30 Then
cmd_tirage.Enabled = True
timer_alea.Enabled = False
txt_mise.Enabled = True
resultat
End If |
Merci d'avance pour votre aide,
Amicalement,
Devock
