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

[mohammad007 1]

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

 

 

کدهای تنظیمات

1.  
2. Sub Process_Globals
3.     'These global variables will be declared once when the application starts.
4.     'These variables can be accessed from all modules.
5. Dim font As String
6. Dim size As Int
7. Dim color As Int
8. End Sub
9.  
10. Sub Globals
11.     'These global variables will be redeclared each time the activity is created.
12.     'These variables can only be accessed from this module.
13.  
14.     Private Button1 As Button
15.     Private Label1 As Label
16.     Private Label2 As Label
17.     Private Label3 As Label
18.     Private Label4 As Label
19.     Private RadioButton1 As RadioButton
20.     Private RadioButton2 As RadioButton
21.     Private RadioButton3 As RadioButton
22.     Private SeekBar1 As SeekBar
23.     Private Spinner1 As Spinner
24. End Sub
25.  
26. Sub Activity_Create(FirstTime As Boolean)
27.     'Do not forget to load the layout file created with the visual designer. For example:
28.     Activity.LoadLayout("from4")
29. For i = 1 To 3
30. Spinner1.Add("font"&i)
31. Next
32. End Sub
33.  
34. Sub Activity_Resume
35.  
36. End Sub
37.  
38. Sub Activity_Pause (UserClosed As Boolean)
39.  
40. End Sub
41. Sub Button1_Click
42.     font = Spinner1.SelectedItem
43.     
44.     size=SeekBar1.Value
45.     
46.     If RadioButton1.Checked Then
47.     color=1
48.      End If
49.     
50.     If RadioButton2.Checked Then
51.     color=2
52.      End If
53.     
54.     If RadioButton3.Checked Then
55.     color=3
56.      End If
57.     
58.      Activity.Finish
59. End Sub
60.  
61.  
62.  
63. Sub Spinner1_ItemClick (Position As Int, Value As Object)
64.     Label3.Typeface=Typeface.LoadFromAssets(Value & ".ttf")
65. End Sub
66. Sub SeekBar1_ValueChanged (Value As Int, UserChanged As Boolean)
67.     Label3.TextSize=Value
68. End Sub
69. Sub RadioButton1_CheckedChange(Checked As Boolean)
70.     If Checked Then
71.     Label3.TextColor=Colors.Green
72.     End If
73. End Sub
74. Sub RadioButton2_CheckedChange(Checked As Boolean)
75.     
76.     If Checked Then
77.     Label3.TextColor=Colors.red
78.     End If
79. End Sub
80. Sub RadioButton3_CheckedChange(Checked As Boolean)
81.     
82.     If Checked Then
83.     Label3.TextColor=Colors.Black
84.     End If
85. End Sub

[مهدی ایزدی 9,203]

درود

دوست عزیز این چه وضع کد گذاشتن هست ؟

کدهاتون رو وقتی میخواهید بزارید توی ابزارهای ویرایشگر متن یک گذینه هست به این شکل:    <>

روش کلیک کنید و کدهاتون رو اونها کپی کنید و OK بزنید !

 

مورد دوم :

فونت هاتون رو توی DirAssets به چه اسمی قرار دادید ؟؟؟

[porya 959]

سلام این اتفاق زمانی میافته که شما برای اون ایتمی که تو اسپینر دارید فونتی قرار نداده باشید