ListView et Calcul

Version imprimable

ListView et Calcul

Bonjour !

Je cherche à additionner les champs d'un ListView afin de marquer le total dans une TextBox mais malheureusement je n'y parviens pas :cry:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub btnTotalAReglerFictifTrouverFiche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTotalAReglerFictifTrouverFiche.Click
        Dim souTot As Double
        Dim strSousTot As String
        Dim total As Double
 
        Do While lvEvtTrouverFiche.SelectedItems.Count ' Tant qu'un item est sélectionné
            strSousTot = lvEvtTrouverFiche.SelectedItems(0).SubItems(4).Text ' On sélectionne son prix
            souTot = Convert.ToDecimal(strSousTot) ' On cast le string en double
            total += souTot
        Loop
        tbTotalARegler.Text = total
    End Sub

Si quelqu'un pouvait m'aider la dessus :ccool:

30/06/2010, 23h33
Sehnsucht
Bonsoir,

Ça ressemble à une belle boucle infinie ceci, ta boucle est définie comme suis:

Tant qu'il y a des éléments sélectionnés (au passage il faut noter la conversion implicite de Count (qui renvoie un entier) en Boolean (testé par le While) qui ne renvoie False que si Count vaut 0.

Le souci c'est qu'à aucun moment dans ta boucle tu ne modifie ce nombre d'éléments sélectionnés donc la boucle ne s'arrête jamais (un bon moyen pour faire grimper le total de la facture :D)

Pour résoudre ton souci tu peux:
1. Déselectionner l'élément dans la boucle qui permettra à celle-ci de pouvoir s'arrêter (et mettre While ... .Count > 0 c'est plus propre)
2. Mieux transformer ce While en For (ou For Each) en effet tu connais d'avance le nombre d'itérations à faire)
3. Si tu possèdes le framework 3.5 ou 4 utiliser la méthode d'extension Sum sur ta collection.
Cordialement !

Yes ! :)

Merci Sehnsucht :ccool:

J'ai opté pour la solution For Each ça marche impec, merci pour l'aide :mrgreen:

By the way, si ça intéresse quelqu'un dans l'avenir, je poste mon code :zoubi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Dim souTot As Double
        Dim strSousTot As String
        Dim total As Double
        Dim objLVI As ListViewItem
        Dim lvi As ListView.ListViewItemCollection = DirectCast(lvEvtTrouverFiche.Items, ListView.ListViewItemCollection)
 
        For Each objLVI In lvi
            If objLVI.Selected = True Then
                strSousTot = lvEvtTrouverFiche.SelectedItems(0).SubItems(4).Text ' On sélectionne son prix
                souTot = Convert.ToDecimal(strSousTot) ' On cast le string en double
                total += souTot
                objLVI.Selected = False
            End If
        Next
        tbTotalARegler.Text = total

Encore merci pour l'aide :D

Houlà, ce n'est pas exactement ce à quoi je songeait en parlant de boucle, tu fais plusieurs choses étranges qui heureusement s'annulent entre elles et ainsi te permettent d'obtenir mais c'est presque un coup de chance :aie: voilà en pseudo-code ce que tu fais en gros
Code:

1 2 3 4 5 6 7 Pour chaque élément de ma ListView Si l'élément est sélectionné Alors Ajouter au total la valeur du premier élément sélectionné de ma ListView Désélectionner l'élément de la boucle Fin Si Fin Pour
Ceci fonctionne uniquement parce que dans ta boucle le premier élément sélectionné correspond à l'élément que tu itères dans ta boucle (avec tous ces "éléments" ma phrase n'est pas très claire :aie:)

Pourquoi ne pas "boucler" uniquement sur les éléments sélectionnés ?
Code:

1 2 3 4 5 6 7 8 For Each selectedItem As ListViewItem In lvEvtTrouverFiche.SelectedItems strSousTot = selectedItem.SubItems(4).Text ' On sélectionne son prix souTot = Convert.ToDecimal(strSousTot) ' On cast le string en double total += souTot Next ' Si tu souhaites effacer la sélection décommenter cette ligne ' lvEvtTrouverFiche.SelectedItems.Clear
Cordialement !