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
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.