If Player.playState = WMPPlayState.wmppsPlaying Then 'And TrackBar1.Value = 1 Then For i = 0 To Player.currentPlaylist.count - 1 If Player.currentMedia.isIdentical(Player.currentPlaylist.Item(i)) Then If i < ListBox1.SelectedIndex Then MsgBox(i.ToString + vbCrLf + ListBox1.SelectedIndex.ToString) While i < ListBox1.SelectedIndex Player.Ctlcontrols.next() i += 1 End While End If If i > ListBox1.SelectedIndex Then While i > ListBox1.SelectedIndex Player.Ctlcontrols.previous() i -= 1 End While End If 'Label3.Text = "Currently Playing Media Index: " & i.ToString 'MsgBox("Currently Playing Media Index: " & i.ToString) End If Next End If
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)