How to Create a Music Player in Visual Basic

Submitted by GeePee on Saturday, April 25, 2015 - 23:19.

Introduction: Welcome to my tutorial on how to create a music player in Visual Basic. Important: Before doing this you must already have the Windows Media Player control in your visual basic application form. If it is not in your control box follow these steps; - Open Toolbox - Right Click, select Choose Items - Click on COM Components - Add Windows Media Player - Add the media player from your toolbox to your form. Steps of Creation: Step 1: First lets create a form with; music player - play the music, listbox1 - contain the music files in the loaded directory, button1 - load textbox1 directory, textbox1 - hold current/new directory, button2 - play selected music file from listbox1, button3 - open laoded directory. We also need to make a string to hold the loaded location.

Dim loadedLocation As String = Nothing

Step 2: Next, we will make the button1 click event action which will load all the .mp3 files in the given directory to our listbox1.

ListBox1.Items.Clear()
For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox1.Text)
    If (foundFile.ToLower().EndsWith(".mp3")) Then ListBox1.Items.Add(foundFile.Split("\")(foundFile.Split("\").Count() - 1))
Next
loadedLocation = TextBox1.Text

We also set the loadedLocation string to the new directory so we can open it later. Step 3: For the button2 action we simply set the url of the media player control to the selected item in listbox1. It will play automatically.

If (Not ListBox1.SelectedItem = Nothing) Then AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

Step 4: Finally we want to make the open directory button. Simple.

Diagnostics.Process.Start(loadedLocation)

Project Complete! Below is the full source code and download to the project files.

Public Class Form1
    Dim loadedLocation As String = Nothing
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox1.Text)
            If (foundFile.ToLower().EndsWith(".mp3")) Then ListBox1.Items.Add(foundFile.Split("\")(foundFile.Split("\").Count() - 1))
        Next
        loadedLocation = TextBox1.Text
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If (Not ListBox1.SelectedItem = Nothing) Then AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Diagnostics.Process.Start(loadedLocation)
    End Sub
End Class

How to Create a Music Player in Visual Basic

Tags

Comments

Useless

Add new comment