سلام
اخي سعود هذا ابسط مثال للملفات الصوتيه 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
موفقين
.. شكراً جزيلاً لك
