برنامج مشغل الفيديو والموسيقى

Imports System.Runtime.Serialization

Imports System.Runtime.Serialization.Formatters.Binary

Imports System.IO

Imports System.Drawing.Imaging

Imports VB = Microsoft.VisualBasic

Public Class frmMain

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal nCmdShow As IntPtr) As Long

Dim graph As Graphics

Dim xbound As Point

Dim xsize As Size

Dim screenshot As System.Drawing.Bitmap

Public ShotStrpart1 As String = "C:\Users\Ahmad\Desktop"

Dim Fxnbol As Boolean = True

Dim loadsize As Size

Dim MuteBol As Boolean = False

Dim playingbol As Boolean = False

Dim addbol As Boolean = False

Dim openbol As Boolean = False

Dim stopbol As Boolean = False

Dim fforward As Boolean = False

Dim fbackward As Boolean = False

Dim selectedindex As Integer

Dim DragDropIndex As Integer

Dim durationInt As Integer = 0

Dim hide_playlistbol As Boolean = False

Dim playhover As Boolean = False

Dim shuffleint As Integer

Dim saveInt As Integer = 0

Private Sub frmMain_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click

Try

Me.ShowTaskBar()

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

Randomize()

Me.BackgroundImage = My.Resources.Seven_6

Play_PictureBox.Image = My.Resources.Play

Me.Panel2.BackgroundImage = My.Resources.Seven_6

''stopbol = True

Me.Width = 495

Me.ToolTip1.SetToolTip(Stop_PictureBox, "Stop")

Me.ToolTip1.SetToolTip(Play_PictureBox, "Pause/Play")

Me.ToolTip1.SetToolTip(Next_PictureBox, "Next")

Me.ToolTip1.SetToolTip(Previous_PictureBox, "Previous")

Me.ToolTip1.SetToolTip(FastReverese_PictureBox, "Fast Reverse")

Me.ToolTip1.SetToolTip(FastForward_PictureBox, "Fast Forward")

Me.ToolTip1.SetToolTip(Open_PictureBox, "Open")

Me.ToolTip1.SetToolTip(Add_PictureBox, "Add")

Me.ToolTip1.SetToolTip(ClearList_PictureBox, "Clear List")

Me.ToolTip1.SetToolTip(VolTrackBar, "Volume Level")

Me.ToolTip1.SetToolTip(BalanceTrackBar, "Balance Level")

Me.ToolTip1.SetToolTip(OpacityTrackbar, "Opacity Level")

Me.ToolTip1.SetToolTip(Volume_PictureBox, "Mute")

Me.ToolTip1.SetToolTip(AxWindowsMediaPlayer1, "Please Click Right Mouse")

' 'Disabling the next and previous and such menu items

PlayPauseToolStripMenuItem2.Enabled = False

StopToolStripMenuItem2.Enabled = False

NextToolStripMenuItem2.Enabled = False

PreviousToolStripMenuItem2.Enabled = False

ClearListToolStripMenuItem.Enabled = False

AxWindowsMediaPlayer1.stretchToFit = True

''AxWindowsMediaPlayer1.uiMode = "full"

AxWindowsMediaPlayer1.Ctlenabled = True

AxWindowsMediaPlayer1.settings.autoStart = True

If Trim(VB.Command().ToString) <> "" Then

If Dir(Trim(VB.Command().ToString)) <> "" Then

Try

Dim str As String = Trim(VB.Command().ToString)

Dim fl As New FileInfo(str)

Play_PictureBox.Enabled = True

Me.ListBox1.Items.Add(str)

Me.Playlist.Items.Add(fl.Name)

Playlist.SelectedIndex = 0

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "ABNPlayer " & Playlist.SelectedItem

Playlist.Show()

hide_playlistbol = True

ClearListToolStripMenuItem.Enabled = True

ClearList_PictureBox.Enabled = True

Add_PictureBox.Enabled = True

Catch ex As Exception

Exit Sub

End Try

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Play_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Play_PictureBox.MouseHover

Try

If playingbol = True Then

Play_PictureBox.Image = My.Resources.Pause_Hover

Else

Play_PictureBox.Image = My.Resources.Play_Hover

End If

playhover = True

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Play_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Play_PictureBox.MouseLeave

Try

If playingbol = True Then

Play_PictureBox.Image = My.Resources.Pause

Else

Play_PictureBox.Image = My.Resources.Play

End If

playhover = False

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Volume_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Volume_PictureBox.Click

Try

If MuteBol = False Then

AxWindowsMediaPlayer1.settings.mute = True

MuteBol = True

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

MuteToolStripMenuItem.Checked = True

Me.ToolTip1.SetToolTip(Volume_PictureBox, "UnMute")

