مشکل از اونجا شروع میشه که برای بار اول برنامه رو باز می کنی با خطا مواجه میشی ولی وقتی میری صفحه تنظیمات،و تغییرات رو اعمال می کنی برنامه وارد صفحه متن میشه و مشکل اولی حل میشه .
از برنامه که خارج میشی و دوباره برمی گردی باز همون مشکل هست؟
'کدهای صفحه تنظیمات
Sub Process_Globals
Dim sql As SQL,cur As Cursor
Dim fontsize As Int
Dim font As String
End Sub
Sub SeekBar_ValueChanged (Value As Int, UserChanged As Boolean)
lblnmun.TextSize = Value
End Sub
Sub spinner_ItemClick (Position As Int, Value As Object)
lblnmun.Typeface = Typeface.LoadFromAssets(Value&".ttf")
End Sub
Sub sabt_click
Dim cur As Cursor
cur = sql.ExecQuery ("SELECT * FROM setting")
cur.Position=0
sql.ExecNonQuery("UPDATE setting SET fontsize ="&seekbar1.Value)
sql.ExecNonQuery("UPDATE setting SET font ="&spinner1.SelectedIndex)
fontsize = seekbar1.Value
font = spinner1.GetItem(spinner1.SelectedIndex)
ToastMessageShow("تنظیمات ذخیره شد",False)
Activity.Finish
End Sub
'کدهای صفحه متن
Dim matn As Label:matn.Initialize(""):matn.TextColor=Colors.DarkGray
matn.Text=content
matn.TextSize = actSettings3.fontsize
matn.Typeface = Typeface.LoadFromAssets(actSettings3.font &".ttf")
سوال
msms 2
با سلام خدمت تمامی دوستان
مشکل از اونجا شروع میشه که برای بار اول برنامه رو باز می کنی با خطا مواجه میشی ولی وقتی میری صفحه تنظیمات،و تغییرات رو اعمال می کنی برنامه وارد صفحه متن میشه و مشکل اولی حل میشه .
از برنامه که خارج میشی و دوباره برمی گردی باز همون مشکل هست؟
'کدهای صفحه تنظیمات Sub Process_Globals Dim sql As SQL,cur As Cursor Dim fontsize As Int Dim font As String End Sub Sub SeekBar_ValueChanged (Value As Int, UserChanged As Boolean) lblnmun.TextSize = Value End Sub Sub spinner_ItemClick (Position As Int, Value As Object) lblnmun.Typeface = Typeface.LoadFromAssets(Value&".ttf") End Sub Sub sabt_click Dim cur As Cursor cur = sql.ExecQuery ("SELECT * FROM setting") cur.Position=0 sql.ExecNonQuery("UPDATE setting SET fontsize ="&seekbar1.Value) sql.ExecNonQuery("UPDATE setting SET font ="&spinner1.SelectedIndex) fontsize = seekbar1.Value font = spinner1.GetItem(spinner1.SelectedIndex) ToastMessageShow("تنظیمات ذخیره شد",False) Activity.Finish End Sub 'کدهای صفحه متن Dim matn As Label:matn.Initialize(""):matn.TextColor=Colors.DarkGray matn.Text=content matn.TextSize = actSettings3.fontsize matn.Typeface = Typeface.LoadFromAssets(actSettings3.font &".ttf")
در قسمت متن چطوری مشکل رو حل کنم؟
دوستان کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.