Public Class Form1
Private Sub LstBox_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LstBox.DoubleClick
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
End Sub
Private Sub LstBox_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LstBox.SelectedIndexChanged
LbAdd.SelectedIndex = LstBox.SelectedIndex
End Sub
Private Sub cmdPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPlay.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub cmdPause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPause.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub
Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
Private Sub cmdRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRemove.Click
LbAdd.Items.Remove(LbAdd.SelectedItem)
LstBox.Items.Remove(LstBox.SelectedItem)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim ItemStart As Integer
ItemStart = LstBox.SelectedIndex
If Me.AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
Me.LstBox.SelectedIndex = ItemStart + 1
Timer1.Start()
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
'Else
' Timer1.Start()
End If
Catch ex As Exception
If cmdCheckBox.Checked = True Then
LstBox.SelectedIndex = "0"
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
Else
AxWindowsMediaPlayer1.URL = ""
LstBox.SelectedIndex = "0"
End If
End Try
End Sub
Private Sub LoardFileMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoardFileMenu.Click
OpenFileDialog1.FileName = ""
OpenFileDialog1.Multiselect = True
OpenFileDialog1.Filter = "Audio Wave files(*.wav)|*.wav|MP3 files (*mp3)|*.mp3|MP4 files(*.mp4)|*.mp4|AVI Files(*.avi)|*.avi|All files(*.*)|*.*"
OpenFileDialog1.FilterIndex = 2
OpenFileDialog1.ShowDialog()
'If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
' AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
'End If
Dim file As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName)
For Each file In OpenFileDialog1.FileNames
LstBox.Items.Add(System.IO.Path.GetFileNameWithoutExtension(file))
LbAdd.Items.Add((file))
Next
LstBox.SelectedIndex = "0"
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
Timer1.Start()
End Sub
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
If LstBox.SelectedIndex = "0" Then
Timer1.Stop()
LstBox.SelectedIndex = "0"
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
Timer1.Start()
Else
Timer1.Stop()
AxWindowsMediaPlayer1.URL = ""
LstBox.SelectedIndex = LstBox.SelectedIndex - 1
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
Timer1.Start()
End If
End Sub
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
Timer1.Stop()
LstBox.SelectedIndex = LstBox.SelectedIndex + 1
AxWindowsMediaPlayer1.URL = LbAdd.SelectedItem
Timer1.Start()
End Sub
End Class
No comments:
Post a Comment