Discussion :

[krikritof]

Bonjour

C'est mon 1er post, je suis loin d'être un expert en programmation alors je fais selon les différents tutoriels et celui-ci a attiré mon attention :

Utiliser Windows Media Player en Visual Basic

Le coup de la playlist m'intéresse mais dans l'exemple du tutoriel, je vois qu'il faut ajouter les fichiers musicaux 1 par 1 avec le nom de chacun.
Est-il possible que cette liste se crée toute seule si j'indique dans quel dossier se trouvent les musiques ?
Merci beaucoup pour votre attention

[ProgElecT]

Salut, bienvenu sur DVP
Sur un Form, un WindowsMediaPlayer, un FileListBox, et le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Option Explicit
 
Private Sub File1_Click()
'utilisation de la PlayList
'Lire une séquence spécifique de la PlayList
Dim It As Object
Set It = WindowsMediaPlayer1.currentPlaylist.Item(File1.ListIndex)
'jouer le fichier
WindowsMediaPlayer1.Controls.playItem It
End Sub
 
Private Sub Form_Load()
Dim Xwmp As IWMPMedia
'nettoye la Playlist en cours avant de réalimenter la liste
WindowsMediaPlayer1.currentPlaylist.Clear
'Selection des types de fichiers à afficher dans la liste
File1.Pattern = "*.avi;*.mp3" '(Il peut être ajouté des types)
'chemin repertoire ou ce trouve les fichiers MEDIA (*** ADAPTER ***)
File1.Path = "C:\Provisoir"
Dim T As Integer
'remplis la liste dans WindowsMediaPlayer
For T = 0 To File1.ListCount - 1
 Set Xwmp = WindowsMediaPlayer1.newMedia(File1.Path & "\" & File1.List(T))
 WindowsMediaPlayer1.currentPlaylist.insertItem T, Xwmp
Next T
End Sub
Private Sub Form_Unload(Cancel As Integer)
WindowsMediaPlayer1.Close
End Sub

[krikritof]

Ah c'est cool ! je devrais pouvoir y arriver avec tes suggestions, merci infiniment

[krikritof]

Ton code fonctionne très bien

A tout hasard j'ai essayé cette instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WindowsMediaPlayer1.settings.setMode "shuffle", True

pour la lecture aléatoire et ça fonctionne, j'ai réellement pu faire ce que je voulais

Encore merci.