23-08-17, 01:46 AM
(23-08-17, 12:18 AM)سعود كتب :![]()
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
يتبع....
![]()
زر امر وليبل وعدد اثنين بروقرس بار باسماءها الافتراضية
البروقرسبار الاول يتغير مع قيمة الرابط ضمن القائمة
والاخر مع تحميل كل ملف
يتبع
![]()
انتهى المثال
لحظات
المثال مرفق
والله يا اخى هو المثال جميل وماشاء الله عليك فعلا...
لكن صعب علىّ فهمه فأنا لا أريد أخذه نسخ ولصق وانتهى الأمر..
لكن انا كنت اريده كما قولت فى بداية الموضوع لانى فاهم انا بعمل ايه لكن هذه النقطة هى التى وقفت معى...
لكن لا عليك حبيبى يكفى تعبك...فجزاك الله كل خير

