Crazy"vb كتب :السلام عليكم ورحمة الله وبركاته
الصراحه ماعرف الكود اللي تريده :confused:
جرب طريقه ثانيه احسن وهي ربطها بقاعدة بيانات.
وان شاء الله الاعضاء اللي بالمنتدى راح يساعدوك

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

كود :

' استعراض العناصر المحفوظة
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyItems As String = Application.UserAppDataRegistry.GetValue("MyItems") ' استعادة العناصر المحفوظة في الريجستري
        If Not String.IsNullOrEmpty(MyItems) Then ' التأكد من وجود بيانات
            Dim Items() As String = MyItems.Split("|") ' تقسيم العناصر
            Me.ListBox1.Items.AddRange(Items.ToArray) ' إضافة العناصر لأداة الليست دفعة واحدة
        End If
    End Sub


    ' حفظ العناصر السابقة والجديدة
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            Dim items As String = "" ' حاوية العناصر
            If Me.ListBox1.Items.Count > 0 Then ' التحقق من احتواء أداة الليست علي عناصر
                For Each s As String In Me.ListBox1.Items ' حلقة للدوران علي عناصر الأداة
                    If s <> "" Then ' التححق من عدم خلو المتغير من بيانات
                        items += s & "|" ' إضافة قيمة العنصر لحاوية العناصر
                    End If
                Next
                items = items.TrimEnd("|") ' حذف آخر علامة لأننا لا نحتاج إليها
                Application.UserAppDataRegistry.SetValue("MyItems", items) ' حفظ البيانات في الريجستري
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error")
        End Try
    End Sub

قد توجد طرق أخرى أسهل من هذا

****
***
**
*

learning.net كتب :طريقه اخرى

اذهب الى
Settings << My Prject
فى خانة ال name اكتب اى اسم .. وليكن itms

وخانة ال Type اختار System.Collections.Specialized.StringCollection

ثم فى حدث Form1_Load ضع هذا الكود

PHP كود :

If My.Settings.itms IsNot Nothing Then
            For Each item In My.Settings.itms
                ListBox1.Items.Add(item)
            Next
        End If 


وفى حدث Form1_FormClosing ضع هذا الكود

PHP كود :

My.Settings.itms.Clear()
        For Each item In ListBox1.Items
            My.Settings.itms.Add(item)
        Next
        My.Settings.Save() 


بالتوفيق ان شاء الله

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


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


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

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
        Me.ListBox1.Items.AddRange(My.Settings.itms.ToArray())
    End If

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    My.Settings.itms = New ArrayList(ListBox1.Items)
    My.Settings.Save()

End Sub 


[COLOR="#FF0000"]تم تصحيح إلى System.Collections

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


ش

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

فان لم تجدها اختر Browse ثم نفتح System.Connections ونختار منها ArrayList


ثم نضع هذا الكود لحفظ عناصر الـ ListBox1

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
        Me.ListBox1.Items.AddRange(My.Settings.itms.ToArray())
    End If

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    My.Settings.itms = New ArrayList(ListBox1.Items)
    My.Settings.Save()

End Sub 


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