Suite à une question dans le forum, je mets ici un petit exemple très simple de lecture de fichier AVI. Le controle utilisé est Animation que l'on trouve dans les composants Microsoft windows common control 2-6. Il ne lit que les avi muette et non compressées ( comme les animations de windows quand on vide la corbeille par exemple. Celles-ci sont fournies avec VB et on les trouvent ici : C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos ( enfin suivant votre installation )
Source / Exemple :
Private Sub Command1_Click()
'appel la fenetre d'ouverture d'un fichier
CommonDialog1.ShowOpen
'Mets un dossier par défaut, sinon Mes Documents
CommonDialog1.InitDir = "C:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos"
'Propose d'afficher seulement les fichier *.avi
CommonDialog1.Filter = "(Fichiers AVI)|*.avi"
'test si il y a bien eu un fichier de sélectionné et le gharge dans le control animation
If CommonDialog1.FileName <> "" Then
Animation1.Open CommonDialog1.FileName
Animation1.Enabled = True
Else
'pas de fichier avi chargé
Animation1.Enabled = False
End If
End Sub
Private Sub Command2_Click()
'lance la lecture
If Animation1.Enabled = True Then Animation1.Play
End Sub
Private Sub Command3_Click()
'arrete la lecture
If Animation1.Enabled = True Then Animation1.Stop
End Sub
' sans oublier de mettre un control animation et common dialog bien sur...
Conclusion :
Heu c'est mon premier source et c'est juste histoire dans faire profiter les autres et pas les envoyer à une seule personne...
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.