Soyez le premier à donner votre avis sur cette source.
Snippet vu 11 815 fois - Téléchargée 91 fois
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!!!
4 mars 2002 à 09:43
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.