Справка с wmp.dll (Windows media player) для vb 6

Question

У меня есть серьезная проблема с моим приложением VB 6. В нем у меня есть ссылка на wmp.dll в форме, идея воспроизведения медиа-видеофайлов, у меня есть ListView под названием LV1, в котором я показываю имена файлов плейлистов. Я хочу узнать текущий индекс из текущего списка воспроизведения.

Этот подраздел отвечает детектировать изменения:

Private Sub Wmp1_CurrentItemChange(ByVal pdispMedia As Object) 

я могу получить Totall счет в плейлисте с этой линией:

Val=Wmp1.currentPlaylist.Count 

Как я могу получить текущий трек (индекс) в воспроизведении, если я хочу скоординировать это с моим ListView, выбрать один и тот же трек с тем же индексом в списке воспроизведения.

Благодарим за помощь.

Answer 1

Вы можете использовать setItemInfo на носителе перед добавлением currentPlaylist как это:

Option Explicit 

Private Sub Form_Load() 
    Dim sFile  As String 
    Dim oMedia  As IWMPMedia 

    sFile = Dir("c:\temp\*.avi") 
    Do While LenB(sFile) <> 0 
     Set oMedia = Wmp1.newMedia("c:\temp\" & sFile) 
     oMedia.setItemInfo "Index", Wmp1.currentPlaylist.Count 
     Wmp1.currentPlaylist.appendItem oMedia 
     sFile = Dir 
    Loop 
End Sub 

Private Sub Wmp1_CurrentItemChange(ByVal pdispMedia As Object) 
    Debug.Print Wmp1.currentPlaylist.Item(Wmp1.currentMedia.getItemInfo("Index")).Name 
End Sub 

Answer 2

Это ответ. Вам нужно снова искать в петле

Dim i As Integer 

For i = 0 To WindowsMediaPlayer1.currentPlaylist.Count - 1 
If WindowsMediaPlayer1.currentPlaylist.Item(i).isIdentical(WindowsMediaPlayer1.currentMedia) = True Then Exit For 
Next 

List1.Selected(i) = True