LECTEUR DE PLAYLIST MP3

Commentaire de SupraDolph le 29/12/2002 21:11:24

Bon Début Continu.
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

Commentaire de SupraDolph le 30/12/2002 01:06:06

ATTENTION sa n'a pas pris les backslash !
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

Commentaire de vbprog le 04/01/2003 20:51:17

C bien comme debut ;-)
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 :-)