راهنمایی در مورد ارور

[milad19 113]

باسلام

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

#Region  Activity Attributes 
   #FullScreen: False
   #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

   Dim dl1 As HttpJob
   Dim dl2 As HttpJob
   Dim dl3 As HttpJob
   Dim dl4 As HttpJob
   Dim dl5 As HttpJob
   Dim dl6 As HttpJob
   Dim dl7 As HttpJob
   Dim dl8 As HttpJob
   Dim dl9 As HttpJob
   Dim dl10 As HttpJob

   Private Label1 As Label
   Private Label2 As Label
   Private Label3 As Label
   Private Label4 As Label
   Private Label5 As Label
   Private Label6 As Label
   Private Label7 As Label
   Private Label8 As Label
   Private Label9 As Label
   Private Label10 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("timen")
   dl1.Initialize("dl1",Me)
   dl2.Initialize("dl2",Me)
   dl3.Initialize("dl3",Me)
   dl4.Initialize("dl4",Me)
   dl5.Initialize("dl5",Me)
   dl6.Initialize("dl6",Me)
   dl7.Initialize("dl7",Me)
   dl8.Initialize("dl8",Me)
   dl9.Initialize("dl9",Me)
   dl10.Initialize("dl10",Me)
   dl1.Download("site.com")
   dl2.Download("site.com")
   dl3.Download("site.com")
   dl4.Download("site.com")
   dl5.Download("site.com")
   dl6.Download("site.com")
   dl7.Download("site.com")
   dl8.Download("site.com")
   dl9.Download("site.com")
   dl10.Download("site.com")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub JobDone(Job As HttpJob)
  If Job.Success = True Then
     Label1.Text = dl1.GetString
     Label2.Text = dl3.GetString
     Label3.Text = dl5.GetString
     Label4.Text = dl7.GetString
     Label5.Text = dl9.GetString
     Label6.Text = dl2.GetString
     Label7.Text = dl4.GetString
     Label8.Text = dl6.GetString
     Label9.Text = dl8.GetString
     Label10.Text = dl10.GetString
  Else

  End If
End Sub

[salmana 174]

try

دستور مورد نظر

catch

اگه اروری پیش اومد. دستوری که اینجا مینویسم رو انجام بده.(اگه دستور نمیخای بدی که هیچی ننویس)

end try

-------------------------------

ساب آخریتو مثل پایین بنویس

Sub JobDone(Job As HttpJob) 
If Job.Success = True Then
Try
Label1.Text = dl1.GetString
Label2.Text = dl3.GetString
Label3.Text = dl5.GetString
Label4.Text = dl7.GetString
Label5.Text = dl9.GetString
Label6.Text = dl2.GetString
Label7.Text = dl4.GetString
Label8.Text = dl6.GetString
Label9.Text = dl8.GetString
Label10.Text = dl10.GetString
Catch
End Try
Else 
End If
End Sub

[milad19 113]

خیلی ممنون

مشکل برطرف شد.