ذخیره کردن فونت

[mostafa.kasiri 115]

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

Sub Button1_Click 
  File.WriteString(File.DirDefaultExternal,"color.txt",Label1.TextColor)
  File.WriteString(File.DirDefaultExternal,"size.txt",Label1.Textsize)
  File.WriteString(File.DirDefaultExternal,"font.txt",Label1.Typeface)
  StartActivity(Main)
  Activity.Finish
End Sub

بعد در اکتیویتی اول این کد رو دادم

If File.Exists(File.DirDefaultExternal,"size.txt") = False Then 
  File.Copy(File.DirAssets,"size.txt",File.DirDefaultExternal,"size.txt")
 Else If File.Exists(File.DirDefaultExternal,"color.txt") = False Then
  File.Copy(File.DirAssets,"color.txt",File.DirDefaultExternal,"color.txt")
  
   Else If File.Exists(File.DirDefaultExternal,"font.txt") = False Then 
  File.Copy(File.DirAssets,"font.txt",File.DirDefaultExternal,"font.txt")
   
 End If


 s = File.GetText(File.DirDefaultExternal,"size.txt") 
 c = File.GetText(File.DirDefaultExternal,"color.txt")
 k = File.GetText(File.DirDefaultExternal,"font.txt")


    lbl.TextSize = s
lbl.TextColor = c

'lbl.Typeface = k

اما به این کد که گفتم 

lbl.Typeface = k

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

 

[Kazem Forghani 2,927]

سلام

دوست عزیز شما اینجا نباید به این صورت بنویسید:

File.WriteString(File.DirDefaultExternal,"font.txt",Label1.Typeface)

شما باید نام فونت رو ذخیره کنید و هنگام فراخوانی شرط بگذارید اگر نام فونت مثلا Yekan بود فونت Yekan رو لود کنه.

ذخیره سازی:

File.WriteString(File.DirDefaultExternal,"font.txt","Yekan")

فراخوانی:

If k = "Yekan" Then
     Label1.Typeface = Typeface.LoadFromAssets("Yekan.ttf")
End If

موفق باشید

[mostafa.kasiri 115]

با سلام

من می خاوم وقتی زد رو دکمه باتن زد اون ذخیره شه

در دکمه باتن چه جوری کد بدم

جون اگه اینو بدم

File.WriteString(File.DirDefaultExternal,"font.txt","Yekan")

فقط یک کد ذخیره میشه

[مهدی ایزدی 9,203]

با سلام

من می خاوم وقتی زد رو دکمه باتن زد اون ذخیره شه

در دکمه باتن چه جوری کد بدم

جون اگه اینو بدم

File.WriteString(File.DirDefaultExternal,"font.txt","Yekan")

فقط یک کد ذخیره میشه

ببینید شما فرض کنید 5 تا فوت دارید

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

اون String مورد نظر که برابر با فونت انتخابی هست رو بنویسید

[mostafa.kasiri 115]

با سلام

من الان یک متغیر تعریف کردم و اینو گفتم

  File.WriteString(File.DirDefaultExternal,"font.txt",i)

بعد در اکیتیویتی اول 

If k = "ثلث" Then
     lbl.Typeface = Typeface.LoadFromAssets("sols.ttf")
End If
If k = "طه" Then
     lbl.Typeface = Typeface.LoadFromAssets("taha.ttf")
End If
If k = "نیریزی" Then
     lbl.Typeface = Typeface.LoadFromAssets("n.ttf")
End If
If k = "بیزر" Then
     lbl.Typeface = Typeface.LoadFromAssets("bzar.ttf")
End If

ولی یک چیز رو نمی دونم چی کار کنم که چه طوری فونت ها رو به string بدم

 

[mostafa.kasiri 115]

لطفال جواب من رو بدهید

[مهدی ایزدی 9,203]

ببینید شما وقتی که یک فونت رو انتخاب میکنید بالاخره مثلا با Spinner فونت هاتون رو انتخاب میکنید

خب یک Event داریم به نام ItemSelected دیگه که یک مقدار رو به ما برمیگردونه

شما بیایید اون String رو برابر با مقدار برگشتی قرار بدید... همین !

 

کلا میتونید با یک Select Case ساده از Position که داره برمیگرده کار کنید

مثلا

select position
case 0
string = "yekan"
case 1
string = "titr"
end select

[agha sasan 82]

ببینید شما هر چی تو فکرتونه رو فراموش کنید و فقط ببینید من چی میگم:

شما با کلیک رو باتن دخیره (که فونت و رنگ و سایز رو دخیره میکنه) این کد رو بنویسید

    Dim list As List
    list.Initialize
    list.AddAll(Array(Colors.Red,"25","2"))
File.WriteList(File.DirInternal,"save",list)
خب تا اینجا شما یکسری مقدار رو ذخیره کردین مثلا red رنگشه 25 سایزشه و  font1 هم اسم فونتش برا استفاه ازشون هم اینجورس استفاده کن
Dim list As List
list=File.ReadList(File.DirInternal,"save")
label1.TextColor= list.Get(0)
label1.TextSize=list.Get(1)
If list.Get(2)="font1" Then label1.Typeface=Typeface.DEFAULT_BOLD
If list.Get(2)="font2" Then label1.Typeface=Typeface.DEFAULT

برای فونت چون نمیشد بصورت استرینگ(رشته) ذخیره کرد از دستور شرطی استفاده کردیم

الان لیبل قرمزه سازش ۲۵ و فونتش هم فونت پیشفرض کلفته

اگه سوالی داشتی در خدمتم