Modo discussione | Modo lineare

TheBassMonst3r · 27-04-2011 12:18

Ciao a tutti,

Adesso, se tutto va bene questa è l'ultima funzione che devo creare per finire questo Shop.

Praticamente nel carrello adesso ho una lista di prodotti, una volta che clicco su procedi voglio che questo carrello si svuoti e inserisca tutti i prodotti nel carrello nei rispettivi inventari.

Questo è il codice che ho creato, la funzione principale funziona...il problema però è che fa quest'operazione solo ogni volta che clicco sul pulsante ed inoltre elimina solo un oggetto alla volta...(questo lo fa se levo il for each evidenziato nel codice) altrimenti se ne esce dicendo che non puo' copiare "GeForce 295GTX" perchè prima bisogna rimuoverla dal carrello e questo lo fa solamente quando ci sono piu' oggetti nel carrello.

Il codice del pulsante è questo:

Codice:

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim lista1 As ListViewItem

        Dim lista2 As ListViewItem

        Dim lista3 As ListViewItem

        Dim item As ListViewItem

        Dim item2 As ListViewItem

        item2 = ListView5.Items(0)

        lista1 = ListView5.Items(0)

        lista2 = ListView5.Items(0)

        lista3 = ListView5.Items(0)

        For Each item In ListView5.Items

            item2.Selected = True ' seleziona tutti quanti gli elementi nel carrello

        Next

       [b] For Each item2 In ListView5.Items[/b]

            If lista1.SubItems(3).Text = "lista1" Then

                ListView5.Items.Remove(lista1)

                ListView4.Items.Add(lista1)

            End If

            If lista2.SubItems(3).Text = "lista2" Then

                ListView5.Items.Remove(lista2)

                ListView6.Items.Add(lista2)

            End If

            If lista3.SubItems(3).Text = "lista3" Then

                ListView5.Items.Remove(lista3)

                ListView7.Items.Add(lista3)

            End If

    [b]    Next[/b]

    End Sub

miniBill · 27-04-2011 15:14

Comincia a dare nomi ai tuoi controlli Smile

È illeggibile il codice se si chiamano ListView<n>, Button<n>, ...
Ah, a proposito, il tag code non supporta il bbcode al suo interno, ovviamente...

Modo discussione \| Modo lineare [VB.NET]Portare oggetti nell'inventario
Autore	Messaggio