مثلا لدي صفحات عديدة محفوظة اريد ان اجعل البرنامج يتحقق منها ان وجدها يتخطاها
اعرف التحقق من وجود صفحة لكن كيف اجعل جملة 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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء، اللهم أصلح لي ديني الذي هو عصمة أمري، وأصلح لي دنياي التي فيها معاشي، وأصلح لي آخرتي التي فيها معادي، واجعل الحياة زيادة لي في كل خير، واجعل الموت راحة لي من كل شر
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي جدي وهزلي وخطأي وعمدي وكل ذلك عندي، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير