كود راع جدآ لى Listbox Combobox ListView - نسخة قابلة للطباعة

[COLOR="#FF0000"]

جايبلكم اليوم جود راع لى حفظ items الى فى Listbox Combobox ListView
فى المشروع لا تحتاج الى قاعده بينات او ملف تيكست لى الحفظ هذا الكود يحفظ كل شيئ داخل المشروع نفسه ها هو الكود ارجو من الجميع الاستفاده منه

اولآ نضيف هذا الكود اعلى الفروم تحت Public Class RainBow

كود :

Private Const APP_NAME As String = "ListBox"

    Private Const SECTION_NAME As String = "Item"

فى هذا الكود فى الحدث Load

كود :

Dim i As Integer = 0

                Do

                    Dim L1 As String = GetSetting(APP_NAME, SECTION_NAME, "Item" & i.ToString())

                    If L1.Length = 0 Then Exit Do

                    PlayerListboxLessPretty1.Items.Add(L1)

                    i += 1

                Loop

و هذا فى حدث FormClosing

كود :

Try

            DeleteSetting(APP_NAME, SECTION_NAME)

        Catch ex As Exception

        End Try

        For i As Integer = 0 To PlayerListboxLessPretty1.Items.Count - 1

            SaveSetting(APP_NAME, SECTION_NAME, "Item" & i.ToString(), PlayerListboxLessPretty1.Items(i).ToString())

        Next i

اذا كان هناك اكثرمن ListBox Combobox ListView
يتم تغير الكود و هذا مشروع توضيحى و للشرح اكثر
ملحوظة يمكنك تغير اسم ListBox و Item و APP_NAME, SECTION_NAME لى الذى تريدة [ATTACH]2226[/ATTACH][/COLOR]