29-09-18, 06:35 PM
تفضل أخي سامي
كود :
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