[a.adhami]

سلام
یک تکست باکس داریم به نام "Text1" میخوام اینو وقتی توش چیزی نوشتن و دکمه به نام "Command1" رو زدن این نوشته های درون "Text1" در برنامه یک جوری سیو بشه که هر وقت برنامه باز شد اون "Text1" نوشتش سره جاش باشه و پاک نشه
میشه زود کمک کنید؟

با تشکر

[Kei armin]

خوب ما می تونین این نوشته رو در یک کلید رجیستری ذخیره کنین یا اونو در یک فایل متنی کنار برنامه ذخیره کنین !







برای ایجاد فایل متنی می تونین از کدهای زیر استفاده کنین : (داخل رویداد کلیک Command1 قرار بدین)

کد:

Set fso = CreateObject("Scripting.FileSystemObject")



Set MytxtFile = fso.CreateTextFile("parsicoders.txt",true)



MytxtFile.WriteLine (Text1)


MytxtFile.Close

رجیستری چون آنتی ها گیر میدن و شاید براتون پیچیده باشه توضیح ندادم ولی خواستین بگین ...















ضمنا" در کد بالا یه فایل متنی بنام parsicoders کنار برنامه تون ایجاد میشه که خاصیت overwrite داره یعنی هر دفعه جایگزین فایل قبلی میشه. داخلش هم متن داخل Text1 نوشته میشه.

[a.adhami]

هیچی متوجه نشدم ,
میشه روی یک پرجه بدین یا بگید pariscoder.txt چیه؟

[Kei armin]

ما اینجا برای کار با فایل از FileSystemObject استفاده میکنیم. در خط اول یک متغیر (fso) از نوع FileSystemObject تعریف میکنیم. سپس در خط دوم یک متغیر تعریف میکنیم و بوسیله fso یک فایل متنی در اون ایجاد می کنیم ! (در اصل یک فایل متنی ایجاد میشه که با متغیر MytxtFile میشه اون رو کنترل کرد) . سپس در خط سوم text1 رو که همون تکست باکسه در فایل متنی که ایجاد کردیم و با تابع WriteLine چاپ میکنیم. سپس فایل رو در خط آخر می بندیم (کارمون تموم شده دیگه ...)
چیز پیچیده ای نیست !

[Amin_Mansouri]

هیچی متوجه نشدم ,
میشه روی یک پرجه بدین یا بگید pariscoder.txt چیه؟

سلام
بفرمایید این راحت ترین روشه یک تکست باکس و یک باتن روی فرمت بزار همین !

کد:

Private Sub Command1_Click()
Call SaveSetting("parsicoders.com", "test proje ", "amin", (Text1.Text))End SubPrivate Sub Form_Load()
On Error Resume Next
Text1.Text = GetSetting("parsicoders.com", "test proje ", "amin", (Text1.Text))
End Sub

بدرود

[a.adhami]

این اثلا اون چیزی که من میخوام نیست من میخوام که اون تکست باکس رو واسه همیشه سیو کنه یعنی هر دفعه که برنامه باز میشه اون متن تو تکست باکس بیاد.

[Kei armin]

اینم پروژه !

پسورد :

کد:

www.parsicoders.com

---

کافیه که خط دوم و سوم کدی که آقا امین گذاشتن رو در فرم لود بزارین تا هر موقع باز میشه متنی که قبلا" با زدن Command1 ذخیره شده نشون داده بشه.

[Amin_Mansouri]

این اثلا اون چیزی که من میخوام نیست من میخوام که اون تکست باکس رو واسه همیشه سیو کنه یعنی هر دفعه که برنامه باز میشه اون متن تو تکست باکس بیاد.

واسه همیشه تو کجا ؟

اونواسه همیشه تو رجیستری ذخیره میکنه

کد ارمین جان هم توی فایل

بدرود

[a.adhami]

خط دوم و سوم یعنی
Set MytxtFile = fso.CreateTextFile("parsicoders.txt", True)
MytxtFile.WriteLine (Text1)
؟

[Kei armin]

توضیح دادم که !
اینو اگه واستون پیچیده است می تونین از روش آقا امین استفاده کنین ! سریع تر و راحت تره ...
خط دوم با FileSystemObject که متغیر fso از این نوعه یک فایل متنی بنام parsicoder.txt با خاصیت overwrite می سازیم (یعنی هر دفعه روی فایل قبلی {در صورت وجود} نوشته میشه ! فایل قبلی حذف و فایل جدید جایگزین میشه) و کنترلش رو به دسته متغیر MytxtFile میدیم !
حالا که parsicoders.txt کنترلش رو MytxtFile در اختیار داره با تابع WriteLine تکس باکسمون Text1 نام داره در فایل متنی (Parsicoders.txt) می نویسیم. و چون دیگه کاری نداریم فایل رو بندیم !