COMO FAZER CONTAS COM LISTBOX

FERATK 08/08/2010 13:45:49
#349731
Pessoal presciso fazer a operação matematica de soma com os valores de uma listbox.
Eu quero que some todos os valores e de o resultado em uma nova linha do listbox. Obs.: Esta listbox não terá um número fixo de linhas.
Como eu faço isso?

Vlw pela ajuda
JWCELYO 08/08/2010 14:27:54
#349735
FERATK poste o exemplo de seu listbox para fica mas claro
FERATK 08/08/2010 14:49:55
#349738
Esta aqui o exemplo:
TECLA 08/08/2010 17:50:04
#349744
Supondo que o resultado esteja em uma variável, é só ADD mais um ITEM ao controle.
lstBox.Items.Add(soma)
FERATK 08/08/2010 17:56:55
#349746
Citação:

:
Supondo que o resultado esteja em uma variável, é só ADD mais um ITEM ao controle.

lstBox.Items.Add(soma)


Tecla o Que estou querendo saber é como eu faço pra que na ultima linha seja dito o resultado.
JONATHANSTECKER 08/08/2010 20:19:52
#349752 Resposta escolhida
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Soma As Double = 0

[txt-color=#007100][ô] Aqui você faz a soma de todos os items da lista com excesso do último.[/txt-color]
For N As Integer = 0 To Me.ListBox1.Items.Count - 2
Soma += Me.ListBox1.Items(N)
Next

[txt-color=#007100][ô] Aqui você atualiza o último item com a variável soma.[/txt-color]
Me.ListBox1.Items(Me.ListBox1.Items.Count - 1) = Soma
End Sub
FERATK 08/08/2010 21:34:43
#349754
Citação:

:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Soma As Double = 0

[txt-color=#007100][ô] Aqui você faz a soma de todos os items da lista com excesso do último.[/txt-color]
For N As Integer = 0 To Me.ListBox1.Items.Count - 2
Soma += Me.ListBox1.Items(N)
Next

[txt-color=#007100][ô] Aqui você atualiza o último item com a variável soma.[/txt-color]
Me.ListBox1.Items(Me.ListBox1.Items.Count - 1) = Soma
End Sub


Cara você resolveu mais um problema meu...



Muito obrigado a vc e a todos os outros que colaboraram
Tópico encerrado , respostas não são mais permitidas
Voltar