ذخیره اطلاعات در لیست ویو

[siroos12 14]

سلام.

دوستان من ی ادیت تکست و ی باتن و ی لیست ویو،کارشم اینه که متن ادیت تکست رو تو لیست ویو اضافه میکنه ولی اگه خارج بشم و ی بار دیگه برناممو باز میکنم اطلاعات لیست ویوم حذف شدن.

چه کنم؟

[Hamed Sabet Farhadi 707]

اطلاعات رو توی یک فایل تکست میتونی ذخیره کنی

[siroos12 14]

اطلاعات رو توی یک فایل تکست میتونی ذخیره کنی

بله همین کار رو میخوام کنم.لنگ کدشم

[Hamed Sabet Farhadi 707]

بله همین کار رو میخوام کنم.لنگ کدشم 

مثلا اینجا متن ادیت تکست رو ذخیره می کنیم

	Dim save As SLS
	save.save("1.txt","txt",EditText1.Text)

[mehrabmmp 528]

میتونید از دیتابیس هم استفاده کنید

[Kazem Forghani 2,927]

سلام ،

برای ذخیره اطلاعات لیست ویو ابتدا باید اون ها رو در یک لیست بریزید بعد ذخیره کنید:

Dim l As List
l.Initialize
For i = 0 To ListView1.Size-1
	l.Add(ListView1.GetItem(i))
Next
File.WriteList(File.DirInternal, "ListViewContent.txt", l)

کد بالا اطلاعات لیست ویو رو در یک فایل txt در قسمت اطلاعات برنامه ذخیره می کنه.

برای فراخوانی اطلاعات هم به این صورت عمل کنید:

Dim l As List
l.Initialize
l = File.ReadList(File.DirInternal, "ListViewContent.txt")
For i = 0 To l.Size-1
	ListView1.AddSingleLine(l.Get(i))
Next

موفق باشید

[siroos12 14]

سلام ،

برای ذخیره اطلاعات لیست ویو ابتدا باید اون ها رو در یک لیست بریزید بعد ذخیره کنید:

Dim l As List
l.Initialize
For i = 0 To ListView1.Size-1
	l.Add(ListView1.GetItem(i))
Next
File.WriteList(File.DirInternal, "ListViewContent.txt", l)

کد بالا اطلاعات لیست ویو رو در یک فایل txt در قسمت اطلاعات برنامه ذخیره می کنه.

برای فراخوانی اطلاعات هم به این صورت عمل کنید:

Dim l As List
l.Initialize
l = File.ReadList(File.DirInternal, "ListViewContent.txt")
For i = 0 To l.Size-1
	ListView1.AddSingleLine(l.Get(i))
Next

موفق باشید

این رو یک بار امتحان کردم خطا داد برنامم

کتابخونه SLSچیه؟

[Hamed Sabet Farhadi 707]

این رو یک بار امتحان کردم خطا داد برنامم

کتابخونه SLSچیه؟

http://answercenter.ir/topic/248-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D8%A8%D8%A7%D8%B2-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-sls-library/

[siroos12 14]

http://answercenter.ir/topic/248-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D9%88-%D8%A8%D8%A7%D8%B2-%DA%A9%D8%B1%D8%AF%D9%86-%D8%AA%D9%86%D8%B8%DB%8C%D9%85%D8%A7%D9%86-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-sls-library/

فایده نداشت.

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

اینجاش گیر کردم سیو کردن اطلاعات لیست ویو

[Kazem Forghani 2,927]

این رو یک بار امتحان کردم خطا داد برنامم

کتابخونه SLSچیه؟

از ارور عکس بگیرید قرار بدید لطفاً!

[siroos12 14]

از ارور عکس بگیرید قرار بدید لطفاً!

ارور خاصی نمیده.

مسیج باکس میده برنامه متوقف شده است.

میشه دقیق بگید کد ها رو کجا بزارم؟

[Kazem Forghani 2,927]

ارور خاصی نمیده.

مسیج باکس میده برنامه متوقف شده است.

میشه دقیق بگید کد ها رو کجا بزارم؟

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

کد اول رو در رویداد ذخیره سازی اطلاعات قرار بدید.

