انتقال ویوهای دو لایوت بین هم

[mostafa.kasiri 115]

سلام من دو تا لایوت دارم 

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

دومی یک seekbar و دو تا spinner  و یک لیبل برای فونت و رنگ

وقتی رنگ و فونت رو عوض میکنی فقط در لیبل لایوت دومی قرار می گیره

من میخوام در لایوت اولی هم این تنظیمات بره و سیو بشه

یک _ چی کار کنم که سایز ها و فونت ها یکی بشه

دو_ وقتی از برنامه میایی بیرون به حال اولیه برنگرده سیو بشه فونت و رنگ چی کار کنم؟ 

[mostafa.kasiri 115]

سلام

من این دو تا کد پاینن ها رو در کدام اکتیویتی کریت بزارم

[amir00700 66]

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

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

	If File.Exists(File.DirInternal,"1.txt") = False Then
		File.Copy(File.DirAssets,"1.txt",File.DirInternal,"1.txt")
	End If

حالا وقتی رو ثبت تنظیمات به طور مثال کلیک شد میایم این کد رو میزاریم

File.WriteString(File.DirInternal,"1.txt","andaze morde nazar")

و حالا با قرار دادن کد زیر در اکتیویتی کریت میاد اندازه رو از فایل تکست میگیره و اندازه تکست لیبل رو با اون مچ میکنه

label1.TextSize = File.GetText(File.DirInternal,"1.txt")

موفق باشید

[mostafa.kasiri 115]

واقا ببخشید من اصلا متوچه نشدم

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

به ترتیب

[amir00700 66]

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

و میخواییم که ذخیره بشه

و یه باتون دارید برای ذخیره کردن

حالا ما میگیم که هر وقت رو باتون کلیک شد بیاد این عمل رو انجام بده

File.WriteString(File.DirInternal,"1.txt",edittext.text)

این کد متن ادیت تکست رو توی فایل 1.txt مینویسه و نگه میداره

حالا توی اکتیویتی کریت کافیه این تو کد رو قرار بدید

If File.Exists(File.DirInternal,"1.txt") = False Then
		File.Copy(File.DirAssets,"1.txt",File.DirInternal,"1.txt")
	End If

label1.TextSize = File.GetText(File.DirInternal,"1.txt")

کد اول میاد چک میکنه اگه فایل 1.txt وجود داشت که هیچ اگه وجود نداشت کپیش میکنه از حافظه نرم افزار به تلفن

 

 

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

[mostafa.kasiri 115]

من اصلا باتن برا سیو شدن ندارم و 

همش رو در اکتیویتی کریت بزارم؟

[mamalliii 214]

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

مثلا شما میگی تو ادیت تکست سایز متن رو وارد کنن

بعد برای سیو شدن اینو میگی

Sub Button_Click
File.WriteString(File.DirInternalCache, "size.txt" , Edittext1.txt)
End Sub

و بعد در لایوت های بعدیت  مثلا برای اندازه ی لیبل کد زیر رو قرار بده

label.TextSize = File.ReadString(File.DirInternal,"size.txt")

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

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