cloner0101

دوست عزیز کد نویسی اشکال نداره یا جاوا و یا بیسیک و یا ............... من مشکل داره همین برنامه رو یه نفر دیگه کامپایل کنه اجرامیشه واسه من مشکل داره ولی نمیدونم چیش مشکل داره

سلام دوستان این ارور رو چطوری رفع کنم؟ لطفا نگید برو سرچ کن و ...... جواب بدید لطفا http://s6.uplod.ir/i/00417/fewf42hqvcv6.png

سلام دوستان من کاربر جدیدم کمک کنید مشکلم حل شه من یه اکتیویتی به اسم 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 نمایش داده بشه متنم رو هم از دیتابیس گرفتم ممنون