[ابو روضة]

السلام عليكم ورحمة الله وبركاته

اخوتى عندى روابط فيديوهات مباشرة وضعتها داخل CheckedListBox

واريد ان يتم تحميل الروابط التى عليها Checked فقط ويتم تجاهل

الباقى يعنى لو وضعت مثلا عشر روابط وعملت Checked على ثلاث فقط

يتم تحميل هؤلاء الثلاثة فقط ويتم تجاهل السبعة الأخرون ليتم فى النهاية

تحميل الثلاث روابط فقط رابط تلو الأخر يعنى ينتهى هذا فيتم تحميل الاخر

وهكذا الى ان ينتهى من الثلاث روابط ..

                                                                               

وهذا كود التحميل

                                                                                 

كود :

Download = New WebClient
           Download.DownloadFileAsync(New Uri(الرابط)), My.Computer.FileSystem.SpecialDirectories.Desktop + "/" + CleanFileName(اسم الفيديو) + ".mp4")

[ابراهيم ايبو]

السلام عليكم اخي ابو روضة
اخي هذا مثال لما تريد ضع الروابط في lchecklistbox  ثم ضع علامة check على الذي تريد ان يتفعل ثم run
ان ادى المثال طلبك لاتنساني من الدعاء

[ابو روضة]

(31-08-18, 05:10 AM)ابراهيم ايبو كتب : السلام عليكم اخي ابو روضة
اخي هذا مثال لما تريد ضع الروابط في lchecklistbox  ثم ضع علامة check على الذي تريد ان يتفعل ثم run
ان ادى المثال طلبك لاتنساني من الدعاء

جزاك الله كل خير اخى...

لكن هذا بيظهر لى رسالة فقط مش بحمل اى حاجة  وانا اريده يحمل الروابط اللى فى داخل الاداة lchecklistbox  

[ابراهيم ايبو]

من بعد السلام 

اخي ابو روضة ضع كود التحميل بدل كود الرسالة msgbox

[ابو روضة]

(31-08-18, 06:20 AM)ابراهيم ايبو كتب : من بعد السلام 

اخي ابو روضة ضع كود التحميل بدل كود الرسالة msgbox

اخى الكريم ابراهيم الروابط داخل الاسماء بمعنى ان اسم الفيديو هو اللى ظاهر فقط
والرابط مختفى داخله لانى مخليهم داخل مثلما فى الكود أعلى (lis(sender.selectedindex)
كما بالصورة  


وانا اريده يحمل اللى عليه تشيكد فقط ولما يخلص ينزل على الرابط الاخر بنفس الاسم
اللى عليه تشيكد ولما ينتهى اكيد اسم الملف الذى يليه مختلف عن ما قبله فيحمله بنفس الاسم الاخر
وهكذا الى ان ينتهى من كل اللى عليه تشيكد

[ابراهيم ايبو]

احي ابو روضة موضوع الروابط ليس لي اليه سبيل انت اعلم بكيفية جلب الروابط ماأعرفه بانه يتوجب عليك جلب الروابط وتدخلها في مربع النص واحدا تلو الاخر ليتم ادخاله في اداة الـ chekedlistBox ثم تضع اشارة الـ check وتتابع هذا ماأعلم وفوق كل ذي علم عليم والله اعلم العالمين

[ابو روضة]

(31-08-18, 07:20 AM)ابراهيم ايبو كتب : احي ابو روضة موضوع الروابط ليس لي اليه سبيل انت اعلم بكيفية جلب الروابط ماأعرفه بانه يتوجب عليك جلب الروابط وتدخلها في مربع النص واحدا تلو الاخر ليتم ادخاله في اداة الـ chekedlistBox ثم تضع اشارة الـ check وتتابع هذا ماأعلم وفوق كل ذي علم عليم والله اعلم العالمين

ولا يهمك استاذ ابراهيم وجزاك الله كل الخير طبعا والله يبارك فى أهلك.

بامر الله هاحاول معاها ولو لم اعرف اكيد سيكون هناك شخص يعرف وسيساعد بأمر الله

[سعود]

اخي الكريم ابو روضة
هل الجزئية الناقصة هي معرفة الروابط التي تم تحديدها في القائمة ام انك عرفتها وتود كيفية التعامل مع التحميل؟!
على كل حال راجع موضوعك الاول ففيه الجزئية الاكبر من سؤالك هنا
[سؤال] تنفيذ الكود اللى عليه Checked

[ابو روضة]

(31-08-18, 09:20 PM)سعود كتب : اخي الكريم ابو روضة
هل الجزئية الناقصة هي معرفة الروابط التي تم تحديدها في القائمة ام انك عرفتها وتود كيفية التعامل مع التحميل؟!
على كل حال راجع موضوعك الاول ففيه الجزئية الاكبر من سؤالك هنا
[سؤال] تنفيذ الكود اللى عليه Checked

اهلا بك أخى سعود...

أنا جلبت الروابط بفضل الله وما اريده هو تحميل التى يوجد بها Checked وتجاهل الباقى كما بالصورة أعلى ويتم التحميل خانة خانة بمعنى حينما ينتهى من أول ملف ينتقل مباشرة الى الذى عليه Checked وهكذا الى ان ينتهى منهم كلهم..

وجزاك الله خيرا وعلى فكرة حاولت والله مع الموضوع الذى اشرت عليه ولم اعرف

للأسف

---

---

مع المحاولة فهذا الكود يحمل فقط اللى عليه تشيكد لكن لما بحط هذا الكود داخل اى زر لا يعمل
ولما بحطه داخل الاداه نفسها  CheckedListBox بحمل عادى لكن بردو بحملهم كلهم مرة واحدة
فازاى اخلى البرنامج يحمل رابط رابط ولا يحملهم كلهم مرة واحدة وازاى اضعه داخل زر

كود :

Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CheckedListBox1.SelectedIndexChanged
       On Error Resume Next
       
               Dim sss As String = ("C:\" & TextBox4.Text)
   
               Download = New WebClient
               Download.DownloadFileAsync(New Uri((lis(sender.selectedindex))), sss + "\" + CleanFileName(CheckedListBox1.SelectedItem) + ".mp4")
         
   End Sub

[سعود]

sender.selectedindex
هذا السطر يعني المظلل.

شوف المرفق التالي معدل من مثال الاخ اللي شارك بالموضوع.

طبعا لا يوجد تحميل لانه ليس لدي روابط مناسبة للفكرة الخاصة بالموضوع.
حاول تدقق بالمشروع بعيدا عن مشروعك