Listview Visual Basic 2010

Question

Ola pessoal,

Estou com um probleminha e n&atilde;o consigo resolver...

Queria fazer a soma de alguns valores que est&atilde;o em um listview que eu preenchi. Eu consegui faze a soma de um outro medo, mas queria saber como fa&ccedil;o para fazer a soma de uma coluna, apenas uma coluna. N&atilde;o consegui fazer esse m&eacute;todo da soma da coluna.

Algu&eacute;m pode me explicar?

Eis o c&oacute;digo que usei para criar as linhas e colunas no Listview:

[COLOR=#0000ff]Private Sub[/COLOR] Criar_ListView()
       [COLOR=#00ff00] 'Private usado para Criar a ListView[/COLOR]

[COLOR=#4169e1]         Dim [/COLOR]LV [COLOR=#4169e1]As New [/COLOR][COLOR=#00bfff]ListView[/COLOR]

ListView1.Bounds = ListView1.Bounds 'New Rectangle(New Point(10, 10), New Size(300, 200))

listView1.View = [COLOR=#00bfff]View[/COLOR].Details [COLOR=#00ff00]'Define a exibi&ccedil;&atilde;o[/COLOR]
        listView1.LabelEdit = [COLOR=#4169e1]False [/COLOR][COLOR=#00ff00]' Usuario nao pode alterar nada na listview[/COLOR]
        listView1.AllowColumnReorder = [COLOR=#4169e1]True [/COLOR][COLOR=#00ff00]'Permite alterar a ordem das linhas[/COLOR]
        ListView1.CheckBoxes = [COLOR=#4169e1]True [/COLOR][COLOR=#00ff00]'Exibe os Checkbox's[/COLOR]
        listView1.GridLines = [COLOR=#4169e1]True [/COLOR][COLOR=#00ff00]'Exibe as linhas [/COLOR]
        listView1.Sorting = [COLOR=#00bfff]SortOrder[/COLOR].Ascending [COLOR=#00ff00]'Ordena os itens em ordem [/COLOR]alfab&eacute;tica

' Cria coluna para os itens e subitens
        ListView1.Columns.Add([COLOR=#8b0000]C&oacute;digo[/COLOR], 80, [COLOR=#00bfff]HorizontalAlignment[/COLOR].Left)
        ListView1.Columns.Add([COLOR=#8b0000]Produto[/COLOR], 80, [COLOR=#00bfff]HorizontalAlignment[/COLOR].Left)
        ListView1.Columns.Add([COLOR=#8b0000]Quantidade[/COLOR], 80, [COLOR=#00bfff]HorizontalAlignment[/COLOR].Left)
        ListView1.Columns.Add([COLOR=#8b0000]Pre&ccedil;o da Venda Unit&aacute;ria[/COLOR], 80, [COLOR=#00bfff]HorizontalAlignment[/COLOR].Left)
        [COLOR=#ff0000]ListView1.Columns.Add(Valor Total, 80, HorizontalAlignment.Left)[/COLOR]

' inclui o Listive a cole&ccedil;&atilde;o de controles
        [COLOR=#00bfff]Me[/COLOR].Controls.Add(listView1)

[COLOR=#0000ff]End Sub[/COLOR]

Os itens s&atilde;o adicionados depois com outro comando, e eu queria fazer a soma da coluna Valor Total (Esta em vermelho) e mostrar em um textbox.

Answer

Itere entre todas as linhas, somando o valor da &uacute;ltima coluna:

[code=rich]
Dim i as Integer
Dim Soma as Single = 0

For i = 0 to ListView1.Items.Count - 1
    Soma += Convert.ToSingle(ListView1.Items(i).Subitems([COLOR=Red]Numerodacoluna[/COLOR]).Text)
Next
[/code]Troque [COLOR=red]Numerodacoluna [/COLOR]pelo n&uacute;mero da coluna que for somar. No seu caso, acredito ser a coluna 4. N&atilde;o testei o c&oacute;digo, mas acredito que d&ecirc; para a entender a l&oacute;gica. Basicamente acesso um subitem espec&iacute;fico (que no seu caso representa a coluna) de cada item (linha) e somo na vari&aacute;vel Soma. Antes disso eu converto ela para Single, caso contr&aacute;rio voc&ecirc; estaria somando uma String.

Answer

Fergo,Mas com este codigo, o programa nao esta somando a coluna, e sim os itens adicionados. Esse codigo eu usei, eu queria somar a coluna, pois assim, se eu remover o item da lista, automaticamente, o textbox fara uma nova conta subtraindo o valor total removido.

Acho que ficou meio confuso né kkkkkk

Acho que ficou meio confuso n&eacute; kkkkkk

Answer

O que voc&ecirc; quer dizer por somar a coluna? Eu entendi que voc&ecirc; quer somar o valor de cada item em determinada coluna.

Answer

Eu quero somar todos os valores da coluna 4 e mostrar o valor uma um textbox, e quando eu excluir um alinha do listview, o valor correspondente a esta linha seja subtra&iacute;do do textbox.

Acho que nao tinha explicado direito... kkk

Answer

O c&oacute;digo que postei faz exatamente isso. Cabe a voc&ecirc; apenas atribuir o valor da soma ao textbox e refazer o c&aacute;lculo sempre que houver alguma altera&ccedil;&atilde;o na lista.

Answer

Sim, realmente ele faz a soma sim. Mas &eacute; que eu nao consegui caso eu exclua algum item, porque se eu excluir ele nao subtrai.

Pode me ajudar???

Answer

Fergo,

Finalmente consegui fazer o que eu queria.

Agora eu adiciono itens na lista e o textbox soma e caso eu retire, o textbox subtrai.

esta &eacute; a formula para somar os valores:

:veja:Private Sub Somar_Itens_Valores()
        'Private usado para somar os valroes dos itens adicionados na lita.
        Dim i As Integer
        Dim Soma As Single = 0

For i = 0 To ListView1.Items.Count - 1
            Soma += CDbl(ListView1.Items(i).SubItems(4).Text)
        Next
        TextBox5.Text = CDbl(Soma)
    End Sub

E esta &eacute; para deletar o item da listview e retirar o valor:

:veja:Private Sub Retirar_Item_Listaview()
        'Private usado para retirar o Item da Listview
        Dim soma As Decimal
        Dim linha As Integer = 0

Dim Resposta As DialogResult = Windows.Forms.MessageBox.Show(Confirma Exclus&atilde;o do Item da Lista de Compras?, _
                                                                    Deletar Itens Lista, MessageBoxButtons.YesNo, _
                                                                    MessageBoxIcon.Question)

If Resposta = Windows.Forms.DialogResult.Yes Then

For Each ListItem As ListViewItem In ListView1.Items

If ListItem.Checked Then

For x = 1 To 1
                        'Listitem.Index = Usado para retirar o item atual que esta selecionado.
                        soma += Convert.ToSingle(ListView1.Items(ListItem.Index).SubItems(4).Text) 'Retira o Valor da Soma Total
                        ListView1.Items.RemoveAt(ListItem.Index) 'Retira o Item da Lista
                    Next

End If
            Next
        End If
        TextBox5.Text = CDbl(TextBox5.Text) - soma
        FormatarValores()

End Sub

Sei que n&atilde;o &eacute; o melhor algor&iacute;timo, mas funcionou legal...

Vlw manolo pelas Dicas...

:punk:

Ferramentas

Mover Tópico