کد دوم رو در رویداد فراخوانی اطلاعات قرار بدید.

[siroos12 14]

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

کد اول رو در رویداد ذخیره سازی اطلاعات قرار بدید.

کد دوم رو در رویداد فراخوانی اطلاعات قرار بدید.

همین کارو کردم با میگه برنامه توقف شده.

کد اولو تو باتن گذاشتم.

کد دومم داخل اکتیویتی کریت.

نمیدونم چشه.

[Hamed Sabet Farhadi 707]

همین کارو کردم با میگه برنامه توقف شده.

کد اولو تو باتن گذاشتم.

کد دومم داخل اکتیویتی کریت.

نمیدونم چشه.

از نسخه چند B4A استفاده می کنید؟

[siroos12 14]

از نسخه چند B4A استفاده می کنید؟

6

فکر نکنم مربوط به نخسه بیسک باشه.

ایراد از کد نویسیه فکر کنم

[Kazem Forghani 2,927]

سلام ،

سورس کد رو قرار بدید یا هم کل کدهای اکتیویتی اول رو بگذارید.

[siroos12 14]

سلام ،

سورس کد رو قرار بدید یا هم کل کدهای اکتیویتی اول رو بگذارید.

بفرما

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("s")
	EditText1.Hint="آیدی مورد نظر را وارد کنید"
	EditText1.Gravity=Gravity.CENTER
	Activity.AddMenuItem("نظر دادن","rate")
	Activity.AddMenuItem("درباره ما","about")
	Activity.AddMenuItem("تماس با ما (ایمیل)","tele")
	Activity.AddMenuItem("سایر برنامه ها","other")
	'Label1.Gravity=Gravity.CENTER
	'list=File.ReadList(File.DirInternal,"list.txt")
	EditText1.Color=Colors.Black
	Dim l As List
l.Initialize
l = File.ReadList(File.DirInternal, "ListViewContent.txt")
For i = 0 To l.Size-1
	ListView1.AddSingleLine(l.Get(i))
Next
'''''''''''''''''این از اکتیویتی کریت''''''''''''''''''
  Dim l As List
l.Initialize
For i = 0 To ListView1.Size-1
	l.Add(ListView1.GetItem(i))
Next
File.WriteList(File.DirInternal, "ListViewContent.txt", l)
''''''''''''''''''''اینم از باتن''''''''''''''''''''''''''

[cloner01001 38]

 

بفرما

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("s")
	EditText1.Hint="آیدی مورد نظر را وارد کنید"
	EditText1.Gravity=Gravity.CENTER
	Activity.AddMenuItem("نظر دادن","rate")
	Activity.AddMenuItem("درباره ما","about")
	Activity.AddMenuItem("تماس با ما (ایمیل)","tele")
	Activity.AddMenuItem("سایر برنامه ها","other")
	'Label1.Gravity=Gravity.CENTER
	'list=File.ReadList(File.DirInternal,"list.txt")
	EditText1.Color=Colors.Black
	Dim l As List
l.Initialize
l = File.ReadList(File.DirInternal, "ListViewContent.txt")
For i = 0 To l.Size-1
	ListView1.AddSingleLine(l.Get(i))
Next
'''''''''''''''''این از اکتیویتی کریت''''''''''''''''''
  Dim l As List
l.Initialize
For i = 0 To ListView1.Size-1
	l.Add(ListView1.GetItem(i))
Next
File.WriteList(File.DirInternal, "ListViewContent.txt", l)
''''''''''''''''''''اینم از باتن''''''''''''''''''''''''''

 

 

سلام، به نظر من برای حل مشکلتون تو صفحه اول فقط اطلاعات رو لود کنید ، بعد یه باتن تو همون صفحه اول بزارید که وقتی روش کلیک شدبره تو اکتیویتی بعدی و اونجا ادیت تکست باشه و دکمه ثبت اطلاعات ، حالا یه دکمه برگشت به صفحه اول تو اکتیویتی دوم بزارید که وقتی روش کلیک شد اطلاعات جدید تو صفحه اول هم آپدیت میشه

به نظرم اینطوری مشکل حل میشه به راحتی