Discussion :

[petchy]

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

[petchy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DarkVader]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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