[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