Public Class Audio_Player
#Region "All Controls"
Private Sub btnOpen_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOpen.Click
Try
Call GetOpenMedia()
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Timer1.Interval = 100
Timer1.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub OpenToolStripMenuItem_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Try
Call GetOpenMedia()
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Timer1.Interval = 100
Timer1.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub btnPlay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPlay.Click
Try
AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
End Try
End Sub
Private Sub btnPause_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPause.Click
Try
AxWindowsMediaPlayer1.Ctlcontrols.pause()
Catch ex As Exception
End Try
End Sub
Private Sub btnStop_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStop.Click
Try
Label1.Text = "00:00"
AxWindowsMediaPlayer1.Ctlcontrols.stop()
Catch ex As Exception
End Try
End Sub
Private Sub GetOpenMedia()
Play_List.DataGridView1.Rows.Clear()
Dim OpenMedia As New OpenFileDialog
OpenMedia.InitialDirectory = System.Environment.SpecialFolder.CommonMusic
OpenMedia.FileName = ""
OpenMedia.Multiselect = False
OpenMedia.Filter = "Audio Files (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc"
If OpenMedia.ShowDialog() = DialogResult.OK Then
Play_List.DataGridView1.Rows.Add(OpenMedia.FileName)
AxWindowsMediaPlayer1.URL = OpenMedia.FileName
End If
End Sub
Private Sub OpenFilesToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OpenFilesToolStripMenuItem.Click
Try
Dim OpenMedia As New OpenFileDialog
OpenMedia.InitialDirectory = System.Environment.SpecialFolder.CommonMusic
OpenMedia.FileName = ""
OpenMedia.Multiselect = True
OpenMedia.Filter = "Audio Files (*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc)|*.wav;*.snd;*.au;*.aif;*.aifc;*.aiff;*.wma;*.mp2;*.mp3;*.adts;*.adt;*.acc"
If OpenMedia.ShowDialog() = DialogResult.OK Then
'For Each str1 As String In OpenMedia.FileNames
' Play_List.ListBox1.Items.Add(str1)
'Next
For Each Str As String In OpenMedia.FileNames
Play_List.DataGridView1.Rows.Add(Str)
Next
End If
Catch ex As Exception
End Try
End Sub
Private Sub Audio_Player_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
tmrFR.Interval = 100
TrackBar2.Value = 50
ProgressBar1.Value = TrackBar2.Value
AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
Label3.Text = "Volume: " & TrackBar2.Value & " %"
AxWindowsMediaPlayer1.Visible = False
Timer1.Interval = 100
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
Timer1.Enabled = True
Else
Timer1.Enabled = False
End If
Play_List.Visible = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
TrackBar1.Maximum = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.duration
Label1.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
Label2.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentItem.durationString
Catch ex As Exception
End Try
End Sub
Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
Try
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
Catch ex As Exception
End Try
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub TrackBar2_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles TrackBar2.Scroll
Try
AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
ProgressBar1.Value = TrackBar2.Value
Label3.Text = "Volume: " & TrackBar2.Value & " %"
Catch ex As Exception
End Try
End Sub
Private Sub btnMuteOnOff_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMuteOnOff.Click
Try
If AxWindowsMediaPlayer1.settings.mute = False Then
btnMuteOnOff.FlatStyle = FlatStyle.Flat
AxWindowsMediaPlayer1.settings.mute = True
Else
AxWindowsMediaPlayer1.settings.mute = False
btnMuteOnOff.FlatStyle = FlatStyle.Standard
End If
Catch ex As Exception
End Try
End Sub
Private Sub PlayListToolStripMenuItem_click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PlayListToolStripMenuItem.Click
If Play_List.Visible = False Then
Play_List.Visible = True
Else
Play_List.Visible = False
End If
End Sub
Private Sub btnFastForword_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFastForword.Click
Try
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
Catch ex As Exception
End Try
End Sub
Private Sub btnFastReverse_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFastReverse.Click
Try
tmrFR.Enabled = True
Catch ex As Exception
End Try
End Sub
Private Sub tmrFR_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrFR.Tick
Try
If Not AxWindowsMediaPlayer1.Ctlcontrols.currentPosition <= 0 Then
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition - 1
If AxWindowsMediaPlayer1.Ctlcontrols.currentPosition <= 0 Then
tmrFR.Enabled = False
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End If
End If
Catch ex As Exception
End Try
End Sub
#End Region
End Class