ElseIf MuteBol = True Then

AxWindowsMediaPlayer1.settings.mute = False

MuteBol = False

Volume_PictureBox.Image = My.Resources.Volume_Hover

MuteToolStripMenuItem.Checked = False

Me.ToolTip1.SetToolTip(Volume_PictureBox, "Mute")

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Volume_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Volume_PictureBox.MouseHover

Try

If MuteBol = True Then

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

Else

Volume_PictureBox.Image = My.Resources.Volume_Hover

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Volume_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Volume_PictureBox.MouseLeave

Try

If MuteBol = True Then

Volume_PictureBox.Image = My.Resources.Muted_Volume

Else

Volume_PictureBox.Image = My.Resources.Volume

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Volume_PictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Volume_PictureBox.MouseUp

Try

If MuteBol = True Then

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

ElseIf MuteBol = False Then

Volume_PictureBox.Image = My.Resources.Volume_Hover

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Play_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Play_PictureBox.Click

Try

If Playlist.Items.Count <= 0 Then

MsgBox("Add music to playlist", MsgBoxStyle.Information)

End If

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

' 'Play_PictureBox.Image = My.Resources.Play_Hover

AxWindowsMediaPlayer1.Ctlcontrols.pause()

'' playingbol = False

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

''Play_PictureBox.Image = My.Resources.Pause_Hover

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

Else

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick

Try

If Playlist.Items.Count > 0 Then

' ' SaveNowPlaylistToolStripMenuItem.Enabled = True

ClearListToolStripMenuItem.Enabled = True

Add_PictureBox.Enabled = True

ClearList_PictureBox.Enabled = True

Else

' ' SaveNowPlaylistToolStripMenuItem.Enabled = False

End If

If fforward = True Or fbackward = True Then

Slidebar.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

End If

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

playingbol = False

PlayPauseToolStripMenuItem2.Enabled = True

StopToolStripMenuItem2.Enabled = True

NextToolStripMenuItem2.Enabled = True

PreviousToolStripMenuItem2.Enabled = True

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

playingbol = True

PlayPauseToolStripMenuItem2.Enabled = True

StopToolStripMenuItem2.Enabled = True

NextToolStripMenuItem2.Enabled = True

PreviousToolStripMenuItem2.Enabled = True

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then

playingbol = False

PlayPauseToolStripMenuItem2.Enabled = False

StopToolStripMenuItem2.Enabled = False

NextToolStripMenuItem2.Enabled = False

PreviousToolStripMenuItem2.Enabled = False

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Play_PictureBox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Play_PictureBox.MouseUp

Try

If playingbol = False Then

Play_PictureBox.Image = My.Resources.Pause_Hover

Else

Play_PictureBox.Image = My.Resources.Play_Hover

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Open_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Open_PictureBox.MouseHover

Try

Open_PictureBox.Image = My.Resources.Open_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Open_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Open_PictureBox.MouseLeave

Try

Open_PictureBox.Image = My.Resources.Open

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Add_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add_PictureBox.MouseHover

Try

Add_PictureBox.Image = My.Resources.Add_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Add_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Add_PictureBox.MouseLeave

Try

Add_PictureBox.Image = My.Resources.Add

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ClearList_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ClearList_PictureBox.MouseHover

Try

ClearList_PictureBox.Image = My.Resources.Delete_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ClearList_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles ClearList_PictureBox.MouseLeave

Try

ClearList_PictureBox.Image = My.Resources.Delete

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Open_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Open_PictureBox.Click

Try

openbol = True

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Play_PictureBox.Enabled = True

Playlist.SelectedIndex = 0

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Playlist.SelectedItem

Playlist.Show()

hide_playlistbol = True

ClearListToolStripMenuItem.Enabled = True

ClearList_PictureBox.Enabled = True

Add_PictureBox.Enabled = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

Try

If openbol = True Then

Playlist.Items.Clear()

ListBox1.Items.Clear()

openbol = False

End If

For Each TRACK As String In OpenFileDialog1.SafeFileNames

Playlist.Items.Add(TRACK)

Play_PictureBox.Image = My.Resources.Pause

Next

For Each track As String In OpenFileDialog1.FileNames

ListBox1.Items.Add(track)

Next

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Playlist_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Playlist.DoubleClick

Try

ListBox1.SelectedItem = Playlist.SelectedItem

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "ABNPlayer " & Playlist.SelectedItem

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Playlist_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Playlist.SelectedIndexChanged

Try

ListBox1.SelectedIndex = Playlist.SelectedIndex

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Next_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Next_PictureBox.Click

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "ABNPlayer " & Playlist.SelectedItem

Else

