additionner une colonne

bonjour,
j'ai une Listview avec 5 colonnes.
dans une colonne il y a des heures.
comment faire pour additionner les heures et mettre le résulta dans un textbox

merci
@plus

Code:

---

1 2 3 4 5

Dim mon_total As Long For i = 1 To List.ListItems.Count mon_total = mon_total + List.ListItems(i).SubItems(3) Next Text2.Text = mon_total

---

Bonsoir,

Même si VB6 est très permissif et permet par exemple d'additionner directement
des Strings (.ListItems(i).SubItems(3)) dans un long (mon_total) en opérant de lui-même la conversion
il n'en demeure pas moins que ce n'est pas «propre» que de pratiquer ainsi.

Outre qu'il est judicieux de déclarer TOUTES les variables, il est préférable d'utiliser

Code:

---

1 2 3 4 5

Dim mon_total As Long, i As Long For i = 1 To List.ListItems.Count mon_total = mon_total + Clng(List.ListItems(i).SubItems(3)) Next Text2.Text =CStr( mon_total)

---

voir

Code:

---

mon_total = mon_total + Clng(Val(List.ListItems(i).SubItems(3)))

---