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

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


mohammad007

سوال

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

 

 

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

  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

post-3507-0-38910100-1439952279_thumb.png

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

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

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

درود

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

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

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

 

مورد دوم :

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

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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