LECTEUR DE PLAYLIST MP3
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
-
29 déc. 2002 à 21:11
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 25 août 2008 à 00:29
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 25 août 2008 à 00:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5488-lecteur-de-playlist-mp3
https://codes-sources.commentcamarche.net/source/5488-lecteur-de-playlist-mp3
25 août 2008 à 00:29
Et si j'ai une playlist :
C:\Monprog\Audio\Instrumental
Que je veux intégrer au load tout les fichiers mp3 qui s'y trouve ?
10/10
4 janv. 2003 à 20:51
g une question et j' espère que tu pourra me repondre ....
COMMENT TU AS FAIT LE GRAPHIQUE DE TON PROGRAMME ?
merci pour me repondre :-)
30 déc. 2002 à 12:34
Why ???
merci de votre réponse ;-)
30 déc. 2002 à 01:06
List1.AddItem Files(0) & "BACKSLASH" & Files(i)
If Right(Fichier, 1) "BACKSLASH" Then Fichier Left(Fichier, Len(Fichier) - 1)
sp() = Split(Fichier, "BACKSLASH")
Voila désoler de ne pas l'avoir vu avant.
on Prog
SupraDolph
29 déc. 2002 à 22:34
29 déc. 2002 à 21:11
g modifier 2 petit truc pour ton prog.
il est plus interessant de pouvoir ajouter plusieur musique en même temps car si on veut faire une playlist de 200 MP3 sa devient vite lourd!
voila le code :
Private Sub ajout_Click()
On Error GoTo Annuler
Dim Files() As String, i As Long
Cd.CancelError = True
Cd.Filter = "MP3|*.mp3"
Cd.Flags = cdlOFNAllowMultiselect Or cdlOFNExplorer
Cd.ShowOpen
Files = Split(Cd.FileName, Chr(0))
If UBound(Files) = 0 Then
List1.AddItem Cd.FileName
Else
For i = 1 To UBound(Files)
List1.AddItem Files(0) & "" & Files(i)
Next i
End If
Exit Sub
Annuler:
End Sub
g aussi modifier ta fonction Nom pour qu'elle soit plus courte et sans boucle.
Voici le code :
Private Function Nom(Fichier) As String
' Fonction qui garde seulement le nom du fichier
Dim sp() As String
If Right(Fichier, 1) "" Then Fichier Left(Fichier, Len(Fichier) - 1)
sp() = Split(Fichier, "")
Nom = sp(UBound(sp))
End Function
voila j'espere que sa va t'aider pour la suite
Bon Prog
SupraDolph