Multimédia control

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 564 fois - Téléchargée 89 fois

Contenu du snippet

Le control multimédia permet la lecture de beaucoup de types de fichiers différents!

Source / Exemple :


Donc, placez le tout d'abord sur votre form (MCI32.ocx)
Puis rajoutez cette procédure:

--------------------------------------------------
Sub Musique(Chemin As String)
 Dim TypeDeFichier As String
 Dim Extension As String

 Extension = LCase(Right(Chemin, 3))

 Select Case Extension
  Case "mid", "rmi"
   TypeDeFichier = "sequencer"
  Case "wav"
   TypeDeFichier = "waveaudio"
  Case "avi"
   TypeDeFichier = "avivideo"
  Case "mp3", "aif", "peg", "mpg", ".au"
   TypeDeFichier = "mepgvideo"
  Case "mov", "jpg", "pic"
   TypeDeFichier = "QTWVideo"
 End Select

 'ETC.........

 MCI.Command = "close"         'Précaution
 'Spécifie quel type de fichier il va ouvrir:
 MCI.DeviceType = TypeDeFichier
 'spécifie le chemin du fichier à ouvrir:
 MCI.filename = Chemin         
 MCI.Command = "open"          'Ouvre le fichier
 MCI.Command = "play"          'Joue le fichier

End Sub

--------------------------------------------------
Pour ouvrir un fichier multimédia et le jouer, il ne vous reste plus qu'à appeller la procédure en spécifiant le chemin du fichier à ouvrir

Ex, dans un bouton:

--------------------------------------------------
Private Sub Command1_Click()
Musique("C:\Boum.mid")
End Sub
--------------------------------------------------

Voilà, c'est tout!!!

Conclusion :


Cet exemple ne montre pas tous les fichiers possibles, les voici tous:

mid=Sequencer
rmi=Sequencer
wav=waveaudio
avi=AVIVideo
mpeg=MPEGVideo
mpe=MPEGVideo
mpg=MPEGVideo
mpa=MPEGVideo
enc=MPEGVideo
dat=MPEGVideo
m1v=MPEGVideo
mp2=MPEGVideo
mov=QTWVideo
qt=MPEGVideo
au=MPEGVideo
snd=MPEGVideo
aif=MPEGVideo
aiff=MPEGVideo
aifc=MPEGVideo
pic=QTWVideo
jpg=QTWVideo
m3u=MPEGVideo
mp3=MPEGVideo
mpv2=MPEGVideo

Nb: il peut y en avoir plus, ou moins sur votre ordinateur, allez voir dans le Win.ini rubrique [mci extensions] pour tous les avoir

A voir également

Ajouter un commentaire Commentaire
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005

Je trouve ton programme tres pratique et tres interessant.
Juste un petit detail, tu as ecrit "mepgvideo" a la place de "mpegvideo". Ca fait rien mais sinon ca marche pas quand on voit pas et on fait Copier-Coller.

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.