30-03-13, 12:46 AM
(آخر تعديل لهذه المشاركة : 30-03-13, 01:26 AM {2} بواسطة abdullahsami.)
[COLOR="#FF0000"]
جايبلكم اليوم جود راع لى حفظ items الى فى Listbox Combobox ListView
فى المشروع لا تحتاج الى قاعده بينات او ملف تيكست لى الحفظ هذا الكود يحفظ كل شيئ داخل المشروع نفسه ها هو الكود ارجو من الجميع الاستفاده منه
اولآ نضيف هذا الكود اعلى الفروم تحت Public Class RainBow
فى هذا الكود فى الحدث Load
و هذا فى حدث FormClosing
اذا كان هناك اكثرمن ListBox Combobox ListView
يتم تغير الكود و هذا مشروع توضيحى و للشرح اكثر
ملحوظة يمكنك تغير اسم ListBox و Item و APP_NAME, SECTION_NAME لى الذى تريدة [ATTACH]2226[/ATTACH][/COLOR]
جايبلكم اليوم جود راع لى حفظ items الى فى Listbox Combobox ListView
فى المشروع لا تحتاج الى قاعده بينات او ملف تيكست لى الحفظ هذا الكود يحفظ كل شيئ داخل المشروع نفسه ها هو الكود ارجو من الجميع الاستفاده منه
اولآ نضيف هذا الكود اعلى الفروم تحت Public Class RainBow
كود :
Private Const APP_NAME As String = "ListBox"
Private Const SECTION_NAME As String = "Item"
كود :
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
كود :
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 و Item و APP_NAME, SECTION_NAME لى الذى تريدة [ATTACH]2226[/ATTACH][/COLOR]