Progressbar

Résolu
sabiha93 Messages postés 32 Date d'inscription jeudi 18 mai 2006 Statut Membre Dernière intervention 5 août 2010 - 29 mai 2006 à 16:05
sabiha93 Messages postés 32 Date d'inscription jeudi 18 mai 2006 Statut Membre Dernière intervention 5 août 2010 - 29 mai 2006 à 16:20
Rebonjour,
voila maintenant j'aimerais mettre une progressbar dans ma form qui arrivée à 100%, raffraichit la form (form.refresh). Le problème, c'est qu'il faudrait qu'elle se réinitialise toutes les 10 minutes (au bout desquelles la page est mise à jour). Je sais qu'il faut utiliser un timer mais à partir de la je ne sais pas trop comment m'y prendre, et surtout j'aimerais qu'on m'explique cmt faire.
Je sais pas si j'ai été claire mais bon...
Merci

3 réponses

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
29 mai 2006 à 16:13
tu peux mettre 6 000 (6 secondes) comme intervalle, pour ton timer, et faire :

Private sub Timer1_Timer()
   Progress1.Value = Progress1.Value +1
   If Progress1.Value = 100 Then
        Progress1 = 0
        Refresh
   End Sub
End Sub

arrivé à 100, tu auras attendu 10 minutes....

Renfield
Admin CodeS-SourceS- MVP Visual Basic
3
NHenry Messages postés 15118 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 11 mai 2024 159
29 mai 2006 à 16:18
Bonjour

Je serais plutot partant pour utiliser Timer pour ta progressbar :

private mLastValue as integer

Private sub Timer1_Timer()
If Timer-mLastValue=>600 Then
    mLastValue=Timer
    Progress1.Value=0
    Refresh
Else
   Progress1.Value = (Timer-mlastvalue)/6
End If
End Sub

Cela évite les dérives dues à l'imprécision du timer.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
3
sabiha93 Messages postés 32 Date d'inscription jeudi 18 mai 2006 Statut Membre Dernière intervention 5 août 2010
29 mai 2006 à 16:20
ok merci bcp! vraiment vous me sauvez la vie!
0
Rejoignez-nous