23-10-13, 11:02 AM
مثلا لدي صفحات عديدة محفوظة اريد ان اجعل البرنامج يتحقق منها ان وجدها يتخطاها
اعرف التحقق من وجود صفحة لكن كيف اجعل جملة do تنتقل للرابط التالي
هل الكود التالي صحيح؟
طبعا كل هذا ضمن do
اعرف التحقق من وجود صفحة لكن كيف اجعل جملة do تنتقل للرابط التالي
هل الكود التالي صحيح؟
كود :
re:
dettxt()
Dim url As String = forum_furl & forum_threadurl & forum_last_thread_number
turl.Text = url
If IO.File.Exists(forum_lbldir & forum_last_thread_number.ToString("00000") & "_.htm") Then
forum_last_thread_number -= 1
progpage.Value += 1
GoTo re
End If
طبعا كل هذا ضمن do
كود :
Do Until bgw1.CancellationPending = True Or forum_last_thread_number < forum_oldest_thread_number
re:
dettxt()
Dim url As String = forum_furl & forum_threadurl & forum_last_thread_number
turl.Text = url
If IO.File.Exists(forum_lbldir & forum_last_thread_number.ToString("00000") & "_.htm") Then
forum_last_thread_number -= 1
progpage.Value += 1
GoTo re
End If
loop