Salut,
Voici un tout petit exemple dans lequel j'utilise la playlist (et le toute dernière version du control, sortie il y a qq jours: 0.8.6), il y a peut être des petites erreurs, je le fais de mémoire :
Intègre le composant "VLCPlugin2" à ton application (Attention, la nouvelle version intégre 2 composants VLCPlugin et VLCPlugin2), nomme le par exemple "VLCPluginTest", créer un bouton et insère y le code :
'---------------------------------
Dim fichierALire as string
fichierALire = "C:\tonfichier.mp3"
'Si CD audio, fichierALire="cdda://E:@3" pour lire la 3ème piste du CD se trouvant dans le lecteur E
'On s'assure que la playlist est vide, sinon on l'efface
if (VLCPluginTest.playlist.items.count > 0) then VLCPluginTest.playlist.items.clear
'On charge le fichier à lire dans la playlist
VLCPluginTest.playlist.add fichierALire
'Lecture du fichier
VLCPluginTest.playlist.play
'Pour récupérer la durée du morceau
Msgbox "Durée du morceau en ms : " + VLCPluginTest.input.length
'Pour savoir le temps écoulé
Msgbox "Temps écoulé : "+ VLCPluginTest.input.time
'Pourcentage du morceau écoulé
Msgbox "Pourcentage du morceau écoulé (à multiplier par 100) : "+ VLCPluginTest.input.position
'Le fichier est en cours de lecture ?
if VLCPluginTest.playlist.isPlaying then MsgBox "Le fichier est en cours de lecture"
'On fait une pause
VLCPluginTest.playlist.pause
'On arrête la lecture
VLCPluginTest.playlist.stop
'------------------------------------------------
Voila, j'espère que ça t'aidera. Par contre, j'ai répertorié qq bug pour la lecture des CD Audio (en utilisant une barre de défilement) et lorsque j'enchainais plusieurs morceaux à la suite (il fallait que j'insère des pauses après le "stop" avant de recharger un autre fichier...)... Sinon, il y a qq explications pour l'utilisation de la première version de l'ocx (
[ Lien ]) Malheureusment, ça n'a pas encore été mis à jour avec la nouvelle version.
Bon courage !
A+
Tom