Hallo zusammen,
ich Google jetzt schon sehr lange und habe viele Foren durch. Ich habe folgendes Problem mit dem AxMediaPlayer - Control. Ich kann innerhalb einer geladenen Playlist nicht einen Titel an erster Stelle verschieben.
Was mache ich verkehrt, denn bei der Überprüfung hat sich die Position nicht geändert.
Vielen Dank.
Gruß
Achim
ich Google jetzt schon sehr lange und habe viele Foren durch. Ich habe folgendes Problem mit dem AxMediaPlayer - Control. Ich kann innerhalb einer geladenen Playlist nicht einen Titel an erster Stelle verschieben.
VB.NET-Quellcode
- 'mPlayer ist das AxMediaPlayer - Control
- Private PlayList As WMPLib.IWMPPlaylist
- Private Sub Open_Playlist(ByVal OFile As String)
- PlayList = mPlayer.newPlaylist("Testplaylist", OFile)
- mPlayer.currentPlaylist = PlayList
- End Sub
- Private Sub Set_First(ByVal mIndex As Integer)
- 'Verschieben
- mPlayer.currentPlaylist.moveItem(mIndex, 0)
- 'Prüfen
- Dim I as Integer
- For I = 0 To mPlayer.currentPlaylist.count - 1
- Debug.Print(mPlayer.currentPlaylist.Item(I).sourceURL)
- If I = 10 Then Exit For
- Next
- End Sub
Was mache ich verkehrt, denn bei der Überprüfung hat sich die Position nicht geändert.
Vielen Dank.
Gruß
Achim