Progress bar vb6

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

Salut maha
t'es de kel origine?

jbenerro >> C'est important pour répondre à la question ?

LeLaid >> A quoi servent les AddAppProperty ? Merci ! :)

Kalamit,
o(^_^)o

A rien,... c'est un extrait de code d'un de mes pgms. J'ai oublié de les enlever.

Salutations et bonne prog

Rien n'est plus dangereux qu'une idée quand on a qu'une i
:-)

salut ,
je peux avoir une petite application sur le controle progressbar

bonjour cher internaute . votre sujet bm a vraiment i,teresse j 'espere que vous le detaille plus . je demande a ceux qui ont une application de vb contenant "progress bar" de l 'envoyer via le msn " tikouk.88@hotmail.fr"