progress bar vb6 Fermé

Question

bonjourest ce que je peux avoir une idée sur la programmation du control progress bar sous vb6 , au demarrage de mon application ?                       merci

Utilisateur anonyme · Accepted Answer

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

jbenerro · Answer

Salut mahat'es de kel origine?

kalamit · Answer

jbenerro >> C'est important pour répondre à la question ?LeLaid >> A quoi servent les AddAppProperty ? Merci ! :)Kalamit,o(^_^)o

Utilisateur anonyme · Answer

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

hegihotline · Answer

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

tikouk jamal.tss · Answer

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"

felix88 · Answer

essaye sa :


Try
            ProgressBar1.Value += 5
        Catch
            ProgressBar1.Value = 100
        End Try

Logiciel-revolution · Answer

Bonjour, 



Je voudrais enchainer des ProgressBar c'est a dire : 

Il se trouve que j'ai trois ProgressBar donc mes codes dans les timers se sont ceux là : 

ProgressBar2.Increment(1) 
If ProgressBar2.Value = ProgressBar2.Maximum Then 
End If 

Donc mon but serais que la deuxième bar commencent juste après que la première c'est finis et la troisième commence juste après que la deuxième serait finis également. 

Merci, de m'aidez sil vous plait. 
Excusez moi pour les faute d'orthographe.

Progress bar vb6

8 réponses

Discussions similaires