مشکل با Resume Next

[aleas2]

سلام خسته نباشید من از کد
On Error Resume Next
تو برنامه ام استفاده میکنم ولی وقتی خطایی بعد این کد رخ میده نمیره دستور بعدی چکار کنم؟

[mpmsoft]

کدتونو بذارید

[aleas2]

این قسمت کد هسته

Timer1.Enabled = True
Text5 = 0
Do While Text5 < 61

On Error Resume Next
Text8 = WebBrowser2.Document.Body.innerHTML
If InStr(1, Text8.Text, "äæÔÊå ãäÊÔÑ ÔÏ") <> 0 Then
io = 0
Timer1.Enabled = False
Text8 = ""
GoTo aaa:
End If
'...
'...
'...
DoEvents
'...
'...
Loop
aaa:
که رو کد
Text8 = WebBrowser2.Document.Body.innerHTML
خطا میده من گفتم درصورت خطا رد کنه؟

[aleas2]

ضمنن مقدار text5 از طریق تایمر بیشتر میشه

[Slytherin]

این کد را با تغییراتی که توش هست تست کنید:

Timer1.Enabled = True
Text5.Text = 0
Do While Val(Text5.Text) < 61

On Error Resume Next
Text8 = WebBrowser2.Document.Body.innerHTML
If InStr(1, Text8.Text, "äæÔÊå ãäÊÔÑ ÔÏ") <> 0 Then
io = 0
Timer1.Enabled = False
Text8.Text = ""
GoTo aaa:
End If
'...
'...
'...
DoEvents
'...
'...
Loop

[mpmsoft]

Timer1.Enabled = True
Text5 = 0
On Error Resume Next
Do While Text5 < 61


Text8 = WebBrowser2.Document.Body.innerHTML
If InStr(1, Text8.Text, "äæÔÊå ãäÊÔÑ ÔÏ") <> 0 Then
io = 0
Timer1.Enabled = False
Text8 = ""
GoTo aaa:
End If
'...
'...
'...
DoEvents
'...
'...
Loop
aaa:

[aleas2]

من هرکار کردم بازم دستور
On Error Resume Next
کار نمیکنه کدی شما گفتین استفاد کردم بازم بی فایده بود یه سوال داشتم جز کد
On Error Resume Next
کد دیگه ای نیسته که درصورت خطا کاری که میگه بکنه البته بازم بجز
On Error goto x

[Slytherin]

من هرکار کردم بازم دستور
On Error Resume Next
کار نمیکنه کدی شما گفتین استفاد کردم بازم بی فایده بود یه سوال داشتم جز کد
On Error Resume Next
کد دیگه ای نیسته که درصورت خطا کاری که میگه بکنه البته بازم بجز
On Error goto x

با شرط If و شماره ارور هم گاهی اوقات می شه کاری کرد.
پیشنهاد می کنم به جای رد دادن ارور ها، سعی کنید آن ها را بر طرف سازید تا بعد ها مشکل ساز نشوند.

[aleas2]

ببینید من از
WebBrowser استفاده میگم وگاهی اوقات اینترنت قطع وصل میشه و باعث بروز خطا میشه ولی اگر موقعه خطا از دتوری من میگم شروع کنه دگه مشکلی نداره ولی مشکل اینجاست دستور
On Error goto x جوابگو نیسته

[xxxxx_xxxxx]

سلام،

منوی
Tools --> Options --> General
در قسمت Error Trapping گزینه دوم یا سوم رو انتخاب کنید.