ذخیره شدن چیزهایی که در لیست باکس و تکس باکس هست (فوری)

من یه بر نامه دارم که توش به لیست باکس و تکس باکس هستش که می خواهم کاربر بعد از بیرون رفتن از برنامه چیزایی که تو لیست باکس و تکس باکس هستش همون جایی که برنامه هست تو notepade یا هر جای دیگه ذخیره شه و بعد اینکه دوباره اومد تو برنامه همون چیزا دوباره لود شه (اگه توضبم کمه بگین)

دوست من باید اون اطلاعات رو توی یه فایل ذخیره کنی. بع از همون فایل بخونی ذخیره کردن توی یه فایل تو مسیر برنامه ات اینجوریه:

کد:

---

Private Sub Form_Unload()
Open App.Path & "\file.txt" For Output As #1

Print #1, Text1.Text

For i = 1 To List1.ListCount
Print #1, List1.List(i - 1)
Next
End Sub

---

برای بازیابی هم:

کد:

---

Private Sub Form_Load()
Open App.Path & "\file.txt" For Input As #1

Input #1, a
Text1.Text = a

While Not EOF(1)
Input #1, a
List1.List(i) = a
i = i + 1
Wend


Close #1

End Sub

---

من جواب تکس باکس رو گرفتم که اونو تو acsses ذخیره میکنم اما لیست باکسو نمیتونم

سلام

اين روش اي دي او دارم برات توضيح مي دهم براي فراخواندن كامبو باكس
به عنوان مثال :
تو جدول اصلي داري مثلا نام - نام خانوادگي - تلفن - نسبت (كامبو) ايجاد ميكني

بعد يك تيبل فرعي هم ايجاد ميكني كه فقط نامبر و نام باشه يعني دو تا فيلد داشته باشه كه منظور از نام همان جايي كه فيلدهاي كامبو توش ذخيره مي‌شوند به عنوان مثال (دوست - فاميل - همكار)

بعد بين اينها يك ريليشن ايجاد كن OK


بعد بيا تو فرم اصلي و كدهاي زير را وارد كن

اول بالاي فرم يك متغير تعريف مي‌كني اين روش روش

DIM type_code(100)as long , type_name(100) as string

sub load combo
dim rs as new adodb .recordset
dim i as long
cmb(0).clear
rs.open " select * from ttype ",conn
i= 0
do until rs.eof
type_code(i)= rs.fields("id")
type_name(i)= rs.fields("type title")
cmb(0).add item rs.fields("type title")
i= i+1
rs.movenext
loop
rs.close
if cmb(0).list count > 0 then cmb(0).list index = 0
end sub

رو توي فرم لود كپي كن load combo بعد از اين مرحله هم
بازم اگه نفهميدي بگو يك نمونه برنامه برات ايميل كنم

سلام
براي ذخيره كردنش هم تو دستور ذخيره اين رو بنويس

rs.Fields ("Type") =type_code(Cmb(1).ListIndex


موفق باشي