یک سوال در مورد Save شدنه متن در Text Box

[meisambandari]

سلام دوستانه عزیز
من سوالی داشتم در مورد Save شدنه متن در Text Box خوب من سوالمو اینطوری مطرح میکنم که به فرض مثال یک Text Box و یک Form و یک CommandButton داریم و من میخوام متنی که در Text Box مینویسم با زدن دکمه Save بشه در خود Text Box و ّForm بسته بشه و بار دیگه که Form رو باز میکنم متنی که قبلا نوشته بودم در Text Box باشه
ممنون

[Mr'Jamshidy]

این کد




Private Sub Form_Load()
On Error Resume Next
Dim Data As String
Data = Space(FileLen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1
Get #1, , Data
Close
Text1.Text = Data
End Sub

Private Sub Command1_Click()
On Error Resume Next
Open App.Path & "\TextArchive.PSC" For Binary As #1
Put #1, , Text1.Text
Close
End Sub



اینم سورس

[hamed_arfaee]

با سلام
شما باید کار با فایلها رو یاد بگیرین :
http://www.ps-ware.net/downloads/articles/Vbfiles.zip

[shahpari]

میشه در مورد کدهایی که نوشتین توضیح بدید

آخه من برای سئوال دوستمون تو ذهنم یه چیزه دیگه بود

کدهای شما خیلی جالبه؛



Data = Space(Filelen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1



این کد داره فایل می سازه؟؟؟

[meisambandari]

این کد






Private Sub Form_Load()
On Error Resume Next
Dim Data As String
Data = Space(FileLen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1
Get #1, , Data
Close
Text1.Text = Data
End Sub


Private Sub Command1_Click()
On Error Resume Next
Open App.Path & "\TextArchive.PSC" For Binary As #1
Put #1, , Text1.Text
Close
End Sub




اینم سورس


سلام دوسته عزیز . ممنون از سورس و حالا یه سوالی برام پیش اومده که اگه بخوام در یک فرم برای دو یا سه یا Text Box های بیشتر همین کارو انجام بدم باید چیکار کنم ?
و یه سوال دیگه اینکه میخواستم بدونم این فایل TextArchive.PSC که تولید میکنه میشه یه جایی دیگه تو ویندوز ذخیره کرد مثلا درایو C:\WINDOWS\system32 ویا اگه این نمیشه میخوام Hide بشه در کل میخوام دیده نشه

ممنون

[Mr'Jamshidy]

میشه در مورد کدهایی که نوشتین توضیح بدید

آخه من برای سئوال دوستمون تو ذهنم یه چیزه دیگه بود

کدهای شما خیلی جالبه؛



Data = Space(Filelen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1



این کد داره فایل می سازه؟؟؟

همونطور که میدونید وقتی شما یک متقیر رو تعریف میکنید یک مقدار از حافظه به اون اختصاص داده میشه
فرمان Space یک عدد میگیره و اون رو به مقدار حافضه مرتبط میکنه

Open هم که معلومه دیگه

[Mr'Jamshidy]

سلام دوسته عزیز . ممنون از سورس و حالا یه سوالی برام پیش اومده که اگه بخوام در یک فرم برای دو یا سه یا Text Box های بیشتر همین کارو انجام بدم باید چیکار کنم ?
و یه سوال دیگه اینکه میخواستم بدونم این فایل TextArchive.PSC که تولید میکنه میشه یه جایی دیگه تو ویندوز ذخیره کرد مثلا درایو C:\WINDOWS\system32 ویا اگه این نمیشه میخوام Hide بشه در کل میخوام دیده نشه

ممنون

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




SetAttr FilePath, vbHidden + vbSystem



بجای FilePath مسیر فایل مورد نظر رو بزن

------------------------------------------

البته از SaveSetting, GetSetting هم میتونی استفاده کنی فرقشون با روش قبلی تو اینه که تو رجیستری ذخیره میکنه

[meisambandari]

سلام دوسته عزیز Mr'Jamshidy
در مورد این سوالم چیزی نگفتین میشه لطف کنین اگه راهکاری واسه اینکار هست بگین
_______________
سوالی برام پیش اومده که اگه بخوام در یک فرم برای دو یا سه یا Text Box های بیشتر
همین کارو انجام بدم باید چیکار کنم ?
_______________
ممنون

[Mr'Jamshidy]

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

[kemiaonline]

Private Sub Form_Load()
On Error Resume Next
Dim Data As String
Data = Space(FileLen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1
Get #1, , Data
Close
Text1.Text = Data
End Sub

Private Sub Command1_Click()
On Error Resume Next
Open App.Path & "\TextArchive.PSC" For Binary As #1
Put #1, , Text1.Text
Close
End Sub
کد کار میکنه و خیلی هم جالبه اما یه کد کم داره
دوستمون گفته بود که وقتی روی کامند کلیک میکنم متن سیو بشه و از برنامه خارج شیم
کد کامل به اینصورت هست

Private Sub Form_Load()
On Error Resume Next
Dim Data As String
Data = Space(FileLen(App.Path & "\TextArchive.PSC"))
Open App.Path & "\TextArchive.PSC" For Binary As #1
Get #1, , Data
Close
Text1.Text = Data
End Sub

Private Sub Command1_Click()
On Error Resume Next
Open App.Path & "\TextArchive.PSC" For Binary As #1
Put #1, , Text1.Text
Close
unload me
End Sub
البته این رو برای کاربران تازه کار گفتم

[meisambandari]

سلام دوسته عزیز من هنوز تو این سوال گیرم میشه یه سورس بدین --> سوال دیگه اینکه میخواستم بدونم این فایل TextArchive.PSC که تولید میکنه میشه یه جایی دیگه تو ویندوز ذخیره کرد مثلا درایو C:\WINDOWS\system32 ویا اگه این نمیشه میخوام Hide بشه در کل میخوام دیده نشه .

ممنون

[hamed_arfaee]

کافیه بجای دستور App.path آدرس خودتون رو بنویسین
اگه می خواهیین اطلاعاتتون قابل دسترس نباشن اونا رو بصورت کد شده ذخیره کنین تا امن باشن

[meisambandari]

سلام آقای حامد..... ممنون
و یک سوال دیگه چطور میتونم به چند تکست بوکس در یک فرم چنین کاری انجام بدم
مثلا 10 تکست بوکس روی فرم دارم میخوام تو همشون یک نوع نوشته بنویسم و همشون با همین روش سیو کنم چطور باید اینکارو بکنم؟
ممنون

[Mr'Jamshidy]

اینجا دیگه کارت خیلی سخت میشه

بنظرم تو فایل های جدا سیو کنی بهتره ولی بازم میل خودته

[meisambandari]

سلام
این عمل سیو کردن که بر روی تکست ها در تکست بوکس انجام میشه آیا شبیه همین عمل میشه با رنگها کرد ؟مثلا رنگ رو در یک پیکتور بوکس فراخونی کنیم و به همینگونه سیو کنیم امکانش هست . در حد امکان سورس بزارین لطفا
ممنونم از لطف دوستان

[hamed_arfaee]

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

[meisambandari]

سلام من در اینجا سورسی رو میزارم که تو اون رنگ در یگ Picture box فراخوانی میشه و من میخوام که این رنگ مثل تکست در سورس قبلی سیو بشه. اگه امکانش هست دوستان خبره در کار ادیتش کنن.... ممنون

[hamed_arfaee]

فایلتون ناقص هست فقط فایل پرژه رو فرستادین نه فرم ها نه ماژول

[meisambandari]

سلام .
فایل تصیح شد.

[Mr'Jamshidy]

دوست عزیز الان 3 شبه چشم رو هم نزاشتم ولی حتما کل این تاپیکو تو یک سورس برات خلاصه میکنم

امیدوارم راضیت کنه

[meisambandari]

سلام Mr'Jamshidy (http://barnamenevis.org/forum/member.php?u=43330)
ممنون از لطف شما . منتظر هستم !

[Mr'Jamshidy]

بیا دوست من همونطور که قول داده بودم در ضمن اونجا منظورم پلک رو هم نزاشتم عوارض خوابه دیگه

اگر کمو کثری چیزی بود دیگه ببخشید

[meisambandari]

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