[ابو روضة]

(29-09-18, 06:35 PM)911 كتب : تفضل أخي سامي

كود :

Imports WMPLib

Public Class Form1

   Dim lst As New List(Of String)
   Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click
       Dim ofb As New OpenFileDialog
       ofb.Filter = "وسائط |*.mp3;*.wmv;*.mp4"
       ofb.InitialDirectory = ""
       ofb.Multiselect = True
       ofb.ShowDialog()
       For Each filename As String In ofb.FileNames
           Dim exten As String = IO.Path.GetExtension(filename).ToLower
           If {".mp3", ".wmv", ".mp4"}.Contains(exten) Then
               lst.Add(filename)
               ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(filename))
           End If
       Next
       If ListBox1.Items.Count = 0 = True Then
           MsgBox("أدخل ملف صوتى لو سمحت")
       Else
           ListBox1.SelectedIndex = 0
       End If
       Player.URL = ListBox1.SelectedItem
   End Sub
   'السحب والافلات
   Private Sub ListBox1_DragDrop1(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 filename As String In filePaths
               Dim exten As String = IO.Path.GetExtension(filename).ToLower
               If {".mp3", ".wmv", ".mp4"}.Contains(exten) Then
                   lst.Add(filename)
                   ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(filename))
               End If
           Next
       End If
       ListBox1.SelectedIndex = -1
   End Sub
   Private Sub ListBox1_DragEnter1(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
   Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
       If ListBox1.SelectedIndex < 0 Then Return
       Dim Filename As String = lst.Item(ListBox1.SelectedIndex)
       If IO.File.Exists(Filename) Then
           Player.URL = Filename
           Player.Ctlcontrols.play()
       End If
   End Sub
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       On Error Resume Next
       Me.Player.settings.setMode("loop", False)
       Player.stretchToFit = True
       If Player.playState = WMPPlayState.wmppsStopped = True Then
           ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
           Player.URL = ListBox1.SelectedItem


       End If
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.san IsNot Nothing Then
           For Each filename As String In My.Settings.san
               lst.Add(filename)
               Me.ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(filename))
           Next
       End If
   End Sub
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       My.Settings.san = New ArrayList(lst)
       My.Settings.Save()
   End Sub
   Private Sub حذفقائمةالتشغيلToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles حذفقائمةالتشغيلToolStripMenuItem.Click
       Player.Ctlcontrols.stop()
       lst.Clear()
       ListBox1.Items.Clear()
       My.Settings.san.Clear()
       My.Settings.Save()
   End Sub
   Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
       End
   End Sub
   Private Sub تكرارالصوتToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles تكرارالصوتToolStripMenuItem.Click
       Me.Player.settings.setMode("loop", True)
   End Sub
   Private Sub ايقافمؤقتToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ايقافمؤقتToolStripMenuItem.Click
       Player.Ctlcontrols.pause()
   End Sub
   Private Sub ايقافToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ايقافToolStripMenuItem.Click
       Player.Ctlcontrols.stop()
   End Sub
   Private Sub تشغيلToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles تشغيلToolStripMenuItem.Click
       Player.Ctlcontrols.play()
   End Sub

   Private Sub تكرارالكلToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles تكرارالكلToolStripMenuItem.Click
       Timer1.Enabled = True
   End Sub

End Class

جزاك الله كل الخير اخى هو فعلا هذا ما اريد بالضبط...

وتعديل بسيط لو تسمح كى يعمل اول ملف بمجرد جلب الملفات بوضع هذا

كود :

Dim ofb As New OpenFileDialog
       ofb.InitialDirectory = ""
       ofb.Multiselect = True
       ofb.ShowDialog()
       For Each filename As String In ofb.FileNames
           ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(filename))
           lst.Add(filename)
       Next
       If ListBox1.Items.Count = 0 = True Then
           MsgBox("أدخل ملف صوتى لو سمحت")
       Else
           ListBox1.SelectedIndex = 0
       End If
       ListBox1.SelectedIndex = 0

       Player.URL = lst.Item(ListBox1.SelectedIndex)