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