+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: ریممبر (/showthread.php?tid=2517)
ریممبر - a.adhami - 06-30-2012
سلام
یک تکست باکس داریم به نام "Text1" میخوام اینو وقتی توش چیزی نوشتن و دکمه به نام "Command1" رو زدن این نوشته های درون "Text1" در برنامه یک جوری سیو بشه که هر وقت برنامه باز شد اون "Text1" نوشتش سره جاش باشه و پاک نشه
میشه زود کمک کنید؟
با تشکر
RE: ریممبر - Kei armin - 06-30-2012
خوب ما می تونین این نوشته رو در یک کلید رجیستری ذخیره کنین یا اونو در یک فایل متنی کنار برنامه ذخیره کنین !
برای ایجاد فایل متنی می تونین از کدهای زیر استفاده کنین : (داخل رویداد کلیک Command1 قرار بدین)
کد:
Set fso = CreateObject("Scripting.FileSystemObject")
Set MytxtFile = fso.CreateTextFile("parsicoders.txt",true)
MytxtFile.WriteLine (Text1)
MytxtFile.Closeرجیستری چون آنتی ها گیر میدن و شاید براتون پیچیده باشه توضیح ندادم ولی خواستین بگین ...
ضمنا" در کد بالا یه فایل متنی بنام parsicoders کنار برنامه تون ایجاد میشه که خاصیت overwrite داره یعنی هر دفعه جایگزین فایل قبلی میشه. داخلش هم متن داخل Text1 نوشته میشه.
RE: ریممبر - a.adhami - 06-30-2012
هیچی متوجه نشدم ,
میشه روی یک پرجه بدین یا بگید pariscoder.txt چیه؟
RE: ریممبر - Kei armin - 06-30-2012
ما اینجا برای کار با فایل از FileSystemObject استفاده میکنیم. در خط اول یک متغیر (fso) از نوع FileSystemObject تعریف میکنیم. سپس در خط دوم یک متغیر تعریف میکنیم و بوسیله fso یک فایل متنی در اون ایجاد می کنیم ! (در اصل یک فایل متنی ایجاد میشه که با متغیر MytxtFile میشه اون رو کنترل کرد) . سپس در خط سوم text1 رو که همون تکست باکسه در فایل متنی که ایجاد کردیم و با تابع WriteLine چاپ میکنیم. سپس فایل رو در خط آخر می بندیم (کارمون تموم شده دیگه ...)
چیز پیچیده ای نیست !
RE: ریممبر - Amin_Mansouri - 06-30-2012
(06-30-2012، 08:42 PM)a.adhami نوشته: هیچی متوجه نشدم ,
میشه روی یک پرجه بدین یا بگید 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 SubRE: ریممبر - a.adhami - 06-30-2012
این اثلا اون چیزی که من میخوام نیست من میخوام که اون تکست باکس رو واسه همیشه سیو کنه یعنی هر دفعه که برنامه باز میشه اون متن تو تکست باکس بیاد.
RE: ریممبر - Kei armin - 06-30-2012
اینم پروژه !
پسورد :
کد:
www.parsicoders.comکافیه که خط دوم و سوم کدی که آقا امین گذاشتن رو در فرم لود بزارین تا هر موقع باز میشه متنی که قبلا" با زدن Command1 ذخیره شده نشون داده بشه.
RE: ریممبر - Amin_Mansouri - 06-30-2012
(06-30-2012، 09:10 PM)a.adhami نوشته: این اثلا اون چیزی که من میخوام نیست من میخوام که اون تکست باکس رو واسه همیشه سیو کنه یعنی هر دفعه که برنامه باز میشه اون متن تو تکست باکس بیاد.
واسه همیشه تو کجا ؟
اونواسه همیشه تو رجیستری ذخیره میکنه
کد ارمین جان هم توی فایل
بدرود
RE: ریممبر - a.adhami - 06-30-2012
خط دوم و سوم یعنی
Set MytxtFile = fso.CreateTextFile("parsicoders.txt", True)
MytxtFile.WriteLine (Text1)
؟
RE: ریممبر - Kei armin - 06-30-2012
توضیح دادم که !
اینو اگه واستون پیچیده است می تونین از روش آقا امین استفاده کنین ! سریع تر و راحت تره ...
خط دوم با FileSystemObject که متغیر fso از این نوعه یک فایل متنی بنام parsicoder.txt با خاصیت overwrite می سازیم (یعنی هر دفعه روی فایل قبلی {در صورت وجود} نوشته میشه ! فایل قبلی حذف و فایل جدید جایگزین میشه) و کنترلش رو به دسته متغیر MytxtFile میدیم !
حالا که parsicoders.txt کنترلش رو MytxtFile در اختیار داره با تابع WriteLine تکس باکسمون Text1 نام داره در فایل متنی (Parsicoders.txt) می نویسیم. و چون دیگه کاری نداریم فایل رو بندیم !