- 0
چجوری میتونم تنظیمات برای برنامه بسازم (در حد تغیر فونت و رنگ ) و بعد ازش الگو بگیرم؟
سوال شده توسط
abolfazl2468,
-
کاربران آنلاین در این صفحه 0 کاربر
- هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
سوال
abolfazl2468 13
سلام خدمت دوستان چجوری میتونم تنظیمات برای برنامه بسازم (در حد تغیر فونت و رنگ ) و بعد ذخیره کنم بعد ازش الگو بگیرم ؟
این کد تنظیمات :
Sub Process_Globals
End Sub
Sub Globals
Dim cd As ColorDialog
Private SeekBar1 As SeekBar
Private Label2 As Label
Private Button1 As Button
Private Spinner1 As Spinner
Private Button2 As Button
Dim list1 As List
Dim j As Int
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("st")
Spinner1.AddAll(Array As String("Droid.ttf","byekan.ttf"))
If File.Exists(File.DirInternal, "data.txt") = True Then
list1 = File.ReadList(File.DirInternal, "data.txt")
Label2.TextSize = list1.Get(0)
Label2.TextColor = list1.Get(1)
SeekBar1.Value = list1.Get(0)
Label2.Typeface = Typeface.LoadFromAssets(list1.Get(2))
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Label2.TextSize = Value
End Sub
Sub Button1_Click
Dim o As Int
o = cd.Show("انتخاب رنگ","ذخیره","لغو","",Null)
If o = DialogResponse.POSITIVE Then
Label2.TextColor = cd.RGB
End If
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Label2.Typeface = Typeface.LoadFromAssets(Spinner1.GetItem(Position) )
j = Position
End Sub
Sub Button2_Click
list1.Initialize
list1.Add(SeekBar1.Value)
list1.Add(cd.RGB)
list1.Add(Spinner1.GetItem(j))
StartActivity("s2")
File.WriteList(File.DirInternal, "data.txt",list1)
ToastMessageShow("تغییرات انجام شد",True)
End Sub
اینم کد نوشتم که میخوام تنظیمات روش اعمال شه:
Sub Process_Globals
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.
Dim a As Bitmap
Dim panelheight As Int
Dim text As String
Dim strUtil As StringUtils
Dim ht As Float
Dim mfont As Typeface
Private ScrollView1 As ScrollView
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("s2")
text= File.ReadString(File.DirAssets,"s2.txt")
mfont=Typeface.LoadFromAssets("byekan.ttf")
File.Copy(File.DirAssets,"6.png",File.DirInternal, "6.png")
scroll
End Sub
Sub scroll
ScrollView1.Initialize(500dip)
Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)
panelheight=0
Dim lbltest As Label
lbltest.Initialize("lbltest")
ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)
lbltest.TextSize=18
lbltest.TextColor=Colors.Blue
ht= art (text,lbltest,mfont,20)
panelheight=panelheight+ht+25dip
panelheight=panelheight+80dip
ScrollView1.Panel.Height=panelheight
End Sub
Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float
Dim before,after As Float
Dim Obj1 As Reflector
leb.text=txt
leb.TextSize=size
leb.Gravity=Gravity.CENTER
leb.Left=leb.Left
leb.Typeface=font
ht = strUtil.MeasureMultilineTextHeight(leb , txt)
Obj1.Target = leb
before = Obj1.RunMethod("getLineHeight")
Obj1.Target = leb
Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")
Obj1.Target = leb
after = Obj1.RunMethod("getLineHeight")
ht = ((after * ht)/before)
leb.Height = ht
Return ht
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.