Private Sub cmdAdd_Click()

If Not txtName = "" Then

lstSongs.AddItem txtName.Text

Else

MsgBox "Please Input Name"

WindowsMediaPlayer1.URL = "C:\vb\chimes.wav"

End If

txtName = ""

End Sub

 

Private Sub cmdDelete_Click()

If lstSongs.ListIndex > -1 Then

lstSongs.RemoveItem lstSongs.ListIndex

Else

MsgBox "Please Highlight a Selection"

End If

End Sub

 

Private Sub cmdPlay_Click()

txtName.Text = lstSongs.Text

Dim X As String

Dim Y As String

X = txtName.Text 'song name

Y = "C:\vb\" & X 'path and song name

Label2 = Y & ".mp3" 'path, song name, and file extension

WindowsMediaPlayer1.URL = Y & ".mp3"

End Sub

 

Private Sub cmdStop_Click()

WindowsMediaPlayer1.URL = "C:\vb\chord.wav"

txtName.Text = ""

Label2 = "Stoped"

End Sub

 

Private Sub cmdExit_Click()

Dim NumSongs As Integer

Dim songs As String

Dim counter As Integer

Open "C:\vb\playlist.txt" For Output As #2

NumSongs = lstSongs.ListCount

For counter = 0 To NumSongs - 1

songs = lstSongs.List(counter)

Write #2, songs

Next

Close #2

End

End Sub

 

Public Sub UserForm_Initialize()

Dim Name As String

Open "C:\vb\playlist.txt" For Input As #1

Do Until EOF(1)

Input #1, Name

lstSongs.AddItem Name

Loop

Close #1

End Sub