[AHMED HUSSIEN]

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

[boty]

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

أعذر جهلي أخي الكريم
ليس لدي أي فكرة عن كيفية أستخدامها
ارجو المساعدة بكود الأستخدام

[boty]

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

اسف اخي فكودك لن ينفع معي
اشكرك على اهتمامك كثييييرا

[AHMED HUSSIEN]

المثال بعد التعديل

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

[boty]

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 


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

[boty]

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



طريقة حفظ واسترجاع عناصر 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 


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

جاري التجربة أخي شكرا لك

[boty]

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




طريقة حفظ واسترجاع عناصر 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 


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

الطريقة ناجحة تماما أخي شكرا جزيلا لك

[boty]

أشكركم جميعا و أشكر كل من ساعدني