[VB] Come aggiornare prezzo dopo rimozione elemento da ListBox

[gimmi45]

salve a tutti sto facendo un esercizio in cui da una parte ci sono due listbox con dei elementi all' interno e che hanno un costo, nella prima list box gli elementi costano 1 € e nella seconda 0.80 dopo ho creato una list box in cui gli elementi selezionati nelle prime due listbox vengono trasferiti nella terza listbox grazie ad un bottone con sotto una label che indichi il prezzo totale pero se voglio eliminare qualche l'elemento dalla terza listbox tramite un bottone e con il cambiamento del prezzo totale come faccio ?
questo è il mio codice

Dim salati, dolci As Boolean
    Dim costo, totale As Double
    Private Sub btnaggiungi_Click(sender As System.Object, e As System.EventArgs) Handles btnaggiungi.Click
        If salati = True Then
            lst3d.Items.Add(lstsalati.SelectedItem)
        Else


            lst3d.Items.Add(lstdolci.SelectedItem)


        End If
        totale = totale + costo
        lblcosto.Text = CStr(totale)
    End Sub




    Private Sub btnrimuovi_Click(sender As System.Object, e As System.EventArgs) Handles btnrimuovi.Click


        If salati = True Then
            lst3d.Items.Remove(lstsalati.SelectedItem)


        Else


            lst3d.Items.Remove(lstdolci.SelectedItem)


        End If


        totale = totale - costo
        lblcosto.Text = CStr(totale)
    End Sub


    Private Sub btnesci_Click(sender As System.Object, e As System.EventArgs) Handles btnesci.Click
        End
    End Sub


    Private Sub lstsalati_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstsalati.SelectedIndexChanged
        salati = True
        dolci = False
        costo = 1
    End Sub


    Private Sub lstdolci_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstdolci.SelectedIndexChanged
        dolci = True
        salati = False
        costo = 0.8
    End Sub

come faccio con il bottone rimuovi

[renygade]

salve a tutti sto facendo un esercizio in cui da una parte ci sono due listbox con dei elementi all' interno e che hanno un costo, nella prima list box gli elementi costano 1 € e nella seconda 0.80 dopo ho creato una list box in cui gli elementi selezionati nelle prime due listbox vengono trasferiti nella terza listbox grazie ad un bottone con sotto una label che indichi il prezzo totale pero se voglio eliminare qualche l'elemento dalla terza listbox tramite un bottone e con il cambiamento del prezzo totale come faccio ?
questo è il mio codice

Dim salati, dolci As Boolean
    Dim costo, totale As Double
    Private Sub btnaggiungi_Click(sender As System.Object, e As System.EventArgs) Handles btnaggiungi.Click
        If salati = True Then
            lst3d.Items.Add(lstsalati.SelectedItem)
        Else


            lst3d.Items.Add(lstdolci.SelectedItem)


        End If
        totale = totale + costo
        lblcosto.Text = CStr(totale)
    End Sub




    Private Sub btnrimuovi_Click(sender As System.Object, e As System.EventArgs) Handles btnrimuovi.Click


        If salati = True Then
            lst3d.Items.Remove(lstsalati.SelectedItem)


        Else


            lst3d.Items.Remove(lstdolci.SelectedItem)


        End If


        totale = totale - costo
        lblcosto.Text = CStr(totale)
    End Sub


    Private Sub btnesci_Click(sender As System.Object, e As System.EventArgs) Handles btnesci.Click
        End
    End Sub


    Private Sub lstsalati_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstsalati.SelectedIndexChanged
        salati = True
        dolci = False
        costo = 1
    End Sub


    Private Sub lstdolci_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles lstdolci.SelectedIndexChanged
        dolci = True
        salati = False
        costo = 0.8
    End Sub

come faccio con il bottone rimuovi

Fatto così il codice non va molto bene, perché si, forse è vero che riesci ad aggiungere gli elementi nella 3 listbox, ma ti complichi la vita ora che li devi rimuovere.
Basta che definisci 2 classi, appunto dolce e salato con le loro proprietà (nome e costo) e quando aggiungi gli elementi alla 3 listbox aggiungi oggetti veri e propri. Così facendo, il programma che hai fatto tu si riassume in poche righe ben strutturate...

[LeleFT]

Ho spostato la discussione nel forum "Visual Basic e .NET Framework".
Sistemerò il titolo, che non è conforme al Regolamento interno: il titolo deve dare un'idea del contenuto della discussione.

Manca la versione di VB che stai usando (dato obbligatorio, essendocene millemila).

Ho anche aggiunti i tag CODE: quando posti del codice, inseriscilo all'interno degli appositi tag

 ...

, così da preservare formattazione ed indentazione e renderlo leggibile.


Ciao.

[gimmi45]

devo avere solo due bottoni uno aggiungi e uno rimuovi non posso averne di più

[oregon]

devo avere solo due bottoni uno aggiungi e uno rimuovi non posso averne di più

E chi ha detto il contrario?

[gimmi45]

mi potresti mandare il codice per vedere perchè non ho capito come farlo

[oregon]

mi potresti mandare il codice per vedere perchè non ho capito come farlo

Io non ne ho codice .... forse ti riferivi a renegade che ti ha risposto prima?

[gimmi45]

eh si volevo dirlo a lui

[renygade]

eh si volevo dirlo a lui

Ma nemmeno io ho il codice.
Il mio era più che altro un suggerimento per strutture il codice in maniera più adeguata secondo il paradigma oop