سوال در مورد مقادیر لیست باکس و ذخیره آن

[hackershz]

با سلام و خسته نباشید به شما دوستان عزیز و اساتید گرامی

بنده یک برنامه دارم که دارای یک لیست باکس و با بی نهایت مقادیر است

ali
reza
100
200
hassan

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

برنامه ی من هر 5 دقیقه یک بار ریست میشه و دوباره میاد بالا


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

مثلا لیست باکس که دارم دقیقا اخرین رکوردی که انتخاب کرده رو ذخیره کنه و بعد از اجرا آخرین رکوردی که انتخاب شده رو نشون بده



در اصل میخوام اطلاعات لیست باکس هر سری هر عملیاتی روش انجام میشه وقتی بسته میشه و باز میشه آخرین عملیات رو نشون بده
با تشکر

[setroyd]

Private Sub Form_Load()
Randomize
For a = 1 To 10
List1.AddItem Chr(Int(Rnd * 10) + 67) & Chr(Int(Rnd * 10) + 67) & Chr(Int(Rnd * 10) + 67)
Next
t = GetSetting(App.EXEName, "ListBox", "List1", "")
If t <> vbNullString Then
List1.Selected(t) = True
End If
End Sub

Private Sub List1_Click()
SaveSetting App.EXEName, "ListBox", "List1", List1.ListIndex
End Sub



کد بالا رو بنا به شکلی نوشتم که شما خودت لیست باکس رو ذخیره کردی جایی مقادیرش رو و اینکه این فقط مقدار index رو برای شما بعد از هربار کلیک ذخیره میکنه و در رویداد form load چیز بخصوصی نیست این رو صرفا برای این نوشتم که یه چنتا نوشته به صورت رندوم هر دفه کاراکترهایی برات بیاره که تکراری نباشه تا متوجه بشی این کد فقط index رو ذخیره میکنه نه اسم رو که % خطا کمتر میشه نسبت به کدی که بخاد اسم رو هدف قرار بده .