La Web del Programador: Comunidad de Programadores
 
https://www.lawebdelprogramador.com/preguntas/

    Pregunta:  261 - TRATAMIENTO DE FICHEROS AVI
Autor:  Hector
Hola a todos:

¿ Sabe alguien de algún control que trate AVI´s para VB 5, que me deje:

1.- Cambiar el fichero a visualizar en tiempo de ejecución.
2.- Cambiar el Modo (Play, stop) durante la ejecución
3.- Se muestre con el tamaño y en la posición fijada en tiempo de diseño.
Gracias anticipadas.

  Respuesta:  HORACIO ACOSTA
Para 1 y 2 puedes utilizar las propiedades de el componenete mmcontrol, combinandolas con un ´timer´, si quieres que se detenga y reinicie solo
o dejar el mmcontrol como visible para hacerlo manualmente.
Para 3. utilizas un cuadro ´picture´ en donde llamas el archivo de video.
Tambien puedes utilizar controles ´OLE´ pero ello puede traer problemas de transportabilidad y velocidad en tiempo de ejecución. Si deseas el código, por favor escribeme.
  Respuesta:  Francisco José
Existe un Control en la red llamado MCIWNDX.VBX que es Freeware y que te permite visualizar ficheros AVI, asi como manejarlos de una manera muy fácil.
Yo lo he probado con el VB 4.0 y VB 5.0 y funciona correctamente.

Si necesitas más información acerca de su manejo envio un ejemplo.

Saludos.

  Respuesta:  Antonio Esteban Soria
Para controlar ficheros AVI desde VB necesitas introducir un control OLE dentro de un formulario (yo le he llamado OLE1). Te adjunto el código para las distintas opciones que querías controlar:

1 - Procedimiento para cargar el Fichero Avi que quieras:

OLE1.SourceDoc = "C:\1.AVI"
OLE1.Action = 0
OLE1.DoVerb
2 - Procedimiento para ejecutar el fichero AVI en tu formulario o en una ventana del sistema:
If "Ventana" Then ‘ Ejecuta el AVI en una ventana del sistema
OLE1.Action = 1
OLE1.DoVerb
Else ‘ Ejecuta el AVI como lo tengas definido en tu formulario
OLE1.Action = 0
OLE1.DoVerb
End If
3 - Procedimiento para hacer un "play" del AVI:
OLE1.Action = 0
OLE1.DoVerb
4 - Procedimiento para hacer un "stop" del AVI
OLE1.Action = 0
Espero poder ayudarte con esta contestación, si tienes algún problema o cualquier otra duda mandame un mail.

Un Saludo.

  Respuesta:  Joel
Pues yo te recomiendo el Control de ActiveMovie que viene con el internet explorer, lo he usado un poco, pero parece ser que sus propiedades y eventos d este es la solucion a tus problemas, tengo un articulo con un programa que trata el ActiveMovie tengo entendido que trata incluso quicktime y otros formatos, si necesitas mas informacion te la puedo proporcionar, y para los demas claro, escribeme a mi e-mail, adios.
  Respuesta:  Carlos Diaz
la mejor forma de trabajar video en vb es utilizando el control activemovie (AMOVIE.OCX). Es facil aqui de doy un ejemplo:

para decirle que archivo se ejecute:

activemovie1.filename="direccion del video"
corre el programa ya puedes ejecutar un video pero hay mas propiedades

autostar=sirve para ejecutar el video automaticamente cuando se ejecuta el programa

etc. si quieres mas ayuda escribeme hasta pronto

  Respuesta:  César Nava Soto
Otra manera de hacerlo es utilizando el control Miltimedia que viene con el Visual Basic 5.0. La estructura del codigo con este control seria:
With Mmcontrol1
.Devicetype="Avivideo"
.Filename="C:\NombreArchivo.avi"
.Command="Open"
.Command="Play"
End With
Ademas con este control tambien puedes reproducir archivos Midi, Wave, o el CD, cambiando la propiedad Devicetype a "Sequencer", "Waveaudio" o "CD player" respectivamente.