'_______________________________________________________________________________

'                                          M U S I C   B O X   P R O G R A M

'                                                     Created 10/6/06

'                                                         Ron Kessler
'_______________________________________________________________________________

'This beauty plays wav files in the background and lets you do other computer work if you like.
'This version will not play mp3, mp4, or wma files. I will figure out how to play these and update
'the code as soon as I figure it out!

'Updated 10/6/06
'No error handling in this version.

Imports System.Media

Public Class frmMain

    Private Sub lstSongs_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstSongs.SelectedIndexChanged

        Dim songFileName As String = ""

        songFileName = "..\..\audio\" & Trim(Mid(lstSongs.SelectedItem, 40))

        My.Computer.Audio.Play(songFileName, AudioPlayMode.Background)
       

    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        My.Computer.Audio.Stop()
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class