progress barRésolu

Question

Bonjour, 
j ai fait un petit logiciel en vb pour répertorier mes capsules de champagne
cela marchait bien
j avais des Progress bar qui marchait
aujourd'hui j ai voulu rajouter une donnée la Progress bar est plante avec le message suivant
invalide property.value
pourquoi
quelqu un a la réponse
merci

vb95 · Answer

bonjour !
Sans nous mettre le code ni savoir le ligne de l'erreur ni les valeurs Min et Max de le ProgressBar difficile de répondre !
Je penche pour une valeur extérieure à la plage de le ProgressBar

totoche1748 · Answer

les progress bar marche sans programme juste avec les réglages des proprietes

Sub affichage(Index As Integer)
    
    Dim Exist_image As String
    
    Exist_image = Dir(App.Path & "\" & tab_capsule(Index).Numero_Capsule & ".jpg")
    'traite les photos
    If Exist_image = "" Then
        photo_capsule.Picture = LoadPicture(App.Path & "\aucun.jpg")
    Else
        photo_capsule.Picture = LoadPicture(Exist_image)
    End If
    'traite les donnees
    Nom.Text = Strings.Trim(tab_capsule(Index).Nom)
     Prenom.Text = Strings.Trim(tab_capsule(Index).Prenom)
      couleur.Text = Strings.Trim(tab_capsule(Index).couleur)
       Dessin.Text = Strings.Trim(tab_capsule(Index).Dessin)
        Numero_Capsule.Text = Strings.Trim(tab_capsule(Index).Numero_Capsule)
        village.Text = Strings.Trim(tab_capsule(Index).village)
         Cotation.Text = Strings.Trim(tab_capsule(Index).Cotation)
          totalcot.Text = Strings.Trim(tab_capsule(Index).totalcot)
         totalcaps.Text = Strings.Trim(tab_capsule(Index).totalcaps)
         lambert1.Text = Strings.Trim(tab_capsule(Index).lambert1)

Liste_capsule.Text = (Numero_Capsule) & " | " & (Nom.Text) & "  " & (Prenom.Text) & "  " & (couleur.Text) & " " & (Dessin.Text) & "  " & (village.Text) & " | " & (Cotation.Text)
 List2.Clear
   capsule_en_cours = Index
    
    If capsule_en_cours = 1 Then
       Btn_premier.Enabled = False
       Btn_precedent.Enabled = False
    Else
       Btn_premier.Enabled = True
       Btn_precedent.Enabled = True
       End If
       
    If capsule_en_cours = dernier_capsule Then
       Btn_suivant.Enabled = False
       Btn_dernier.Enabled = False
    Else
        Btn_suivant.Enabled = True
        Btn_dernier.Enabled = True

End If
         'traite affichage liste_capsule & liste_capsule2
     
        Liste_capsule2.Text = (Numero_Capsule.Text) & " | " & (Nom.Text) & " " & (Prenom.Text)
        Liste_capsule.Text = (Numero_Capsule) & " | " & (Nom.Text) & "  " & (Prenom.Text) & "  " & (couleur.Text) & " " & (Dessin.Text) & "  " & (village.Text)

'traite affichage list2
  Dim y As Integer
  Dim a As Double
   Dim x As Integer
    For x = 1 To dernier_capsule
    Liste_capsule2.AddItem (tab_capsule(x).Numero_Capsule)
    List2.AddItem (tab_capsule(x).Numero_Capsule) & " = " & " " & (tab_capsule(x).Cotation)
     
     'traite affichage la valeur totale
     List3.Clear
   Next
   For x = 1 To dernier_capsule
   List3.AddItem Strings.Trim(tab_capsule(x).Cotation)
   Next
   a = 0
   
For y = 0 To List3.ListCount - 1
  
If IsNumeric(List3.List(y)) Then
   a = a + List3.List(y)
 totalcot.Text = a
   
   End If
totalcaps = dernier_capsule
  
   ProgressBar1.Value = totalcaps
 ProgressBar2.Value = totalcot

vb95 · Answer

Bonsoir !
Plusieurs choses 
1) Le code n'est pas corrctement présenté : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
2) A quoi correspond index à l'appel de la fonction ? Je le devine mais je te laisse répondre
3) Tu dis que les Progressbar ne sont pas par programme : c'est quoi les lignes à la fin avec Progress.Value ?
4) si tu n'affiches que les caractéristiques d'une capsule quelle est l'utilité des Progressbar ?
5) commentes ton code et donnes des noms révélateur à tes contrôles : ListBouchons est plus parlant que List3 par exemple

totoche1748 · Answer

peut etre mal ecrit mais je suis pas un expert en programmation
les progress bar servent a indiquer le nombre total de capsules dans mon programme
ainsi que la valeur total de mes capsules juste pour le fun
je programme sans avoir pris des lecons juste avec les conseils d un ex collegue quand je travaille
je suis maintenant a la retraite est n est plus de contact avec lui
j essai de me débrouillait seul
excuse moi oui a la fin du programme il y a 2 lignes de programme pour les progress barcela marchait bien puisque j ai rentre 3600 capsules 
 soudain une erreur pourquoi

vb95 · Answer

Bonjour !
Tu as écrit : les progress bar servent a indiquer le nombre total de capsules dans mon programme 
ainsi que la valeur total de mes capsules juste pour le fun 
Donc dans ce cas elles sont inutiles : le rôle d'une ProgressBar est de voir l'évolution d'un traitement , un simple Label te renseignerait aussi bien !
As-tu été voir le lien que je t'ai indiqué pour la présentation du code ?
Pour ton information moi aussi je suis retraité et j'ai appris VB 6, VB Net et maintenant C# en suivant les conseils que des intervenants du site m'ont prodigués !
Enlèves les 2 ProgressBar et corriges les erreurs dues à leur suppression : à mon avis cela va résoudre ton problème !

LolixDudu · Answer

la valeur que tu rentres dans ta progress bar ne doit pas t elle dépasser 100 ? je sais qu'en C# la valeur de la progress bar vas de 0 a 100 car c'est un pourcentage

totoche1748 · Answer

non moi j ai rentrer 25000 et cela marche
oui c est un pourcentage mais on peut avoir un pourcentage de 25000
merci pour la reponse

totoche1748 · Answer

bonjour
vb95 je te remercie pour toutes tes réponses
si autre problème je reviendrai vers toi surement
merci encore

totoche1748 · Answer

bonjour 
fausse alerte après avoir rentre plusieurs données le problème est revenu
donc suppression total des Progress bar comme tu me l avait suggéré
encore merci
Ps comment faire un tri décroissant
dans une List box sans devoir ajouter des 1 ou 2 (0) devant chaque chiffre

Progress bar

9 réponses

Votre réponse