MsgBox("No Next Music", MsgBoxStyle.Information, "Maestro")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Next_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Next_PictureBox.MouseHover

Try

Next_PictureBox.Image = My.Resources.Next_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Next_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Next_PictureBox.MouseLeave

Try

Next_PictureBox.Image = My.Resources._Next

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Previous_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Previous_PictureBox.Click

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex > 0 Then

Playlist.SelectedIndex -= 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "ABNPlayer " & Playlist.SelectedItem

Else

MsgBox("No Previous Music", MsgBoxStyle.Information, "Maestro")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Previous_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Previous_PictureBox.MouseHover

Try

Previous_PictureBox.Image = My.Resources.Previous_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Previous_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Previous_PictureBox.MouseLeave

Try

Previous_PictureBox.Image = My.Resources.Previous

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Stop_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Stop_PictureBox.Click

Try

stopbol = True

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Image = My.Resources.Play

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Stop_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Stop_PictureBox.MouseHover

Try

Stop_PictureBox.Image = My.Resources.Stop_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Stop_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Stop_PictureBox.MouseLeave

Try

Stop_PictureBox.Image = My.Resources._Stop

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Add_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add_PictureBox.Click

Try

addbol = True

OpenFileDialog1.ShowDialog()

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ClearList_PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearList_PictureBox.Click

Try

ListBox1.Items.Clear()

Playlist.Items.Clear()

Play_PictureBox.Enabled = False

ClearListToolStripMenuItem.Enabled = False

ClearList_PictureBox.Enabled = False

Add_PictureBox.Enabled = False

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Image = My.Resources.Play

AxWindowsMediaPlayer1.URL = "nothing"

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub SlideBar_Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SlideBar_Timer.Tick

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

If AxWindowsMediaPlayer1.currentMedia.duration > 0 Then

Dim iposition1 As Integer = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition( )

Dim iposition2 As Integer = AxWindowsMediaPlayer1.currentMedia.duration

Dim lenstr1 As String

Dim lenstr2 As String

If iposition1 < 60 Then

lenstr1 = "00:" & iposition1

Else

lenstr1 = iposition1 \ 60 & ":" & iposition1 Mod 60

End If

If iposition2 < 60 Then

lenstr2 = "00:" & iposition2

Else

lenstr2 = iposition2 \ 60 & ":" & iposition2 Mod 60

End If

Me.Length.Text = lenstr1 & " / " & lenstr2

FileName.Text = Me.Playlist.Text

''Me.Length.Text = Format((AxWindowsMediaPlayer1.currentMedia.duratio n / 60), "Fixed")

' 'Me.curentposiuion.Text = Format((AxWindowsMediaPlayer1.Ctlcontrols.currentP osition / 60), "Fixed")

Slidebar.Maximum = AxWindowsMediaPlayer1.currentMedia.duration

Slidebar.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition

End If

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then

Slidebar.Value = 0

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub SlideBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Slidebar.Scroll

Try

AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = Slidebar.Value

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click

Try

openbol = True

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Play_PictureBox.Enabled = True

Playlist.SelectedIndex = 0

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "ABNPlayer " & Playlist.SelectedItem

Playlist.Show()

hide_playlistbol = True

ClearListToolStripMenuItem.Enabled = True

ClearList_PictureBox.Enabled = True

Add_PictureBox.Enabled = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

Application.Exit()

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PreviousToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex > 0 Then

Playlist.SelectedIndex -= 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Previous Music")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub NextToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Next Music")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

Try

Application.Exit()

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ShowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowMaestroToolStripMenuItem.Click

Try

If Me.ShowMaestroToolStripMenuItem.Text = "Hide ABNPlayer " Then

Me.ShowMaestroToolStripMenuItem.Text = "Show ABNPlayer "

Me.Hide()

Me.NotifyIcon1.Visible = True

Else

Me.Show()

Me.WindowState = FormWindowState.Minimized

Me.WindowState = FormWindowState.Normal

Me.ShowInTaskbar = True

Me.NotifyIcon1.Visible = False

Me.ShowMaestroToolStripMenuItem.Text = "Hide ABNPlayer "

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick

Try

Me.ShowInTaskbar = False

Me.Show()

Me.NotifyIcon1.Visible = False

Me.WindowState = FormWindowState.Minimized

Me.WindowState = FormWindowState.Normal

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PlayPauseToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If Playlist.Items.Count <= 0 Then

MsgBox("Add music to playlist", MsgBoxStyle.Information)

End If

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Play_PictureBox.Image = My.Resources.Play

AxWindowsMediaPlayer1.Ctlcontrols.pause()

'' playingbol = False

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

Play_PictureBox.Image = My.Resources.Pause

