[قناص المدينة]

راح ارفع لك الكود مع برنامج كامل ان شا الله اليوم المساء ان كنا من اهل الارض

[غزوان خليل]

شكراً لك على مساعدتك لي
واعتذر على عجلتي

[قناص المدينة]

اعتذر عن التاخير   ويمكنك الاستفادة من هذا المثال

http://pratiksvssite.blogspot.com/2011_1...chive.html

[غزوان خليل]

لقد جربت الكود ولكن دون جدوى ارجوا منك مشاهدة المشروع

[قناص المدينة]

اعتذر عن التاخر في الرد
مرفق لك التعديل على  المشروع 

[غزوان خليل]

شكرا لك
سأجر بالمثال واطلعك على النتيجة

[غزوان خليل]

لقد نجح المشروع
عندي سؤال عندما حاولت نقل الاكواد الى مشوعي السابق لم ينجح الامر لكن عندما اعتمدت المشروع المعدل نجح الامر

[قناص المدينة]

عادي سوي مقارنة في الاكواد فقط واي شي ممكن اساعدك

[غزوان خليل]

بعد اذنك عندي طلب
كود المفضلة القائمة واضافة ملف وحذف ملف

[غزوان خليل]

مالخطأ في هذه الأكواد

كود القائمة

PHP كود :

   Private Sub ListBox1_DragDrop(sender As Object, e As DragEventArgs) Handles ListBox1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Dim filePaths As String() =
           CType(e.Data.GetData(DataFormats.FileDrop), String())
            For Each s As String In filePaths
                Dim FI As New IO.FileInfo(s)
                Dim exten As String =
               FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length -
               (FI.Name.LastIndexOf(".") + 1))
                If exten = "mp3" Or exten = "wmv" Then
                    ListBox1.Items.Add(s)
                End If
            Next
        End If
    End Sub

    Private Sub ListBox1_DragEnter(sender As Object, e As DragEventArgs) Handles ListBox1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub 


كود اضافة

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim dlg As New OpenFileDialog
        dlg.Filter = "All Files|*.(*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf;*."
        If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then

        End If

    End Sub 


كود حذف ملف

PHP كود :

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        the.delled()
    End Sub
End Class 


عند تجربة الأكواد لم يظهر اي خطأ لكن لم تعمل هذه الاضافات