سیو کردن تایم های list

[alishademan]

سلام دوستان می خوام ایتم های لیست باکس رو سیو کنم یعنی همون سیو ستینگ منظورمه ها

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:

Private Sub Command2_Click()
Dim i&
With List1
For i& = 0 To .ListCount - 1
SaveSetting "MyApp", "LB_Settings", i& , .List( i&)
Next i&
End With
End Sub


موفق باشید

[alishademan]

سلام داداش اقا این کد رو من امتحان کردم ولی این نیست اونیکی من می خوام

[محسن واژدی]

سلام
SaveSetting داده را در ریجستری ذخیره میکند، که کد بالا هم آیتم های لیست باکس را در ریجستری ذخیره میکند
اگه این کد مورد نظرتان نیست، بیشتر توضیح دهید

موفق باشید

[alishademan]

دوست من می خوامم سیو شه بعدن دوباره وقتی نرم افزار رو باز کردم سیو شده باشه ولی این رو من استفاده می کنم وفتی می بنم نرم افزارم رو دوباره باز می کنم ایتم هام پاک شده

[محسن واژدی]

بله، این کد فقط داده های لیست را در ریجستری ذخیره میکند، برای بارگذاری آیتم های ذخیره شده از تابع GetSetting استفاده کنید،

موفق باشید

[محسن واژدی]

سلام،
برای ذخیره لیست باکس، کد زیر:

Sub LoadListBox(ListBox As ListBox)
On Error Resume Next
Dim i&, curSett$
With ListBox
Do


curSett$ = GetSetting("MyApp", "LB_Settings", i&)
If curSett$ > Empty Then
ListBox.AddItem curSett$
End If
i = i + 1
Loop Until curSett$ = Empty
End With
End Sub


و برای بارگذاری لیست باکس، کد زیر:


Sub LoadListBox(ListBox As ListBox)
On Error Resume Next
Dim i&, curSett$
With ListBox
Do


curSett$ = GetSetting("MyApp", "LB_Settings", i&)
If curSett$ > Empty Then
ListBox.AddItem curSett$
End If
i = i + 1
Loop Until curSett$ = Empty
End With
End Sub


نمونه ذخیره لیست:

Private Sub Command2_Click()
SaveListBox List1
End Sub


نمونه بارگذاری لیست:

Private Sub Command1_Click()
LoadListBox List1
End Sub


موفق باشید