Somar valores de uma listview

[mauricio2304 0]

Olhem a figura aí:

 

 

 

Como vcs viram eu tenho uma listview onde eu tenho aquele adicionar produto e cada vez que eu vou adicionando o produto ele joga para a listview, pois bem, eu queria que ao final ele somasse aquele campo com o nome valor na listview para o campo Valor Total, meu código até agora:

 

Private Sub cmdAddProduto_Click()

 

Dim itmLista As ListItem

 

 

Set itmLista = lswListaCompras.ListItems.Add(, , cboPedProduto.Text)

itmLista.SubItems(1) = txtQuantidade.Text

itmLista.SubItems(2) = txtValorProduto.Text

 

End Sub

 

 

Valew galera!!!

[Luizgrs 0]

A cada inserção você pega o valor atual da textbox de total, utiliza Val() e transforma para número e soma com o novo valor e joga de novo para a textbox total.

[Graymalkin 0]

Ou então percorrer os itens da listview acumulando o valor daquele subitem específico.Abraços,Graymalkin