رفتن به مطلب
  • 0

تنظیمات


cloner0101
 اشتراک گذاری

سوال

سلام دوستان

من کاربر جدیدم

کمک کنید مشکلم حل شه

من یه اکتیویتی به اسم tanzimat ساختم اینم کدش::

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

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
    Dim size As Int 
 Dim font As String
 Dim color1 As String
End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Private Label1 As Label
Private Label2 As Label
Private Label3 As Label
Private Label4 As Label
Private Label5 As Label
Private fontsize As SeekBar
Private fonttype As Spinner
Private color As Spinner

End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("tanzimat")
   Label1.TextSize = fontsize.Value
fonttype.AddAll(Array As String("BElham","BMitraBd","BNazaninBNaznnBD","BTitrBd","list","matn","Mj_Afaaq","Rooznameh"))
color.AddAll(Array As String("قرمز","آبی","زرد","سبز","مشکی","سفید","قهوه ای"))

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub fontsize_ValueChanged (Value As Int, UserChanged As Boolean)
   Label1.TextSize = fontsize.Value
size = fontsize.Value
End Sub
Sub fonttype_ItemClick (Position As Int, Value As Object)
Label1.Typeface = Typeface.LoadFromAssets(Value&".ttf")
font = Value&".ttf"
End Sub
Sub color_ItemClick (Position As Int, Value As Object)
If Value = "قرمز" Then
Label1.TextColor=Colors.Red
Else If Value = "آبی" Then
Label1.TextColor=Colors.Blue
Else If Value = "زرد" Then
Label1.TextColor=Colors.Yellow
Else If Value = "سبز" Then
Label1.TextColor=Colors.Green
Else If Value = "مشکی" Then
Label1.TextColor=Colors.Black
Else If Value = "سفید" Then
Label1.TextColor=Colors.White
Else If Value = "قهوه ای" Then
Label1.TextColor=Colors.Cyan
End If
color1=Value

End Sub

خب

حالا متن لیبل تو همون صفحه تغییر میکنه

اما نمیتونم به اکتیویتی text منتقل کنم

یعنی اگه تو اکتیویتی تنظیمات فونت رو عوض کردم ذخیره بشه و تو اکتیویتی text نمایش داده بشه

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

ممنون

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

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

ارسال های توصیه شده

  • 0

نگاه کن دوست عزیز

شما میتونی از خاصیت CallSubDelayed2 یا 1 یا 3 استفاده کنی

به این شکل

	CallSubDelayed2(main,"changeText","EHEM")

main همون نام اکتیویتی ماست

changeText هم نام sub ماست که قراره تو اکتیویتی txt شما قرار بگیره و تغییرات رو ایجاد کنه

EHEM هم همون تغییر مورد نظر ماست

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

http://answercenter.ir/showthread.php?90-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-2-%D8%A7%DA%A9%D8%AA%DB%8C%D9%88%DB%8C%D8%AA%DB%8C

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
 اشتراک گذاری

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...