CODES SOURCES

- MULTIMEDIA MCI -

 

 

Exercice : Ce programme utilise un contrôle multimedia permettant de lire des fichiers de différents types (wave, mpeg, avi, mp3 ...). Dans l'exemple qui va suivre, le lecteur permet de lire un fichier de type "avi" et de l'afficher à l'intérieur même de l'interface. Des boutons de commandes permettent d'utiliser les fonctions principales du lecteur (lecture, pause ...). Enfin, un contrôle shape permet de représenter le voyant d'état du lecteur (vert pour actif et rouge pour inactif).

Des informations sur l'utilisation du contrôle multimedia sont disponibles dans la rubrique "cours".

 

L'interface :

 

 Les différents contrôles qui composent cette interface sont :

  • Une PictureBox nommée FenPct,
  • Un Shape nommé VoyShp,
  • Quatre boutons de commandes nommés (LectCmd, StopCmd, PausCmd, OffCmd),
  • Un contrôle multimédia nommé Mmci.

 

 

 

Le code source

Private Sub Form_Load()
'Est exécuté au lancement de l'application
Mmci.DeviceType = "avivideo"    'Type du fichier multimédia
Mmci.FileName = "c:\mes documents\globe.avi"    'Chemin et nom du fichier à lire
End Sub

Private Sub LectCmd_Click() 'Bouton Lecture
Mmci.Command = "open"   'Ouvrir le contrôle multimédia
Mmci.Command = "play"   'Lire
Mmci.hWndDisplay = FenPct.hWnd  'Diffuser le fichier vidéo dans la _
picturebox
VoyShp.BackColor = &HFF00&      'Couleur voyant vert
VoyShp.BorderColor = &HFF00&
End Sub

Private Sub Mmci_Done(NotifyCode As Integer) 'Est exécuté _
lorsque le fichier est terminé
Mmci.Command = "close"  'Fermeture du contrôle Mmci
VoyShp.BackColor = &HFF&    'Voyant rouge
VoyShp.BorderColor = &HFF&
End Sub

Private Sub OffCmd_Click()  'Bouton Off
End   'Fermer l'application
End Sub

Private Sub PausCmd_Click() 'Bouton Pause
Mmci.Command = "pause"  'Pause
End Sub

Private Sub StopCmd_Click() 'Bouton stop
Mmci.Command = "stop"   'Stop
VoyShp.BackColor = &HFF&    'Voyant rouge
VoyShp.BorderColor = &HFF&
End Sub

 

 

 

 

   

 

          ©Copyright Webmaster 2002