Saturday, May 25, 2013

Create your own Media Player
















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