How To Make A MP3 Player In VB.NET

Someone requested me to write a tutorial about making a mp3 player in vb.net by the way i actually don't have time to do it but i am here to do a simple one because i don't want to deny his request or late .. first of all right click on your toolbox and select Choose Items and a window will come up move to COM tab page in that window and search for Windows Media Player when you found it tick it and click ok button .

Then you will see any tool in your toolbox that should be this (Windows Media Player)

Now drag and drop that tool in and go for it's properties and change visible property to false now go ahead and add a listbox , four buttons and a openfiledialog(enable multi select) also make your form look like this .

Change the text property of all buttons as given below

button1 - Play

button2 - Pause

button3 - Stop

button4 - Add

Now double click on button1 and add these codes

        AxWindowsMediaPlayer1.URL = listbox1.SelectedItem

Double click button 2 and add these codes

        AxWindowsMediaPlayer1.Ctlcontrols.pause()

Double click button 3 and add these codes

        AxWindowsMediaPlayer1.Ctlcontrols.stop()

Double click button 4 and add these codes

 openfiledialog1.ShowDialog()
        If Windows.Forms.DialogResult.OK Then
            For Each track As String In openfiledialog1.FileNames
                listbox1.Items.Add(track)
            Next
        End If

Now debug , click add button to add mp3 files to and you know what to do next have fun i am sorry that i couldn't make it advanced i have no time from yesterday .

here is the full source code

Public Class Form1
    Private Sub button1_Click(sender As Object, e As EventArgs) Handles button1.Click
        AxWindowsMediaPlayer1.URL = listbox1.SelectedItem
    End Sub
    Private Sub button2_Click(sender As Object, e As EventArgs) Handles button2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub
    Private Sub button3_Click(sender As Object, e As EventArgs) Handles button3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub button4_Click(sender As Object, e As EventArgs) Handles button4.Click
        openfiledialog1.ShowDialog()
        If Windows.Forms.DialogResult.OK Then
            For Each track As String In openfiledialog1.FileNames
                listbox1.Items.Add(track)
            Next
        End If
    End Sub
End Class