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
:-)