دیگه برادر من دیگه از این جامع تر
ولی یه توضیح مختصر
اولا که هرجا List box بود رو به Textbox ویا نام تبدیلی آن تغییر بده
دوم اینکه
در قسمت
Dim Num As Integer = GetSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", 0)
For i As Integer = 0 To Num - 1
lst.Items.Add(GetSetting(Application.ExecutablePat h, "ListBox Items (It can be anything else)", _
"Item " & i, 0))
Next
از GetSetting برای بارگذاری هستش که باید در جایی که میخوای مطلب رو ازرجیستری بخونی قرار بدی
سوم اینکه
'Saving the number of Items in the List box :
SaveSetting(Application.ExecutablePath, "List Box (It can be anything else)", _
"List Box Count (It can be anything else)", lst.Items.Count)
'Saving each item :
For i As Integer = 0 To lst.Items.Count - 1
SaveSetting(Application.ExecutablePath, "List Box Items (It can be anything else)", _
"Item " & i, lst.Items.Item(i))
Next
از SaveSetting برای ذخیره مطالب در رجیستری میباشه
وقسمت اول هم که مشخصه برای پرکردن List box میباشد که اگر Textbox خالی نباشد عنوان را به Listbox میافزاید
که شما به این قسمت نیاز ندارید چرا که شما ایتم های لیست باکس و یا کمبوباکس را ذخیره نمیکنید





پاسخ با نقل قول