A voir également:
- Progress bar vb6
- Vb6 - Télécharger - Divers Utilitaires
- Google bar - Télécharger - Navigateurs
- Batterie bar - Télécharger - Informations & Diagnostic
- Vb6 split - Forum VB / VBA
- Jbl bar 5.1 hdmi arc problem ✓ - Forum Enceintes / HiFi
8 réponses
Utilisateur anonyme
14 juil. 2003 à 14:18
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
:-)
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
:-)
Utilisateur anonyme
15 juil. 2003 à 11:27
15 juil. 2003 à 11:27
jbenerro >> C'est important pour répondre à la question ?
LeLaid >> A quoi servent les AddAppProperty ? Merci ! :)
Kalamit,
o(^_^)o
LeLaid >> A quoi servent les AddAppProperty ? Merci ! :)
Kalamit,
o(^_^)o
jbenerro
Messages postés
3
Date d'inscription
vendredi 11 juillet 2003
Statut
Membre
Dernière intervention
15 juillet 2003
15 juil. 2003 à 11:11
15 juil. 2003 à 11:11
Salut maha
t'es de kel origine?
t'es de kel origine?
Utilisateur anonyme
15 juil. 2003 à 11:37
15 juil. 2003 à 11:37
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
:-)
Salutations et bonne prog
Rien n'est plus dangereux qu'une idée quand on a qu'une i
:-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
Messages postés
82
Date d'inscription
dimanche 21 mars 2010
Statut
Membre
Dernière intervention
18 mars 2013
15
26 juin 2011 à 15:39
26 juin 2011 à 15:39
essaye sa :
Try
ProgressBar1.Value += 5
Catch
ProgressBar1.Value = 100
End Try
Try
ProgressBar1.Value += 5
Catch
ProgressBar1.Value = 100
End Try
Logiciel-revolution
Messages postés
20
Date d'inscription
lundi 6 février 2012
Statut
Membre
Dernière intervention
14 mai 2014
1
Modifié par Logiciel-revolution le 8/02/2012 à 21:08
Modifié par Logiciel-revolution le 8/02/2012 à 21:08
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.
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.
6 juil. 2004 à 16:29
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
Modifié par anonyme le 26/02/2012 à 20:05
RECTIFICATION: vient de trouver, fo ajouter component windows 6.0 dans le menu projet, component