Ciao a tutti,
Adesso gli elementi vengono aggiunti correttamente. Il problema adesso è nel rimuoverli correttamente...
Le nuove variabili sono queste:
codice:
'Selezioni Listview
Dim item1 As ListViewItem
Dim sel1 As String
Dim sel2 As String
Dim sel3 As String
Dim insieme1 As String
Dim item2 As ListViewItem
Dim sel4 As String
Dim sel5 As String
Dim sel6 As String
Dim insieme2 As String
Dim item3 As ListViewItem
Dim sel7 As String
Dim sel8 As String
Dim sel9 As String
Dim insieme3 As String
il codice aggiornato del pulsante aggiungi è questo:
codice:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Select Case number
Case 1
sel1 = ListView1.SelectedItems(0).Text
sel2 = ListView1.SelectedItems(0).SubItems(1).Text
sel3 = NumericUpDown1.Value
insieme1 = sel1
item1 = ListView5.Items.Add(insieme1)
item1.SubItems.Add(sel2)
item1.SubItems.Add(sel3)
ListView1.SelectedItems(0).Remove()
Case 2
sel4 = ListView2.SelectedItems(0).Text
sel5 = ListView2.SelectedItems(0).SubItems(1).Text
sel6 = NumericUpDown1.Value
insieme2 = sel4
item2 = ListView5.Items.Add(insieme2)
item2.SubItems.Add(sel5)
item2.SubItems.Add(sel6)
ListView2.SelectedItems(0).Remove()
Case 3
sel7 = ListView3.SelectedItems(0).Text
sel8 = ListView3.SelectedItems(0).SubItems(1).Text
sel9 = NumericUpDown1.Value
insieme3 = sel7
item3 = ListView5.Items.Add(insieme3)
item3.SubItems.Add(sel8)
item3.SubItems.Add(sel9)
ListView3.SelectedItems(0).Remove()
End Select
end sub
mentre il codice di rimozione è sempre lo stesso.Qualcuno avrebbe idea di come fare? perchè al momento se aggiungo gli elementi in ordine dal primo listview al terzo gli elementi si rimuovono e finiscono nelle loro listview di appartenenza, il problema è che in questo caso me le rimuove solamente se parto dall'ultima e le rimuovo una dopo l'altra sempre in ordine, se invece poi inizio a rimuoverli in ordine casuale un item finisce sempre per andare nel posto sbagliato, altre volte ce ne finiscono 2...