[VB6] ProgressBar

Résolu
Thibaut63 Messages postés 123 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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


A voir également:

2 réponses

Réponse 1 / 2
Thibaut63 Messages postés 123 Date d'inscription   Statut Membre Dernière intervention   41
 
Après de multiples tentatives le probléme viendrai de mon :
"
pourcentage = 100 / nb
"
mon nb vaut 9870 exactement.
Si je tape a la calculette 100/ 9870 j'obtiens 0.01013171...
alors que dans mon programme celui ci met la valeur : 0.0102249 ... dans ma variable pourcentage !!
Ce qui fait que " ProgBarre.ProgressBar1.Value " prend une valeur supérieur à 100 avant la fin du traitement, est plante...

Si quelqu'un a une quelconque idée je suis preneur ...

PS : pourcentage est un double
0
Réponse 2 / 2
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0

Discussions similaires

[Visual Basic 6 portable]Créer exécutable
kevinbor -
Paul -

3 réponses
Programmer le Timer en Visual Basic 6.0
Cédric Bat -
Polux31 -

1 réponse
Compatibilité VB6 et Windows 10
machto -
machto -

4 réponses
VB6 - SSTab
Fenril'Skanenruf -
lermite222 -

11 réponses
Je trouve pas DTPicker dans les composants du VB6 ?
dormdaz -
Utilisateur anonyme -

5 réponses