خیلی سادس اما هر کار می کنم یه تکست خالی سیو میکنه .
چیکارش کنم؟
FileName = "Test"
F = FreeFile
Open FileName For Output As #F
Print #F, List1.
Close #F
End Sub
جای اون لامصب چی بنویسم ؟؟
می خوام کل خطوط توی یه تکست سیو بشن .
Printable View
خیلی سادس اما هر کار می کنم یه تکست خالی سیو میکنه .
چیکارش کنم؟
FileName = "Test"
F = FreeFile
Open FileName For Output As #F
Print #F, List1.
Close #F
End Sub
جای اون لامصب چی بنویسم ؟؟
می خوام کل خطوط توی یه تکست سیو بشن .
آقایون کمک لطفا ...
باید اینو تحویل بدم به دبیرمون.
یه سری به این تاپیک بزن چون حوصله ندارم از اول باز آموزشش رو بنویسم .
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
چگونگی سیو کردن متن داخل تکست باکس و باز کردن متن با فرمت دلخواه شما رو گفتم اگه ببینید حتما به نتیجه مطلوبتون میرسید .
:10::40::11:
خب اگه لیست یک خط هست این رو بنویس :نقل قول:
ولی اگه لیست چند خط باشه این رو بنویس :کد:Private Sub Command1_Click()
Open "d:/filename.txt" For Output As #1
Write #1, List1.List(List1.ListIndex)
Close
End Sub
کد:Private Sub Command1_Click()
Open "d:/filename.txt" For Output As #1
For i = 0 To List1.ListCount-1
Write #1, List1.List(i)
Next i
Close
End Sub
البته راه هایی دیگر هم برای این کار هست
مثلا شما اگر بخواهید تنظیمات نرم افزار را در جایی ذخیره کنید ، می تونید از راه ذخیره در ریجستری و دومی ذخیره در فایل INI این کار را انجام دهید. که اگر خواستید دربارش توضیح می دم.