Jouer des fichiers mp3 (sans ocx)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 522 fois - Téléchargée 80 fois

Commenter

Contenu du snippet

Voici une façon de procéder pour lire des MP3 sans OCX (Attention : il faut avoir des codecs pour pouvoir jouer certaines musics):

Source / Exemple : 


Option Explicit

Dim ret As Long, mp3file As String
Private 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

Private Sub Form_Load()
mp3file = "c:\xxx.mp3"
ret = mciSendString("OPEN " & mp3file & " Alias Sonido", 0, 0, 0) 'ouvre
ret = mciSendString("Play sonido", 0, 0, 0) 'Joue
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
ret = mciSendString("Stop sonido", 0, 0, 0) 'Pause (si on fait lecture ca reprendra la)
ret = mciSendString("Close sonido", 0, 0, 0) 'Arret (si on fait lecture ca recommence au debut)
End Sub

Conclusion :


Ce source a été obtenue sur WebZone (c mon site : http://webzone.webhostme.com/)

A voir également

Ajouter un commentaire

Commentaires

Signaler
-
Fonctionne sous VB6SP4
Par contre si le fichier ou le chemin contient des espaces cela ne fonctionne pas
Signaler
-
c'est génial, c'est exactement ce que je cherche, but, c'est quoi les "codecs"?

Désolé mais je suis plutôt nul en VB6

So long et merci de toutes façons

Peter scheede
Signaler
-
C EST SUPER ET CA MARCHE
J AIMERAI Y RAJOUTER UN CONTROL DATA MAIS LA JE CALE
SERAIT IL POSSIBLE DE ME DONNER UN PETIT COUP DE POUCE
MERCI
Signaler
-
Si le fichier ou le chemin contient des espaces cela ne fonctionne pas.
Signaler
-
Essayer de rentrer les répertoires en nom dos:
c:progra~1
pour program files par exemple si c'est le premier rép qui commence par progra...
(c juste une suggestion jé pa testé)
Afficher les 15 commentaires
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 (cs_Pit)