• اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
طاها الیاس زاده

تغییر فونت با دستور String بدون پایگاه داده

سوال

سلام خدمت دوستان .
با استفاده از کتابخانه زیر خیلی راحت میشه سایز رو تغییر داد. برای تغییر فونت چگونه باید عمل کنم؟

http://basic4x.ir/topic/406-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-ariasharedpreferences-%D8%B0%D8%AE%DB%8C%D8%B1%D9%87-%D8%A7%D9%86%D9%88%D8%A7%D8%B9-%D8%A7%D8%B7%D9%84%D8%A7%D8%B9%D8%A7%D8%AA-%D8%A8%D9%87-%D8%B5%D9%88%D8%B1%D8%AA-%D8%A7%D8%B3%D8%AA%D8%A7%D9%86/

.خودم دو سه تاروش رفتم ولی اشتباه بود .

از این دو کد برای اعمال تغییرات تو اکتیویتی ها استفاده میکنم

Sub Process_Globals
    Dim size1 As Int
End Sub

Sub Activity_Create(FirstTime As Boolean)
	setChanges
End Sub

Sub Activity_Resume
     setChanges
End Sub

Sub setChanges
  Dim laelSize As Int = ASP.GetInt("size",14)
  btn1.TextSize = laelSize
  btn2.TextSize = laelSize
  btn3.TextSize = laelSize
  btn4.TextSize = laelSize
  btn5.TextSize = laelSize
End Sub

کدهایی که تو قسمت تنظیمات استفاده میکنم

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
Dim font1 As String
Dim size1 As Int
End Sub

Sub Globals
    Dim font As String
    Dim color As String
    Dim size As Int
    Dim ASP As AriaSharedPreferences
	Private Label1 As Label
	Private RadioButton1 As RadioButton
	Private RadioButton2 As RadioButton
	Private RadioButton3 As RadioButton
	Private Label2 As Label
	Private SeekBar1 As SeekBar
	Private Label3 As Label
	Private btn_save As Button
	Private Label_fasele1 As Label
	Private Label_fasele2 As Label
	Private Label4 As Label
	Private Label5 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("setting")
	
If size<14 Then
Label4.Text=14
SeekBar1.Value=14
End If
RadioButton1.Typeface=Typeface.LoadFromAssets("rezvan.ttf")
RadioButton2.Typeface=Typeface.LoadFromAssets("byekan.ttf")
RadioButton3.Typeface=Typeface.LoadFromAssets("bnazanin.ttf")
setChanges
End Sub

Sub Activity_Resume
setChanges
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Activity_KeyUp (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then

StartActivity(Main)

End If	

End Sub

	


Sub RadioButton1_CheckedChange(Checked As Boolean)
	If RadioButton1.Checked=True Then
	font="yekan"
	Label5.Typeface=Typeface.LoadFromAssets("rezvan.ttf")
	End If
	
End Sub

Sub RadioButton2_CheckedChange(Checked As Boolean)
	If RadioButton2.Checked=True Then
	font="byekan"
	Label5.Typeface=Typeface.LoadFromAssets("byekan.ttf")
	End If

End Sub

Sub RadioButton3_CheckedChange(Checked As Boolean)
	If RadioButton3.Checked=True Then
	font="bnazanin"
	Label5.Typeface=Typeface.LoadFromAssets("bnazanin.ttf")
	End If

End Sub

Sub btn_save_Click
If font="" Then
ToastMessageShow("لطفا متن مورد نظر خود را انتخاب کنید",False)

Else If size<14 Then	
ToastMessageShow("لطفا اندازه متن را انتخاب کنید",False)	
Else
font1=font
size1=size
ToastMessageShow("تنظیمات انجام شد",False)
StartActivity("Main")
ASP.SaveInt("size", size1)
ASP.SaveString("font","font1")
End If	

End Sub


Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
	SeekBar1.Value=Value
	size=Value
	Label4.Text=Value
	Label5.TextSize=Value
End Sub

Sub setChanges
  Dim laelSize As Int = ASP.GetInt("size",14)
  btn_save.TextSize = laelSize
  Label1.TextSize = laelSize
  Label2.TextSize = laelSize
  Label3.TextSize = laelSize
End Sub

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

یعنی مثلا وقتی رو این فونت نمونه است (اولی )کلیک میکنم و ذخیره میکنم. برم تو یک اکتیویتی دیگه فراخوانیش کنم. بدون اینکه به پایگاه داده نیاز باشه .

 

 

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تا کنون داده شده است

  • 0

درود


دقیقا آقا مرتضی هم همچین درخواستی صبح کردند


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


استفاده از


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


http://basic4x.ir/topic/399-%D9%BE%D8%B1%D8%B3%D8%B4-%D8%AF%D8%B1%D8%A8%D8%A7%D8%B1%D9%87-%D9%86%D8%B4%D8%A7%D9%86%D9%87-%DA%AF%D8%B0%D8%A7%D8%B1%DB%8C-%D9%85%D8%AA%D9%86%D9%85%D9%87%D9%85/


 


البته اگه امکانش بود خودتون پروژه تنظیمات رو بنویسید من نحوه ذخیره سازی رو براتون پیاده سازی می کنم چون وقت کم دارم


 


در پناه حق


پسند شده توسط طاها الیاس زاده

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید


ورود به حساب کاربری