Les Allergies
Alimentaires
Posez votre question Signaler

[VB6] ProgressBar [Résolu]

Thibaut63 111Messages postés 10 août 2008Date d'inscription 9 octobre 2011Dernière intervention - Dernière réponse le 4 mai 2010 à 16:13
Bonjour,
j'ai un probléme avec ma progressbar qui, lorsqu'elle ce termine,bug avec comme erreur :
"
Erreur d'exécution '380':
Valeur de propriété non valide
"
Mon code : 
'Affichage de la barre de progression
With ProgBarre
    .ShowBar saisie
    .Refresh
    .Label1.Caption = "Traitement en cours ..."
End With

'initialisation de la barre de progression
pourcentage = 100 / (nb)   ' nb =~ 10 000 
j = 0

Do Until f.AtEndOfStream


'des traitement ...


'on met a jour la barre de progression
    ProgBarre.ProgressBar1.Value = j * pourcentage
    j = j + 1
Loop

'on enleve la barre de progression
Unload ProgBarre

Une petite idée quelqu'un ?
Merci d'avance
Lire la suite 

[VB6] ProgressBar »

Suggestions
Plus
2 réponses
Réponse
+0
moins plus
lermite222 7380Messages postés 8 avril 2007Date d'inscription 25 mai 2012Dernière intervention 4 mai 2010 à 16:13
Bonjour,
Peut-être en testant avant ? 
Dim B as Single
'on met a jour la barre de progression
    B = j * pourcentage : if B > 100 then B=100
    ProgBarre.ProgressBar1.Value = B
    j = j + 1

Autre solution 
'on met a jour la barre de progression
    ProgBarre.ProgressBar1.Value = Int(j * pourcentage)
    j = j + 1

A+

Ajouter un commentaire
Ajouter un commentaire
Posez votre question
Ce document intitulé « [VB6] ProgressBar » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?