Je dois ajouter tous les éléments dans un ListBox dans une variable "total"

Question

Voici un exemple de la boucle For que j'essaie d'exécuter où lstCost est mon ListBox qui est formé en sélectionnant des options de deux autres ListBox et calculer un total pour ces options pour créer un total d'éléments et totalCost est la variable où j'essaie d'enregistrer le total de tous les éléments de la liste.

Dim totalCost As Integer 
    For x As Integer = 0 To lstCost.Items.Count - 1 
     totalCost += Val(lstCost.Items.Item(x)) 
    Next 
    txtTotalCost.Text = totalCost.ToString 

Pour une raison quelconque, je me retrouve avec 0 comme mon total dans mon txtTotalCost TextBox. Quelqu'un peut-il penser à une raison quelconque?

Answer 1

Dim totalCost As Double = 0 

For x As Integer = 0 To lstCost.Items.Count - 1 

    totalCost += DirectCast(lstCost.Items.Item(x).ToString.trim,Double) 

Next 

txtTotalCost.Text = totalCost.ToString 

en fonction de vos valeurs listbox vous pouvez le modifier à Decimal si nécessaire