LeLaid
241Messages postés
14 juillet 2003Date d'inscription
14 juil. 2003 à 14:18
Salut,
Supposons que ta progress barr s'appel 'Prog'.
Son attribut "Value" (donc, Prog.Value) prend des valeurs entre 0 et 100. Pour faire progresser la barre, tu dois incrémenter cette valeur en fonction de la progression de ton programme.
Le mieux est de commencer par initialiser cette valeur:
Prog.Value = 0
En suite du rend ta progress barr visible
Prog.Visible = True
Puis tu incrémente la valeur:
Prog.Value = Prog.Value + x
où x est la progression souhaitée. Attention de ne pas dépasser 100.
Exemple:
Prog.Value = 0
Prog.Visible = True
For j = 1 To 8
For i = 1 To 14
Code........
Prog.Value = Prog.Value + 100 / 112.1
Next i
intX = AddAppProperty("AppTitle", RclExec(j), RCLTitle(j))
intX = AddAppProperty("AppIcon", RclExec(j), RCLIc(j))
Next j
Prog.Visible = False
*******************
Pq 112.1 ? Parceque 8*14 = 112. Et comme 100/112 *8*14 > 100 (à cause des arrondi), j'utilise 112.1 pour rester < 100
J'espère que ça suffira
Rien n'est plus dangereux qu'une idée quand on a qu'une i
:-)
J'ai lu ton mail sur la barre de progression.
En fait j'ai un pb. Mon programme insere un fichier excel qui contient 2228 lignes de calculs.
Donc quand je clique sur valider dans mon prog les calculs commencent et c'est hyper long.
Je veux donc inserer une barre de progression : 2228 represente 100% et donc quand je calcule 1 ligne ma barre evolu de 100/2228;
je ne sais vraiment pas comment faire etant nul en Vb.
Est ce que tu peux simuler mon prog c'est a dire creer un fichier excel avec moins de ligne biensur et m'envoyer le code de cette barre de progression qui evolue en meme temps que les lignes de la feuille excel
Merci d'avance
dilhan