vb 6へのwmp.dll（Windowsメディアプレーヤー）のヘルプ

Question

私は私のVB 6アプリケーションに深刻な問題があります。その中には、wmp.dllのフォームがあり、再生メディアファイルのアイデアがあります。再生リストのファイル名を示すLV1というListViewがあります。現在のプレイリストから現在のインデックスを知りたい

このサブは、変化を検出する担当している：

Private Sub Wmp1_CurrentItemChange(ByVal pdispMedia As Object) 

私はこのラインでのプレイリストにtotall数を取得することができます：私は現在のトラック（インデックスを取得するにはどうすればよい

Val=Wmp1.currentPlaylist.Count 

を）再生リスト内の同じインデックスを持つ同じトラックを選択するために、ListViewでこれを調整したい場合は、

ありがとうございました。

Answer 1

あなたはこのようcurrentPlaylistに添加する前にメディアにsetItemInfoを使用することができます。

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