تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 3 41 منذ 4 ساعة مضت
آخر رد: ابراهيم النعيمي
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 4 68 منذ 7 ساعة مضت
آخر رد: The Light Fire
  [VB.NET] كيف اجعل صف في listbox ملون 3asfa~mdmra 1 80 26-11-16, 01:00 PM
آخر رد: silverlight
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 111 31-10-16, 09:24 AM
آخر رد: thevirus
  [VB.NET] كيف ممكن اجعل هذا الاتصال بتصل بip مختلف عن ip اتصالي 3asfa~mdmra 0 56 27-10-16, 09:56 PM
آخر رد: 3asfa~mdmra
  كيف اجعل برنامجى المصمم بالفيجوال ستوديو 2012 يعمل على ويندوز 10 : 64 بيت nabil.1710 7 175 18-10-16, 03:15 AM
آخر رد: nabil.1710
  [سؤال] كيف اجعل برنامجي يدعم اختصارات كيبورد من خلال ملف نصي zxz5432 1 131 09-08-16, 07:49 AM
آخر رد: zxz5432
  [سؤال] كيف اجعل الماوس يقف ثامى سطر فى التكست بوكس ابو روضة 6 162 30-07-16, 07:42 AM
آخر رد: ابو روضة
  كيف اجعل السطر في الجريد فيو ينزل سطر ثاني SAJA KAREEM 0 114 14-03-16, 04:40 PM
آخر رد: SAJA KAREEM
  كيف اجعل امر في فجوال بيسك يظهر مباشرة موهوب2016 9 420 05-01-16, 01:05 AM
آخر رد: boudyonline

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


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