hi Rolf and yes :) LOL (i can tell you what these are for.
If wmp.playState = WMPPlayState.wmppsPlaying = True Then 'If it has started to play
ElseIf wmp.playState = WMPPlayState.wmppsStopped = True Then 'This is keeping the song playing until it has ended
I am now at a place where i am beginning to think its possessed LOL...this following code is playing one song after the other just fine, until it gets to the last song. When it is playing the NEXT to LAST song, it will Highlight the beginning song of the list. it will wait until the current song is finished and then it will play the last song as it should...BUT the highlighted song is the first song of the list..*sigh* SO then it will SKIP the first song and play the second song on this list..the highlighter will highlight the right song...and the list continues to play on from that point just fine. it seems to me that the trouble is solely in the transition from the end of the list to the beginning of the list
If CheckBox1.Checked = True Then
If wmp.playState = WMPPlayState.wmppsPlaying = True Then 'If it has started to play
ElseIf wmp.playState = WMPPlayState.wmppsStopped = True Then 'This is keeping the song playing until it has ended
Listbox1.SelectedIndex = Listbox1.SelectedIndex + 1 'This means to move to next Song in List
ListBox2.SelectedIndex = ListBox2.SelectedIndex + 1 'This means to move to next Song in List
wmp.URL = Listbox1.SelectedItem 'This means to play the song that it has moved to
If ListBox2.SelectedIndex = ListBox2.Items.Count - 1 Then 'This is telling us that the list is done
If Listbox1.SelectedIndex = Listbox1.Items.Count - 1 Then 'This is telling us that the list is done
End If
Listbox1.SelectedIndex = 0 'This is SUPPOSE to return selectin to beginning of list
ListBox2.SelectedIndex = 0 'This is SUPPOSE to return selectin to beginning of list
ElseIf CheckBox1.Checked = False Then
'it() 's the last song in the list so either move to index 0 from here or stop the music completely
If Listbox1.SelectedIndex = Listbox1.Items.Count - 1 Then
If ListBox2.SelectedIndex = ListBox2.Items.Count - 1 Then
Listbox1.SelectedIndex = 0
ListBox2.SelectedIndex = 0
End If
End If
End If
End If
End If
End Sub
#End Region