[الطالب]

سلام

اخي سعود هذا ابسط مثال للملفات الصوتيه mp3

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.AllowDrop = True
    End Sub

    Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        For Each f As String In e.Data.GetData(DataFormats.FileDrop)
            If IO.Path.GetExtension(f).ToLower = ".mp3" Then
                ListBox1.Items.Add(f)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub

End Class

الحدث DragEnter وضيفته انه يغير شكل الماوس بعد السحب لما يجي فوق listbox1 فاذا كان المسحوب ملفات يغيره لمؤشر copy
والحدث DragDrop وضيفته بعد ما تترك الزر يعني الافلات هنا يمر على عناصر المصفوفه الخاصه بالملفات FileDrop وذا كان فيها شي ينفذ الموجود بالشرط وهو التاكد من نوع الملف هل mp3 عشان يضيفه

يعني ما نحتاج غير خاصيه allowdrop نخليها true وحدثين dragenter وdragdrop

---

وحكايت القائها على ايقونت البرنامج ابسط من السحب

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call CommandLine()
    End Sub

    Private Sub CommandLine()
        For Each arg As String In My.Application.CommandLineArgs
            If IO.Path.GetExtension(arg).ToLower = ".mp3" Then
                ListBox1.Items.Add(arg)
            End If
        Next
    End Sub

End Class

ما نحتاج غير في حدث تحميل الفورم نقرا عناصر my.applicatin.lomandlineargs وينفذ الموجود بالشرط وهو التاكد من نوع الملف هل mp3 عشان يضيفه

---

وبدمج الفكرتين

كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call CommandLine()
        ListBox1.AllowDrop = True
    End Sub

    Private Sub CommandLine()
        For Each arg As String In My.Application.CommandLineArgs
            If IO.Path.GetExtension(arg).ToLower = ".mp3" Then
                ListBox1.Items.Add(arg)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragDrop(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop
        For Each f As String In e.Data.GetData(DataFormats.FileDrop)
            If IO.Path.GetExtension(f).ToLower = ".mp3" Then
                ListBox1.Items.Add(f)
            End If
        Next
    End Sub

    Private Sub TextBox_Pth_DragEnter(ByVal sender As Object, ByVal e As Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter
        If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
            e.Effect = Windows.Forms.DragDropEffects.Copy
        End If
    End Sub

End Class

موفقين