Jouer des mp3z

Télécharger le projet
Commenter

Description

Fonctions permettant de Jouer et Stopper un fichier MP3.
Elle est basée sur le nom des fichiers, c'est-à-dire que vous pouvez chargez autant d'instances de fichiers si leur nom est différent (vous verrez bien...)
Cette source est inspirée du code de Pit (dans cette même rubrique)

Vous n'avez besoin que de:
- 1 feuille avec 2 CommandButtons
- 1 module

Source / Exemple : 


Feuille:

Private Sub Command1_Click()
playMP3 "c:\z"
End Sub

Private Sub Command2_Click()
stopMP3 "c:\z"
End Sub

Module:

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function playMP3(Fichier As String)
mciSendString "OPEN " & Fichier & ".mp3" & " Alias " & Fichier, 0, 0, 0
mciSendString "Play " & Fichier, 0, 0, 0
End Function

Public Function stopMP3(Fichier As String)
mciSendString "Stop " & Fichier, 0, 0, 0
mciSendString "Close " & Fichier, 0, 0, 0
End Function

Conclusion :


J'en profite pour faire de la pub pour mon site sur la prog' en plein essort: http://nh3progzone.free.fr, merci à ce qui viendront y faire un tour...
Télécharger le projet

Codes Sources

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 (Ammoniak)