Soyez le premier à donner votre avis sur cette source.
Vue 12 999 fois - Téléchargée 1 707 fois
'Ici déclaration d'un variable Dim a Private Sub Command1_Click() 'Ici on dit que la variable a est égal a 0 a = 0 'Ici on dit que la progress bar peut être utiliser If a = 0 Then Timer1.Enabled = True End If End Sub Private Sub Timer1_Timer() ' Ici on incrémente une variable a = a + 10 'Ici On dit que quand la progress bar est a 100 % qu'il arrête de compter If a = 100 Then Timer1.Enabled = False End If ProgressBar1 = a 'Ici on dit que quand la progress bar est a moins de 50 % la couleur de l'affichage de la progression sur le label et en rouge If a < 50 Then Label1.ForeColor = &HFF End If 'Ici on dit que quand la progress bar est a plus de 50 % la couleur de l'affichage de la progression sur le label et en jaune If a > 50 Then Label1.ForeColor = &H80FFFF End If 'Ici on dit simplement au label1 qu'il est égal a la progression Label1 = a & "%" 'Ici on fait en sorte que le pointeur de la souris mette un sablier pendant qu'il travail If a < 100 Then MousePointer = 11 End If 'Ici on dit que quand la progression est finit que le pointeur redeviens une flèche If a = 100 Then MousePointer = 0 End If End Sub
17 mai 2007 à 13:46
28 mars 2005 à 17:36
C'est pas trop mal 8/10
JRB
24 janv. 2005 à 08:51
8 oct. 2003 à 19:59
si oui tu bornes ton progressbar avec ce nombre et tu incrémentes ton compteur a chaque requête terminée.
Séb
8 oct. 2003 à 19:49
ex : j'ai une requete de milliers d'insertion
je mets donc un progress bar pour faire patienter mais le pb c'est que je connais pas le temps total...
comment faire?
z'avez une idée?
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.