AxWindowsMediaPlayer1.Ctlcontrols.play()

''playingbol = True

Else

AxWindowsMediaPlayer1.Ctlcontrols.play()

''playingbol = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub NextToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Next Music", MsgBoxStyle.Information, "Maestro")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MuteToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If MuteBol = False Then

AxWindowsMediaPlayer1.settings.mute = True

MuteBol = True

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

MuteToolStripMenuItem.Checked = True

MuteToolStripMenuItem1.Checked = True

ElseIf MuteBol = True Then

AxWindowsMediaPlayer1.settings.mute = False

MuteBol = False

Volume_PictureBox.Image = My.Resources.Volume_Hover

MuteToolStripMenuItem.Checked = False

MuteToolStripMenuItem1.Checked = False

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub HideShow_playlist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Try

If hide_playlistbol = True Then

Playlist.Visible = False

hide_playlistbol = False

ElseIf hide_playlistbol = False Then

Playlist.Visible = True

hide_playlistbol = True

'' Change the size of the Form

loadsize.Width = 813

loadsize.Height = 476

Me.Width = loadsize.Width

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Playlist_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Playlist.SelectedIndexChanged

Try

ListBox1.SelectedIndex = Playlist.SelectedIndex

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub OpenToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem1.Click

Try

openbol = True

If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

Play_PictureBox.Enabled = True

Playlist.SelectedIndex = 0

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Playlist.Show()

hide_playlistbol = True

Play_PictureBox.Enabled = True

ClearListToolStripMenuItem.Enabled = True

ClearList_PictureBox.Enabled = True

Add_PictureBox.Enabled = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ClearListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearListToolStripMenuItem.Click

Try

Playlist.Items.Clear()

ListBox1.Items.Clear()

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Enabled = False

ClearListToolStripMenuItem.Enabled = False

ClearList_PictureBox.Enabled = False

Add_PictureBox.Enabled = False

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub BalanceTrackBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BalanceTrackBar.Scroll

Try

BalanceValue.Text = BalanceTrackBar.Value & "%"

AxWindowsMediaPlayer1.settings.balance = BalanceTrackBar.Value

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub VolTrackBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VolTrackBar.Scroll

Try

VolumeValue.Text = VolTrackBar.Value & "%"

AxWindowsMediaPlayer1.settings.volume = VolTrackBar.Value

Volume_PictureBox.Image = My.Resources.Volume

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub OpacityTrackbar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpacityTrackbar.Scroll

Try

Me.Opacity = (100 - OpacityTrackbar.Value) * 0.01

OpacityValue.Text = OpacityTrackbar.Value * 2 & "%"

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Playlist_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Playlist.DragDrop

Try

If e.Data.GetDataPresent(DataFormats.FileDrop) Then

Dim filePaths As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())

For Each s As String In filePaths

Dim FI As New IO.FileInfo(s)

Dim exten As String = FI.Name.Substring(FI.Name.LastIndexOf(".") + 1, FI.Name.Length - (FI.Name.LastIndexOf(".") + 1))

If exten = "flv" Or exten = "FLV" Or exten = "dvr-ms" Or exten = "DVR-MS" Or exten = "wtv" Or exten = "WTV" Or exten = "mid" Or exten = "MID" Or exten = "rmi" Or exten = "RMI" Or exten = "midi" Or exten = "MIDI" Or exten = "mpeg" Or exten = "MPEG" Or exten = "mpg" Or exten = "MPG" Or exten = "m1v" Or exten = "M1V" Or exten = "m2v" Or exten = "M2V" Or exten = "mod" Or exten = "MOD" Or exten = "mpa" Or exten = "MPA" Or exten = "mpe" Or exten = "MPE" Or exten = "ifo" Or exten = "IFO" Or exten = "vob" Or exten = "VOB" Or exten = "divx" Or exten = "DIVX" Or exten = "m4a" Or exten = "M4A" Or exten = "mp4" Or exten = "MP4" Or exten = "m4v" Or exten = "M4V" Or exten = "mp4v" Or exten = "MP4V" Or exten = "3gp" Or exten = "3GP" Or exten = "3gpp" Or exten = "3GPP" Or exten = "3g2" Or exten = "3G2" Or exten = "3gp2" Or exten = "3GP2" Or exten = "m2ts" Or exten = "M2TS" Or exten = "m2t" Or exten = "M2T" Or exten = "mts" Or exten = "MTS" Or exten = "ts" Or exten = "TS" Or exten = "tts" Or exten = "TTS" Or exten = "mov" Or exten = "MOV" Or exten = "avi" Or exten = "AVI" Or exten = "wmv" Or exten = "WMV" Or exten = "asf" Or exten = "ASF" Or exten = "wm" Or exten = "WM" Or exten = "wma" Or exten = "WMA" Or exten = "wmv" Or exten = "WMV" Or exten = "wmd" Or exten = "WMD" Or exten = "wav" Or exten = "WAV" Or exten = "snd" Or exten = "SND" Or exten = "au" Or exten = "AU" Or exten = "aif" Or exten = "AIF" Or exten = "aifc" Or exten = "AIFC" Or exten = "aiff" Or exten = "AIFF" Or exten = "wma" Or exten = "WMA" Or exten = "mp2" Or exten = "MP2" Or exten = "mp3" Or exten = "MP3" Or exten = "adts" Or exten = "ADTS" Or exten = "adt" Or exten = "ADT" Or exten = "aac" Or exten = "AAc" Then

