visualbasic.net (windows form)

[janka1]

tengo un pequeño problema espero me ayuden.

tengo dos listbox OK

En el load tengo un For que escribe en el listbox1 del 1 al 20 y en el listbox2 esta limpio yo kiero k' al seleccionar 2 o mas numeros del listbox1 se SUMEN y que la suma salga en el listbox2 y que al deseleccionar cualkier numero seleccionado antes se RESTE OK

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Short
ListBox1.Items.Clear()
ListBox2.Items.Clear()
For i = 1 To 20
ListBox1.Items.Add(i.ToString)
Next
End Sub

digamos que seleccione los numeros 1, 3 y 5 la suma de los numeros seleccionados osea 1+3+5=9 el resultado me tiene que salir en el listbox2

LISTBOX1 LISTBOX2
1 9
2
3
4
5
.
.
.
20
supongamos que deseleccione el numero 3 me quedarian 1+5=6
LISTBOX1 LISTBOX2
1 6
2
3
4
5
.
.
.
20
gracias de antemano

[Avellaneda]

Iniciado por janka1

tengo un pequeño problema espero me ayuden.

tengo dos listbox OK

En el load tengo un For que escribe en el listbox1 del 1 al 20 y en el listbox2 esta limpio yo kiero k' al seleccionar 2 o mas numeros del listbox1 se SUMEN y que la suma salga en el listbox2 y que al deseleccionar cualkier numero seleccionado antes se RESTE OK
....

gracias de antemano

Podrías hacer algo como esto:

Código:

Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Dim Suma As Integer = 0
        ListBox2.Items.Clear()
        For i As Short = 0 To ListBox1.Items.Count - 1
            If ListBox1.GetSelected(i) = True Then
                Suma += Convert.ToInt32(ListBox1.Items(i).ToString)
            End If
        Next
        ListBox2.Items.Add(Suma)
    End Sub

Nota:Se asume que la propiedad SelectionMode del ListBox1, la tienes a MultiSimple

[janka1]

muchichisimas gracias por la informacion