Mini lecteur mp3 sans grande pretention

Commenter

Contenu du snippet

pour ceux qui comme moi debute dans ce langage vous pourrez trouver un code source qui explique comment faire un lecteur de mp3 certes pas très fonctionnel mais une fois qu'on l'a compris tout est plus claire

Source / Exemple : 


Private Sub Command1_Click()
If List2.SelCount = 0 Then Exit Sub
MediaPlayer1.FileName = List1.List(List2.ListIndex)
MediaPlayer1.Play
End Sub

Private Sub Command2_Click()
CommonDialog1.CancelError = True
On Error GoTo error:
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.ShowOpen
List2.AddItem Mid$(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1, InStrRev(CommonDialog1.FileName, ".") - 1 - InStrRev(CommonDialog1.FileName, "\"))
List1.AddItem CommonDialog1.FileName
Label1.Caption = Mid$(CommonDialog1.FileName, InStrRev(CommonDialog1.FileName, "\") + 1, InStrRev(CommonDialog1.FileName, ".") - 1 - InStrRev(CommonDialog1.FileName, "\"))
error:
End Sub

Private Sub Command3_Click()
MediaPlayer1.Stop
End Sub

Private Sub Command4_Click()
If List2.SelCount = 0 Then Exit Sub
MediaPlayer1.Pause
End Sub

Private Sub List2_DblClick()
MediaPlayer1.FileName = List1.List(List2.ListIndex)
MediaPlayer1.Play
End Sub

Conclusion :


cette application etait simplement pour moi un exercice donc ne vous attendez pas à une mise à jour de ma part
certains bug son a noter tels que la reconnaissance des mp3 qui fait planter si le morceau n'est pas un mp3 et d'autres encore que je n'ai pas relever

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (darthpolor_I)