[learning.net]

للنقل بدون تكرار
كود الاستاذ just.coder صحيح 100%
واذا كنت تريد نقل اكثر من عامود
نفس الكود مع ذياده بسيطه

PHP كود :

Try
            For i As Integer = 0 To ListView1.Items.Count - 1
                Dim bol As Boolean = True
                For t As Integer = 0 To Form2.ListView1.Items.Count - 1
                    If Form2.ListView1.Items(t).SubItems(1).Text = ListView1.Items(i).SubItems(1).Text Then
                        bol = False
                    End If
                Next
                If bol = True Then
                    Dim itm As New ListViewItem
                    itm.Text = Form2.ListView1.Items.Count + 1
                    itm.SubItems.Add(ListView1.Items(i).SubItems(1))
                    itm.SubItems.Add(ListView1.Items(i).SubItems(2))
                    itm.SubItems.Add(ListView1.Items(i).SubItems(3))
                    Form2.ListView1.Items.Add(itm)
                End If
            Next
            MsgBox("تم النقل", MsgBoxStyle.Information)
        Catch ex As Exception

        End Try 


للحفظ فى ال setting

اولا اذهب الى My Project > Settings
فى خانة ال Name اكتب Itemss
وفى خانة ال Type اختار system.collections.specialized.stringcollection

ثم اذهب الى صفحة تحرير الكود تبع الفورم وفى اعلى الصفحه اكتب هذا الكود

PHP كود :

Imports System.Collections.Specialized 


دلوقتى اختار اى حدث تريده و اكتب هذا الكود للحفظ فى ال Settings

للحفظ

PHP كود :

My.Settings.Itemss = New StringCollection()

        Dim items = New List(Of String)()

        For Each item As ListViewItem In Me.ListView1.Items
            Dim subitems = New List(Of String)()

            For Each subitem As ListViewItem.ListViewSubItem In item.SubItems
                subitems.Add(subitem.Text)
            Next

            items.Add(String.Join("|", subitems))
        Next

        My.Settings.Itemss.AddRange(items.ToArray())
        My.Settings.Save() 


ثم اختار اى حدث تريده لتعبئة الليست فيو بالبيانات المحفوظه فى ال Settings

PHP كود :

Dim items = New ListViewItem(My.Settings.Itemss.Count - 1) {}

        Dim i As Integer = 0
        While i < items.Length
            items(i) = New ListViewItem(My.Settings.Itemss(i).Split("|"c))
            i += 1
        End While

        Me.ListView1.Items.AddRange(items) 


وهذا لمسح البيانات المحفوظه فى ال Settings

PHP كود :

My.Settings.Itemss.Clear() 


وهذا الكود يمكن ان تحتاجه

لمسح البيانات المتشابهه Remove Duplicates فى اى ليست فيو

PHP كود :

Public Sub RemoveDuplicates()
        Dim item1 As ListViewItem
        Dim item2 As ListViewItem
        For i As Integer = ListView1.Items.Count - 1 To 0 Step -1
            item1 = ListView1.Items(i)
            For s As Integer = i + 1 To ListView1.Items.Count - 1 Step 1

                item2 = ListView1.Items(s)

                If item1.SubItems(1).Text = item2.SubItems(1).Text Then
                    ListView1.Items.Remove(item2)
                    Exit For
                End If
            Next s
        Next (i)
    End Sub