ايران ويج

سلام من تعدادی textbox دارم در چندین فرم
اگه بخوام تمامی فرمها و محتویاتش را در notepad , ذخیره کنم چطور عمل کنم؟ ( در save کردن مشگل دارم) ممنون میشم راهنماییم کنید

سلام.
دقیقا بگو تو کدوم قسمت مشکل داری. سوالتو ریزتر کن. با نوشتن اطلاعات تو فایل مشکل داری یا دسترسی به کنترل های فرم های دیگه؟

به قول DiDi جان دو راه داره :

یک : تعداد TextBox ها کم باشه

اولا باید تمامی محتوای تکس باکسهایی که در فرم های فرعی هستند در جایی از حافظه ذخیره بشن چون پس از بسته شدن فرم اطلاعات

از بین می ره

سپس تمامی محتوا را با استفاده از دستور Open در فایل می نویسیم به همین راحتی

Open FileAddress For Output as 1
print#1,Textboxes.text
Close#1

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

برای خوندن هم اینطوریه :

Dim strGet as String

Open FileAddress For Input as 1
do While Eof(1)=true
line input#1,strGet
if textbox.text=empty then
textbox1.text=strget
else
textbox.text=textbox.text+vbnewline+strget
endif
loop
Close#1

دو : تعداد TextBox ها زیاد باشه

اول با استفاده از For Each که بحثش هم شده تمامی محتوای تکس باکس ها رو بدست می آوریم

و بقیه اش هم روش بالاست

yeketaz نوشته است:به قول DiDi جان دو راه داره :

سلام.
گفت دو راه داره نگفت دو حالت داره که تو ناراحت شدي.
بخند بابا ...........................................

ببخشید دیگه

انسان جایزالخطاست