帮助wmp.dll（Windows媒体播放器）到vb 6

我的VB 6应用程序存在严重问题。在其中，我在表单中引用了wmp.dll，它是播放媒体视频文件的想法，我有一个名为LV1的ListView，其中我显示了播放列表文件名。我想知道当前播放列表的当前索引。该子负责检测变化：

Private Sub Wmp1_CurrentItemChange(ByVal pdispMedia As Object)

我可以使用以下行将完整计数输入播放列表：

Val=Wmp1.currentPlaylist.Count

我如何在再现中获取当前曲目（索引），如果我想与我的ListView协调，则选择具有相同索引的相同曲目到播放列表中。谢谢你的帮助。

已邀请:

2 个回复

募磷

您可以在添加到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

弓萍功

这就是答案。你必须在循环中再次搜索

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

要回复问题请先登录或注册

帮助wmp.dll（Windows媒体播放器）到vb 6

2 个回复

发起人

wmp

wmplib

问题状态

帮助wmp.dll（Windows媒体播放器）到vb 6

与内容相关的链接

2 个回复

发起人

wmp

wmplib

问题状态