سلام من برای اکتویتی تنظیمات برنامم از کد زیر استفاده می کنم
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#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 font As String
Dim color As Int
Dim size As Int
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 PH As Phone
Private Button1 As Button
Private Label4 As Label
Private SeekBar1 As SeekBar
Private Spinner1 As Spinner
Private Spinner2 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("l9")
PH.SetScreenOrientation(0)
For i=1 To 8
Spinner1.Add("font"&i)
Next
Spinner2.Add("سفید")
Spinner2.Add("زرد")
Spinner2.Add("آبی")
Spinner2.Add("قرمز")
Spinner2.Add("یشمی")
Spinner2.Add("مشکی")
Spinner2.Add("سبز")
ToastMessageShow("تنظیمات فقط برای قسمت احادیث تنظیم شده است",False)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
font = Spinner1.SelectedItem
size = SeekBar1.Value
color = Spinner2.SelectedItem
Activity.Finish
Dim list1 As List
list1.Initialize
list1.Add(font)
list1.Add(size)
list1.Add(color)
File.WriteList(File.DirInternal,"sittings.txt",list1)
End Sub
Sub Spinner1_ItemClick (Position As Int, Value As Object)
Label4.Typeface=Typeface.LoadFromAssets(Value & ".ttf")
End Sub
Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
Label4.Textsize = Value
End Sub
Sub Spinner2_ItemClick (Position As Int, Value As Object)
If Value ="سفید" Then
Label4.TextColor=Colors.White
End If
If Value ="زرد" Then
Label4.TextColor=Colors.Yellow
End If
If Value ="آبی" Then
Label4.TextColor=Colors.Blue
End If
If Value ="قرمز" Then
Label4.TextColor=Colors.Red
End If
If Value ="یشمی" Then
Label4.TextColor=Colors.Cyan
End If
If Value ="مشکی" Then
Label4.TextColor=Colors.Black
Label4.color=Colors.White
Else
Label4.color=Colors.black
End If
If Value ="سبز" Then
Label4.TextColor=Colors.Green
End If
End Sub
ولی هنگام زدن دکمه زخیره تنظیمات ارور زیر که مربوط به رنگ هست رو مشاهده می کنم
و در قسمت مطالبم که تنظیمات در آن اعمال می شود و کد زیر را در آن استفاده کردم این ارور را دریافت می کنم:
#Region Activity Attributes
#FullScreen: true
#IncludeTitle: false
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
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 PH As Phone
Private ScrollView1 As ScrollView
Dim SQL As SQL
Dim tartib As Int
Private ScrollView2 As ScrollView
Dim label1 As Label
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("l5")
PH.SetScreenOrientation(0)
If File.Exists(File.DirInternal,"ahadis4.db") = False Then
File.Copy(File.DirAssets,"ahadis4.db",File.DirInternal,"ahadis4.db")
End If
If SQL.IsInitialized = False Then
SQL.Initialize(File.DirInternal,"ahadis4.db",False)
End If
Dim cur As Cursor
cur=SQL.ExecQuery("SELECT * FROM tbl1")
Dim h As Int
h = 2%y
For i=0 To cur.RowCount-1
cur.Position=i
Dim btn As Button
btn.Initialize("btn")
btn.Text=cur.GetString("emam")
btn.Tag=i+1
btn.TextColor = Colors.Black
btn.TextSize=12
Dim b As BitmapDrawable
b.Initialize(LoadBitmap(File.DirAssets,"hashie.jpg"))
btn.Background=b
ScrollView1.Panel.AddView(btn,0,h,25%x,20%y)
h=h+22%y
Next
label1.Initialize("Label1")
End Sub
Sub btn_click
label1.Text =""
Dim f As Button
f = Sender
tartib =f.Tag
Dim cur1 As Cursor
cur1=SQL.ExecQuery("SELECT * FROM tbl1 WHERE tartib="&tartib)
cur1.Position=0
label1.Initialize("Label1")
label1.Text = cur1.GetString("mtn")
If File.Exists(File.DirInternal,"sittings.txt")=True Then
Dim list1 As List
list1=File.ReadList(File.DirInternal,"sittings.txt")
tanzimat.font=list1.Get(0)
tanzimat.size=list1.Get(1)
tanzimat.color=list1.Get(2)
Else
tanzimat.font="fon3"
tanzimat.color=6
tanzimat.size=23
End If
label1.TextSize = tanzimat.size
label1.Typeface=Typeface.LoadFromAssets(tanzimat.font & ".ttf")
ScrollView2.Panel.AddView(label1,0,0,ScrollView2.Width,ScrollView2.Height)
Dim su As StringUtils
Select Case tanzimat.color
Case "سفید"
label1.TextColor=Colors.White
Case 2
label1.TextColor=Colors.Yellow
Case 3
label1.TextColor=Colors.Blue
Case 4
label1.TextColor=Colors.Red
Case 5
label1.TextColor=Colors.Cyan
Case 6
label1.TextColor=Colors.Black
Case 7
label1.TextColor=Colors.Green
End Select
label1.Height=su.MeasureMultilineTextHeight(label1,label1.text)
ScrollView2.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.text)+10%y
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
سوال
dr.mohammad 68
سلام من برای اکتویتی تنظیمات برنامم از کد زیر استفاده می کنم
#Region Activity Attributes #FullScreen: true #IncludeTitle: false #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 font As String Dim color As Int Dim size As Int 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 PH As Phone Private Button1 As Button Private Label4 As Label Private SeekBar1 As SeekBar Private Spinner1 As Spinner Private Spinner2 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("l9") PH.SetScreenOrientation(0) For i=1 To 8 Spinner1.Add("font"&i) Next Spinner2.Add("سفید") Spinner2.Add("زرد") Spinner2.Add("آبی") Spinner2.Add("قرمز") Spinner2.Add("یشمی") Spinner2.Add("مشکی") Spinner2.Add("سبز") ToastMessageShow("تنظیمات فقط برای قسمت احادیث تنظیم شده است",False) End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click font = Spinner1.SelectedItem size = SeekBar1.Value color = Spinner2.SelectedItem Activity.Finish Dim list1 As List list1.Initialize list1.Add(font) list1.Add(size) list1.Add(color) File.WriteList(File.DirInternal,"sittings.txt",list1) End Sub Sub Spinner1_ItemClick (Position As Int, Value As Object) Label4.Typeface=Typeface.LoadFromAssets(Value & ".ttf") End Sub Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean) Label4.Textsize = Value End Sub Sub Spinner2_ItemClick (Position As Int, Value As Object) If Value ="سفید" Then Label4.TextColor=Colors.White End If If Value ="زرد" Then Label4.TextColor=Colors.Yellow End If If Value ="آبی" Then Label4.TextColor=Colors.Blue End If If Value ="قرمز" Then Label4.TextColor=Colors.Red End If If Value ="یشمی" Then Label4.TextColor=Colors.Cyan End If If Value ="مشکی" Then Label4.TextColor=Colors.Black Label4.color=Colors.White Else Label4.color=Colors.black End If If Value ="سبز" Then Label4.TextColor=Colors.Green End If End Subولی هنگام زدن دکمه زخیره تنظیمات ارور زیر که مربوط به رنگ هست رو مشاهده می کنم
http://s1.picofile.com/file/8226819818/Screenshot_%DB%B2%DB%B0%DB%B1%DB%B5_%DB%B1%DB%B2_%DB%B0%DB%B7_%DB%B1%DB%B5_%DB%B2%DB%B7_%DB%B5%DB%B5.png
و در قسمت مطالبم که تنظیمات در آن اعمال می شود و کد زیر را در آن استفاده کردم این ارور را دریافت می کنم:
#Region Activity Attributes #FullScreen: true #IncludeTitle: false #End Region Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. 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 PH As Phone Private ScrollView1 As ScrollView Dim SQL As SQL Dim tartib As Int Private ScrollView2 As ScrollView Dim label1 As Label 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("l5") PH.SetScreenOrientation(0) If File.Exists(File.DirInternal,"ahadis4.db") = False Then File.Copy(File.DirAssets,"ahadis4.db",File.DirInternal,"ahadis4.db") End If If SQL.IsInitialized = False Then SQL.Initialize(File.DirInternal,"ahadis4.db",False) End If Dim cur As Cursor cur=SQL.ExecQuery("SELECT * FROM tbl1") Dim h As Int h = 2%y For i=0 To cur.RowCount-1 cur.Position=i Dim btn As Button btn.Initialize("btn") btn.Text=cur.GetString("emam") btn.Tag=i+1 btn.TextColor = Colors.Black btn.TextSize=12 Dim b As BitmapDrawable b.Initialize(LoadBitmap(File.DirAssets,"hashie.jpg")) btn.Background=b ScrollView1.Panel.AddView(btn,0,h,25%x,20%y) h=h+22%y Next label1.Initialize("Label1") End Sub Sub btn_click label1.Text ="" Dim f As Button f = Sender tartib =f.Tag Dim cur1 As Cursor cur1=SQL.ExecQuery("SELECT * FROM tbl1 WHERE tartib="&tartib) cur1.Position=0 label1.Initialize("Label1") label1.Text = cur1.GetString("mtn") If File.Exists(File.DirInternal,"sittings.txt")=True Then Dim list1 As List list1=File.ReadList(File.DirInternal,"sittings.txt") tanzimat.font=list1.Get(0) tanzimat.size=list1.Get(1) tanzimat.color=list1.Get(2) Else tanzimat.font="fon3" tanzimat.color=6 tanzimat.size=23 End If label1.TextSize = tanzimat.size label1.Typeface=Typeface.LoadFromAssets(tanzimat.font & ".ttf") ScrollView2.Panel.AddView(label1,0,0,ScrollView2.Width,ScrollView2.Height) Dim su As StringUtils Select Case tanzimat.color Case "سفید" label1.TextColor=Colors.White Case 2 label1.TextColor=Colors.Yellow Case 3 label1.TextColor=Colors.Blue Case 4 label1.TextColor=Colors.Red Case 5 label1.TextColor=Colors.Cyan Case 6 label1.TextColor=Colors.Black Case 7 label1.TextColor=Colors.Green End Select label1.Height=su.MeasureMultilineTextHeight(label1,label1.text) ScrollView2.Panel.Height=su.MeasureMultilineTextHeight(label1,label1.text)+10%y End Sub Sub Activity_Pause (UserClosed As Boolean) End Subhttp://s3.picofile.com/file/8226818492/Screenshot_%DB%B2%DB%B0%DB%B1%DB%B5_%DB%B1%DB%B2_%DB%B0%DB%B7_%DB%B1%DB%B5_%DB%B1%DB%B0_%DB%B0%DB%B9.png
ممنون میشم این دو ارور را بر طرف کنید
ممنون
لینک ارسال
به اشتراک گذاری در سایت های دیگر
5 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.