تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف اجعل الـ Do تبدا القراءة للتالي
#1
مثلا لدي صفحات عديدة محفوظة اريد ان اجعل البرنامج يتحقق منها ان وجدها يتخطاها
اعرف التحقق من وجود صفحة لكن كيف اجعل جملة 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
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

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

كود :
Do
            If Not True Then
                Continue Do
            End If
        Loop
الرد
تم الشكر بواسطة: سعود , kslawy , 3booody


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل مشغل الفيديو هو الافتراضى ابو روضة 10 193 07-10-18, 02:25 PM
آخر رد: معاذ_ابراهيم
  كيف اجعل حقل الداتا قريد احتواء تلقائي aftfm 1 66 06-10-18, 10:27 PM
آخر رد: rnmr
  كيف اجعل هذا الكود يعمل على فريم ورك 4 ابو روضة 6 159 25-09-18, 11:19 PM
آخر رد: ابو روضة
Lightbulb اجعل حسابك علي اي موقع online دائماً YousefOkasha 0 140 26-07-18, 05:37 AM
آخر رد: YousefOkasha
  [VB.NET] كيف اجعل شريط التمرير ف الداتا جريد يتحرك اتوماتيك الي اخر سجل تم اضافته محمد صلاح ابراهيم 2 165 21-07-18, 03:08 PM
آخر رد: elgokr
  كيف اجعل الكلمات تحت بعضها فى الليست بوكس ابو روضة 5 194 16-07-18, 01:34 AM
آخر رد: elgokr
  [سؤال] كيف اجعل مشروعى يعمل على كل الاجهزة gamal calc 5 210 13-07-18, 05:21 PM
آخر رد: gamal calc
  [سؤال] كيف اجعل الفورم يعمل على جميع الشاشات بدون تغيير او ضياع الكائنات داخل الفورم في vb.n اسيل1 1 248 20-06-18, 06:20 PM
آخر رد: محمد كريّم
  هل يمكن ان اجعل جدول على شكل مسودة اي بعد الحذف تحول البيانات الى المسودة hassan 14 1 162 09-06-18, 03:48 PM
آخر رد: elgokr
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 225 06-05-18, 12:53 PM
آخر رد: viv

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم