http://vb4arb.com/vb/attachment.php?aid=14677
بكون معاك خطوة خطوة
اول حاجة عملتها حطيت الروابط بملف نصي باسم urls.txt
عرفت متغير قائمة نصية
كود :
Dim lst As New List(Of String)بحدث تحميل الفورم كتبت الكود التالي ليقوم بتعبئة القائمة النصية بكل الروابط من الملف النصي(وليس ضروري لكن مجرد فكرة)
كود :
For Each h As String In My.Computer.FileSystem.ReadAllText("urls").Split(vbNewLine)
h = h.Trim
If h.ToString.Trim <> "" Then
lst.Add(h)
End If
Nextيتبع....
زر امر وليبل وعدد اثنين بروقرس بار باسماءها الافتراضية
البروقرسبار الاول يتغير مع قيمة الرابط ضمن القائمة
والاخر مع تحميل كل ملف
يتبع
انتهى المثال
لحظات
المثال مرفق
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
