منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اجعل الـ Do تبدا القراءة للتالي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف اجعل الـ Do تبدا القراءة للتالي (/showthread.php?tid=654)

كيف اجعل الـ Do تبدا القراءة للتالي - سعود - 23-10-13

مثلا لدي صفحات عديدة محفوظة اريد ان اجعل البرنامج يتحقق منها ان وجدها يتخطاها
اعرف التحقق من وجود صفحة لكن كيف اجعل جملة 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


RE: كيف اجعل الـ Do تبدا القراءة للتالي - sooriaty03 - 24-10-13

السلام عليكم ورحمة الله وبركاته

استعمل الأمر Continue

على النحو التالي

كود :
Do
            If Not True Then
                Continue Do
            End If
        Loop