ListBox1.Items.Add(s)

Playlist.Items.Add(FI.Name)

End If

Next

End If

If Playlist.SelectedIndex > 0 Then

DragDropIndex = Playlist.SelectedIndex

Else

Playlist.SelectedIndex = 0

End If

If AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying Then

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Playlist_DragEnter1(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Playlist.DragEnter

Try

If e.Data.GetDataPresent(DataFormats.FileDrop) Then

e.Effect = DragDropEffects.Copy

Else

e.Effect = DragDropEffects.None

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

'Sub SetAll(ByVal pathh As String)

' Try

'Dim data1(ListBox1.Items.Count - 1) As String

' For f As Integer = 0 To ListBox1.Items.Count - 1

' data1(f) = ListBox1.Items(f).ToString

' Next

'Dim data2(Me.Playlist.Items.Count - 1) As String

' For f As Integer = 0 To Me.Playlist.Items.Count - 1

' data2(f) = Me.Playlist.Items.Item(f).ToString

' Next

'Dim data() As Array = {data1, data2}

'Dim SerialObj As New BinaryFormatter()

' SerialObj.Serialize(File.Open(pathh, FileMode.OpenOrCreate), data)

' Try

' File.Open(pathh, FileMode.OpenOrCreate).Close()

' Catch ex As Exception

' End Try

' Catch ex As Exception

' MessageBox.Show(ex.Message & ex.Source)

' End Try

' End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RepeatTimer.Tick

Try

' ' If Radio Button '' PlayAll '' is Checked

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped And stopbol = False And My.Settings.Rep_allRadioBTN = True Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Playlist.SelectedItem

ElseIf Playlist.SelectedIndex + 1 = Playlist.Items.Count Then

Playlist.SelectedIndex = 0

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Playlist.SelectedItem

End If

' ' If Radio Button '' PlayOne '' is Checked

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped And stopbol = False And My.Settings.Rep_oneRadioBTN = True Then

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Me.Playlist.SelectedItem

' ' If Radio Button '' None '' is Checked

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped And stopbol = False And My.Settings.None_RadioBTN = True Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Playlist.SelectedItem

End If

'' If Radio Button '' Shuffle '' is Checked

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped And stopbol = False And My.Settings.Shuffle_RadioBTN = True And Playlist.Items.Count > 1 Then

shuffleint = (Int(Rnd() * Playlist.Items.Count + 1))

Playlist.SelectedIndex = shuffleint

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Me.Text = "EgyPlayer - " & Playlist.SelectedItem

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub StopTimerChecker_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopTimerChecker.Tick

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

stopbol = False

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Open_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Playlist_OpenDialog.FileOk

Try

Play_PictureBox.Enabled = True

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PlayButtonTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayButtonTimer.Tick

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying And playhover = True Then

Play_PictureBox.Image = My.Resources.Pause_Hover

Play_PictureBox.Enabled = True

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying And playhover = False Then

Play_PictureBox.Image = My.Resources.Pause

Play_PictureBox.Enabled = True

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

Play_PictureBox.Image = My.Resources.Play

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then

Play_PictureBox.Image = My.Resources.Play

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsScanForward Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsScanReverse Then

Play_PictureBox.Image = My.Resources.Pause

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PlayPauseToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayPauseToolStripMenuItem2.Click

Try

If Playlist.Items.Count <= 0 Then

MsgBox("Add music to playlist", MsgBoxStyle.Information)

End If

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Play_PictureBox.Image = My.Resources.Play

AxWindowsMediaPlayer1.Ctlcontrols.pause()

' ' playingbol = False

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

Play_PictureBox.Image = My.Resources.Pause

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

Else

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub StopToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem2.Click

Try

stopbol = True

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Image = My.Resources.Play

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PreviousToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreviousToolStripMenuItem2.Click

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex > 0 Then

Playlist.SelectedIndex -= 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Previous Music", MsgBoxStyle.Information, "Maestro")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub AxWindowsMediaPlayer1_OpenStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_OpenStateChangeEvent)

Try

If (e.newState = WMPLib.WMPOpenState.wmposMediaOpen) Then

Dim Height As Integer = AxWindowsMediaPlayer1.currentMedia.imageSourceHeig ht

Dim Width As Integer = AxWindowsMediaPlayer1.currentMedia.imageSourceWidt h

If (Height <> 0 And Width <> 0) Then

Me.Height = Height - 40

Me.Width = Width

AxWindowsMediaPlayer1.stretchToFit = True

AxWindowsMediaPlayer1.uiMode = "full"

AxWindowsMediaPlayer1.Dock = DockStyle.Left

AxWindowsMediaPlayer1.Ctlenabled = False

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

Try

If Me.WindowState = FormWindowState.Minimized Then

Me.ShowInTaskbar = False

Me.Hide()

Me.NotifyIcon1.Visible = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub ButtonShowPlaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonShowPlaylist.Click

Try

If Me.ButtonShowPlaylist.Text = "Show Playlist" Then

Me.Width = 669

Me.ButtonShowPlaylist.Text = "Hide Playlist"

Me.Location = New Point(((Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2), ((Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2))

Else

Me.Width = 495

Me.ButtonShowPlaylist.Text = "Show Playlist"

Me.Location = New Point(((Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2), ((Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2))

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub MNUADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUADD.Click

Try

addbol = True

OpenFileDialog1.ShowDialog()

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MNUCLEAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUCLEAR.Click

Try

ListBox1.Items.RemoveAt(Playlist.SelectedIndex)

Playlist.Items.RemoveAt(Playlist.SelectedIndex)

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MNUCLEARALL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUCLEARALL.Click

Try

ListBox1.Items.Clear()

Playlist.Items.Clear()

Play_PictureBox.Enabled = False

ClearListToolStripMenuItem.Enabled = False

ClearList_PictureBox.Enabled = False

Add_PictureBox.Enabled = False

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Image = My.Resources.Play

AxWindowsMediaPlayer1.URL = "nothing"

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MNUFULLSCREEN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUFULLSCREEN.Click

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

' 'AxWindowsMediaPlayer1.fullScreen = True

Me.Visible = False

Me.Width = Screen.PrimaryScreen.Bounds.Width

Me.Height = Screen.PrimaryScreen.Bounds.Height

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Me.Size = New System.Drawing.Size(Me.Width, Me.Height)

Me.Location = New System.Drawing.Point(0, 0)

Me.WindowState = FormWindowState.Normal

AxWindowsMediaPlayer1.Location = New System.Drawing.Point(0, 0)

AxWindowsMediaPlayer1.Width = Screen.PrimaryScreen.Bounds.Width

AxWindowsMediaPlayer1.Height = Screen.PrimaryScreen.Bounds.Height + 45

HideTaskBar()

Panel2.Visible = False

CoveringPNL.Visible = False

VolumeValue.Visible = False

VolTrackBar.Visible = False

Vollbl.Visible = False

BalanceTrackBar.Visible = False

Slidebar.Visible = False

BalanceValue.Visible = False

Ballbl.Visible = False

ButtonShowPlaylist.Visible = False

' ' Button1.Visible = False

LittleCovringPNL.Visible = False

Playlist.Visible = False

Open_PictureBox.Visible = False

Add_PictureBox.Visible = False

ClearList_PictureBox.Visible = False

OpacityValue.Visible = False

OpacityTrackbar.Visible = False

OpacityLbl.Visible = False

MenuStrip1.Visible = False

Me.Visible = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub NextToolStripMenuItem1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextToolStripMenuItem1.Click

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex < Playlist.Items.Count - 1 Then

Playlist.SelectedIndex += 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Next Music", MsgBoxStyle.Information, "EgyPlayer")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PreviousToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreviousToolStripMenuItem1.Click

Try

If Playlist.Items.Count > 0 Then

If Playlist.SelectedIndex > 0 Then

Playlist.SelectedIndex -= 1

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Else

MsgBox("No Previous Music", MsgBoxStyle.Information, "EgyPlayer")

End If

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub StopToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopToolStripMenuItem1.Click

Try

stopbol = True

AxWindowsMediaPlayer1.Ctlcontrols.stop()

Play_PictureBox.Image = My.Resources.Play

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub PlayPauseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayPauseToolStripMenuItem1.Click

Try

If Playlist.Items.Count <= 0 Then

MsgBox("Add music to playlist", MsgBoxStyle.Information)

End If

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Play_PictureBox.Image = My.Resources.Play

AxWindowsMediaPlayer1.Ctlcontrols.pause()

' ' playingbol = False

ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then

Play_PictureBox.Image = My.Resources.Pause

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

Else

AxWindowsMediaPlayer1.Ctlcontrols.play()

' 'playingbol = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MuteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MuteToolStripMenuItem1.Click

Try

If MuteBol = False Then

AxWindowsMediaPlayer1.settings.mute = True

MuteBol = True

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

MuteToolStripMenuItem.Checked = True

MuteToolStripMenuItem1.Checked = True

ElseIf MuteBol = True Then

AxWindowsMediaPlayer1.settings.mute = False

MuteBol = False

Volume_PictureBox.Image = My.Resources.Volume_Hover

MuteToolStripMenuItem.Checked = False

MuteToolStripMenuItem1.Checked = False

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub MNUHidePlaylist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUHidePlaylist.Click

Try

If Me.MNUHidePlaylist.Text = "Show Playlist" Then

Me.Width = 669

Me.ButtonShowPlaylist.Text = "Hide Playlist"

Me.MNUHidePlaylist.Text = "Hide Playlist"

CoveringPNL.Visible = True

VolumeValue.Visible = True

VolTrackBar.Visible = True

Vollbl.Visible = True

BalanceTrackBar.Visible = True

Slidebar.Visible = True

BalanceValue.Visible = True

Ballbl.Visible = True

ButtonShowPlaylist.Visible = True

' ' Button1.Visible = True

LittleCovringPNL.Visible = True

Playlist.Visible = False

Open_PictureBox.Visible = True

Add_PictureBox.Visible = True

ClearList_PictureBox.Visible = True

OpacityValue.Visible = True

OpacityTrackbar.Visible = True

OpacityLbl.Visible = True

MenuStrip1.Visible = True

Playlist.Visible = True

Me.Location = New Point(((Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2), ((Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2))

Else

Me.Width = 495

Me.MNUHidePlaylist.Text = "Show Playlist"

Me.ButtonShowPlaylist.Text = "Show Playlist"

Me.Location = New Point(((Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2), ((Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2))

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub AxWindowsMediaPlayer1_DoubleClickEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_DoubleClickEvent) Handles AxWindowsMediaPlayer1.DoubleClickEvent

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Me.Width = 495

Me.Height = 527

CoveringPNL.Visible = True

VolumeValue.Visible = True

VolTrackBar.Visible = True

Vollbl.Visible = True

BalanceTrackBar.Visible = True

Slidebar.Visible = True

BalanceValue.Visible = True

Ballbl.Visible = True

ButtonShowPlaylist.Visible = True

' 'Button1.Visible = True

LittleCovringPNL.Visible = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub AxWindowsMediaPlayer1_KeyPressEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_KeyPressEvent) Handles AxWindowsMediaPlayer1.KeyPressEvent

Try

Select Case e.nKeyAscii

Case Keys.Escape

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Me.Width = 495

Me.Height = 527

CoveringPNL.Visible = True

VolumeValue.Visible = True

VolTrackBar.Visible = True

Vollbl.Visible = True

BalanceTrackBar.Visible = True

Slidebar.Visible = True

BalanceValue.Visible = True

Ballbl.Visible = True

ButtonShowPlaylist.Visible = True

' ' Button1.Visible = True

LittleCovringPNL.Visible = True

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Select

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub AxWindowsMediaPlayer1_MouseUpEvent(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_MouseUpEvent) Handles AxWindowsMediaPlayer1.MouseUpEvent

Try

If e.nButton = 2 Then

AxWindowsMediaPlayer1.ContextMenuStrip = ContextMenuStrip1

AxWindowsMediaPlayer1.ContextMenuStrip.Show(Window s.Forms.Cursor.Position)

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Public Sub HideTaskBar()

Try

ShowWindow(FindWindowEx(IntPtr.Zero, IntPtr.Zero, "Button", vbNullString), 0)

ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 0)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Public Sub ShowTaskBar()

Try

ShowWindow(FindWindowEx(IntPtr.Zero, IntPtr.Zero, "Button", vbNullString), 1)

ShowWindow(FindWindow("Shell_TrayWnd", vbNullString), 1)

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub FullScreenToolStripMenuItem()

Try

' 'AxWindowsMediaPlayer1.fullScreen = True

Me.WindowState = FormWindowState.Maximized

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

HideTaskBar()

Me.Size = New System.Drawing.Size(812, 600)

Me.Location = New System.Drawing.Point(0, 0)

Me.WindowState = FormWindowState.Normal

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub exitfullscree()

Try

Me.WindowState = FormWindowState.Maximized

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable

ShowTaskBar()

Me.Size = New System.Drawing.Size(495, 527)

Me.Location = New System.Drawing.Point(100, 50)

Me.WindowState = FormWindowState.Normal

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub MNUNORMAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUNORMAL.Click

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Me.Visible = False

CoveringPNL.Visible = True

VolumeValue.Visible = True

VolTrackBar.Visible = True

Vollbl.Visible = True

BalanceTrackBar.Visible = True

Slidebar.Visible = True

Panel2.Visible = True

BalanceValue.Visible = True

Ballbl.Visible = True

ButtonShowPlaylist.Visible = True

' ' Button1.Visible = True

LittleCovringPNL.Visible = True

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Fixed3D

Me.WindowState = FormWindowState.Normal

Me.ShowTaskBar()

Me.Size = New Size(495, 527)

MenuStrip1.Visible = True

CoveringPNL.Location = New Point(-7, 8)

AxWindowsMediaPlayer1.Size = New Size(475, 380)

AxWindowsMediaPlayer1.Location = New Point(7, 30)

Me.Location = New Point(((Screen.PrimaryScreen.Bounds.Width - Me.Width) / 2), ((Screen.PrimaryScreen.Bounds.Height - Me.Height) / 2))

Me.Visible = True

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub MNUACTUALSIZEVIDEO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MNUACTUALSIZEVIDEO.Click

Try

If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then

Me.Width = Me.AxWindowsMediaPlayer1.currentMedia.imageSourceW idth

Me.Height = Me.AxWindowsMediaPlayer1.currentMedia.imageSourceH eight

Me.Playlist.Visible = False

End If

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Sub

Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Dim Response As MsgBoxResult

Response = MsgBox("Are you sure you want to Exit ABN Player?", _

MsgBoxStyle.Question + MsgBoxStyle.YesNo, _

"ABN Player")

If Response = MsgBoxResult.Yes Then

End

End If

End Sub

Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click

Dim Response As MsgBoxResult

Response = MsgBox("Are you sure you want to Close the Media?", _

MsgBoxStyle.Question + MsgBoxStyle.YesNo, _

"ABN Player")

If Response = MsgBoxResult.Yes Then

AxWindowsMediaPlayer1.close()

End If

End Sub

Private Sub MuteToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MuteToolStripMenuItem.Click

Try

If MuteBol = False Then

AxWindowsMediaPlayer1.settings.mute = True

MuteBol = True

Volume_PictureBox.Image = My.Resources.Muted_Volume_Hover

MuteToolStripMenuItem.Checked = True

Me.ToolTip1.SetToolTip(Volume_PictureBox, "UnMute")

ElseIf MuteBol = True Then

AxWindowsMediaPlayer1.settings.mute = False

MuteBol = False

Volume_PictureBox.Image = My.Resources.Volume_Hover

MuteToolStripMenuItem.Checked = False

Me.ToolTip1.SetToolTip(Volume_PictureBox, "Mute")

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastReverse_Picturebox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FastReverese_PictureBox.MouseDown

Try

fbackward = True

If fbackward = True Then

AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastReverese_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles FastReverese_PictureBox.MouseHover

Try

FastReverese_PictureBox.Image = My.Resources.FastReverse_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastReverese_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles FastReverese_PictureBox.MouseLeave

Try

FastReverese_PictureBox.Image = My.Resources.FastReverse

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastReverse_Picturebox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FastReverese_PictureBox.MouseUp

Try

fbackward = False

If fbackward = False Then

AxWindowsMediaPlayer1.Ctlcontrols.play()

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastForward_Picturebox_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FastForward_PictureBox.MouseDown

Try

fforward = True

If fforward = True Then

AxWindowsMediaPlayer1.Ctlcontrols.fastForward()

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastForward_PictureBox_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles FastForward_PictureBox.MouseHover

Try

FastForward_PictureBox.Image = My.Resources.FastForward_Hover

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastForward_PictureBox_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles FastForward_PictureBox.MouseLeave

Try

FastForward_PictureBox.Image = My.Resources.FastForward

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub FastForward_Picturebox_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FastForward_PictureBox.MouseUp

Try

fforward = True

If fforward = False Then

AxWindowsMediaPlayer1.Ctlcontrols.play()

End If

Catch ex As Exception

MessageBox.Show(ex.Message & ex.Source)

End Try

End Sub

Private Sub ConnectUsMNU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectUsMNU.Click

Dim result As Integer

result = MessageBox.Show("No Connection Are Avaliable ", "Internet", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)

frmConnect.Show()

End Sub

Private Sub AboutMaestroToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutMaestroToolStripMenuItem1.Click

frmAbout.Show()

End Sub

End Class