View Full Version : سیو کردن تایم های list
alishademan
چهارشنبه 06 مهر 1390, 00:26 صبح
سلام دوستان می خوام ایتم های لیست باکس رو سیو کنم یعنی همون سیو ستینگ منظورمه ها
محسن واژدی
چهارشنبه 06 مهر 1390, 17:15 عصر
سلام علیکم
کد زیر را بررسی کنید:
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
یک شنبه 10 مهر 1390, 20:51 عصر
سلام داداش اقا این کد رو من امتحان کردم ولی این نیست اونیکی من می خوام
محسن واژدی
چهارشنبه 13 مهر 1390, 17:15 عصر
سلام
SaveSetting داده را در ریجستری ذخیره میکند، که کد بالا هم آیتم های لیست باکس را در ریجستری ذخیره میکند
اگه این کد مورد نظرتان نیست، بیشتر توضیح دهید
موفق باشید
alishademan
چهارشنبه 13 مهر 1390, 23:03 عصر
دوست من می خوامم سیو شه بعدن دوباره وقتی نرم افزار رو باز کردم سیو شده باشه ولی این رو من استفاده می کنم وفتی می بنم نرم افزارم رو دوباره باز می کنم ایتم هام پاک شده
محسن واژدی
چهارشنبه 13 مهر 1390, 23:22 عصر
بله، این کد فقط داده های لیست را در ریجستری ذخیره میکند، برای بارگذاری آیتم های ذخیره شده از تابع GetSetting استفاده کنید،
موفق باشید
محسن واژدی
پنج شنبه 14 مهر 1390, 08:38 صبح
سلام،
برای ذخیره لیست باکس، کد زیر:
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
موفق باشید
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.