منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(02-09-18, 07:07 AM)elgokr كتب : [ -> ]

لعله خير اخى ابو روضة

ولعل الامور تتحسن وتكون بخير عن قريب باذن الله

فالحمد لله على كل حال دائماً وابدا والشكر لله على كرمه ونعمه

كل التحية لك

وتمنياتى لك التوفيق

(02-09-18, 12:36 PM)سعود كتب : [ -> ]

ما رايكم باستخدام المستعرض بدون اطار؟

---

معذرة الحدث التالي لم اضع شروط له 
Download_DownloadCompleted
اظن يمكن الاستغناء عنه

(02-09-18, 10:50 AM)elgokr كتب : [ -> ]

(02-09-18, 09:50 AM)سعود كتب : [ -> ]شوف زر بدء التحميل تعديل بسيط

PHP كود :

Private Async Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim sss As String = TextBox4.Text
        For i As Integer = 0 To checkedListBox1.Items.Count - 1
            If checkedListBox1.GetItemCheckState(i) = CheckState.Checked Then
                Download = New WebClient
                Await Download.DownloadFileTaskAsync(New Uri((lis(i))), sss + "\" + CleanFileName(checkedListBox1.Items.Item(i).ToString) + ".mp4")
            End If
        Next
    End Sub 


اضافة على لمستك الجميلة اخى سعود

والتى قللت من عدد الاسطر لما قمت به فى السورس اليك لمسات مع لمسة حبيبى سعود

بالكود التالى ( استخدم الكود داخل حدث Button4_Click )

كود :

       Dim Path_ As New FolderBrowserDialog
       If Path_.ShowDialog = DialogResult.Cancel Then Exit Sub

       Dim pathSave_ As String = Path_.SelectedPath & "\" & TextBox4.Text

       If Not Directory.Exists(pathSave_) Then
           Directory.CreateDirectory(pathSave_)
       End If

       For i As Integer = 0 To checkedListBox1.Items.Count - 1
           Dim chkstate As CheckState
           chkstate = checkedListBox1.GetItemCheckState(i)
           If (chkstate = CheckState.Checked) Then
               Download = New WebClient
               Dim name_ As String = checkedListBox1.Items.Item(i)
               name_ = name_.Replace("\", "").Replace("/", "").Replace(":", "").Replace("*", "").Replace("?", "").Replace("""", "").Replace("<", "").Replace(">", "").Replace("|", "").Replace("؟", "")
               Await Download.DownloadFileTaskAsync(New Uri((lis(i))), pathSave_ + "\" + CleanFileName(checkedListBox1.Items.Item(i).ToString) + ".mp4")
               Label1.Text = "0 %"
           End If
       Next

       MsgBox("تم انتهاء من تحميل الملفات المطلوبة")
       Label1.Text = "تم انتهاء من تحميل الملفات المطلوبة"

اولاً سيجعل المستخدم يحدد مسار الحفظ (مضاف حديث عن الوسرس)
ثانياً اخذ اسم الفيديو ليستخدمه كاسم للفيديو عند الحفظ مع تجنب العلامات الغير قابلة بالتسمية
ثالثاً سستم انشاء مجلد على المسار المحدد مسبقاً لضم عدد التحميلات فى مجلد واحد
رابعاً ظهور رسالة باتمام التحميل 

بهذا الكود تكون تجنبت اى عقبة قد تحصل مع المستخدم

وكذلك قمت باعضاء للمستخدم حرية تحديد مسار الحفظ

اتمنى اللمسات تعطى شكلية واعجاب لديك فى طريقة الاستخدام

وكما يقال كل تاخيرة بها خيره فها انت الان معك الخير 

تحياتى لك

وتمنياتى لك التوفيق