الشاكي لله كتب :استعمل النوع System.Collections.Specialized.StringCollection

AHMED HUSSIEN كتب :لا
لكن يمكن تعديل المثال ليناسب هذا الغرض

AHMED HUSSIEN كتب :المثال بعد التعديل

اذا افادك فلا تبخل على بالتقييم

طريقة حفظ واسترجاع عناصر ListView1 في Settings

نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList


فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList


ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If My.Settings.itms IsNot Nothing Then
        For Each itm As String In My.Settings.itms
            Me.ListView1.Items.Add(New ListViewItem(Split(itm, vbTab)))
        Next
    End If

End Sub


Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

    Dim itms As New List(Of String)
    For Each itm As ListViewItem In ListView1.Items
        itms.Add(String.Join(vbTab, (From sitm As ListViewItem.ListViewSubItem In itm.SubItems Select sitm.Text).ToArray))
    Next
    My.Settings.itms = New ArrayList(itms)
    My.Settings.Save()

End Sub 


@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته



طريقة حفظ واسترجاع عناصر ListView1 في Settings

نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList


فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList


ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If My.Settings.itms IsNot Nothing Then
        For Each itm As String In My.Settings.itms
            Me.ListView1.Items.Add(New ListViewItem(Split(itm, Chr(Keys.Tab))))
        Next
    End If

End Sub



Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

    Dim itms As New List(Of String)
    For Each itm As ListViewItem In ListView1.Items
        Dim row As String = String.Empty
        For Each c As Object In itm.SubItems
            row &= c.Text & Chr(Keys.Tab)
        Next
        itms.Add(row)
    Next
    My.Settings.itms = New ArrayList(itms)
    My.Settings.Save()

End Sub 


السلام عليكم ورحمة الله وبركاته

@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




طريقة حفظ واسترجاع عناصر ListView1 في Settings

نذهب الى خصائص المشروع عن طريق النقر مرتين على My Project في نافذة مستعرض المشروع في اليمين
أو من القائمة Project نختار Properties آخر خيار
ثم نحدد التبويب Settings في اليسار
نكتب في Name اسم المتغير وليكن itms
نحدد في Type الخيار System.Collections.ArrayList


فان لم نجدها نختار ...Browse في الأخير، ثم نوسع System.Collections ونختار منها ArrayList


ثم نضع هذا الكود لحفظ واسترجاع عناصر ListView1

PHP كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    If My.Settings.itms IsNot Nothing Then
        For Each itm As String In My.Settings.itms
            Me.ListView1.Items.Add(New ListViewItem(Split(itm, Chr(Keys.Tab))))
        Next
    End If

End Sub



Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

    Dim itms As New List(Of String)
    For Each itm As ListViewItem In ListView1.Items
        Dim row As String = String.Empty
        For Each c As Object In itm.SubItems
            row &= c.Text & Chr(Keys.Tab)
        Next
        itms.Add(row)
    Next
    My.Settings.itms = New ArrayList(itms)
    My.Settings.Save()

End Sub 


السلام عليكم ورحمة الله وبركاته