VB Example 3

Work Examples

Home Return Next Example Previous ExampleCert/Awards Courses About

VB Example 3

Media Player

Public Class FormMusicBox

Private Sub ListSongs_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

Handles ListSongs.MouseDoubleClick

If ListSongs.SelectedItem = ListSongs.Items(0) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\01 Get Ready.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(1) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\02 Lose Yourself.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(2) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\03 Subculture.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(3) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\04 Don't Tell Me.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(4) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\05 Dance All Night.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(5) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\06 Track 6.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(6) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\07 Troubleshoot.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(7) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\08 Track 8.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(8) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\09 Track 9.wav",

AudioPlayMode.Background)

ElseIf ListSongs.SelectedItem = ListSongs.Items(9) Then

My.Computer.Audio.Play("C:\Users\michael\Documents\Programs\Music\musicboxsongs\10 Smack My Bitch

Up.wav", AudioPlayMode.Background)