Agregar videos y sonidos

Para poder explicar cómo se agregan este tipo de archivos (videos y sonidos) a los formularios de Visual Basic se explicará el proceso paso a paso mediante ejemplos.

- AGREGAR SONIDOS: En este ejemplo se reproduce un sonido en segundo plano. La reproducción en segundo plano permite que la aplicación ejecute otro código mientras se reproduce el sonido.  El método My.Computer.Audio.Play permite que la aplicación reproduzca solo un sonido de fondo a la vez; cuando la aplicación reproduce un nuevo sonido de fondo, deja de reproducir el sonido de fondo anterior.  También se puede reproducir un sonido y esperar a que se complete. En general, cuando una aplicación repite un bucle de sonido, debe detener el sonido en algún momento. 

El método My.Computer.Audio.Play reproduce un sonido. Cuando se especifica AudioPlayMode.WaitToComplete, My.Computer.Audio.Play espera hasta que el sonido se completa antes de que el código de llamada continúe.

Compruebe que el nombre de archivo hace referencia a un archivo de sonido .wav del sistema.

Sub PlayBackgroundSoundFile()     

My.Computer.Audio.Play("C:\Waterfall.wav",          

AudioPlayMode.WaitToComplete) 

End Sub  

El método My.Computer.Audio.Play reproduce un sonido.  Cuando se especifica AudioPlayMode.WaitToComplete, My.Computer.Audio.Play espera hasta que el sonido se completa antes de que el código de llamada continúe.

Compruebe que los recursos de la aplicación incluyen un archivo de sonido .wav denominado Waterfall.

Sub PlayBackgroundSoundResource()     My.Computer.Audio.Play(My.Resources.Waterfall,          AudioPlayMode.WaitToComplete)

End Sub 

El nombre de archivo debe hacer referencia un archivo de sonido .wav del sistema. Para simplificar la administración de sus archivos de sonido, considere almacenar los archivos como recursos de aplicación. 

 - AGREGAR VIDEOS:Para agregar el componente Windows Media Player al cuadro de herramientas. Hay que dar clic derecho sobre el cuadro de herramientas y seleccionar la opción “Elegir elementos”. Luego selecciona la ficha “Componentes COM”y busca el componente “Windows Media Player”que en su ruta de acceso apunte hacia: msdxm.ocx. se selecciona su cuadro de opción. En el cuadro de herramientas debe de aparecer un nuevo control llamado Windows Media Player que hay que agregar al formulario.

Una vez agregado, el primer paso será, si queremos que no comience a reproducir al iniciar el programa, se digita lo siguiente:

'impedir reproducci¢n automatica AxMediaPlayer1.AutoStart =False

Se le asigna un archivo de audio o video y se reproduce con el método play():  

AxMediaPlayer1.FileName "C:\archivo.avi" AxMediaPlayer1.Play()

Para mejorar este código se insertará un OpenFiledialog para buscar archivos y reproducirlos
para buscar el archivo

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'utilizamos el OPenFileDialog para seleccionar un archivo

'Establecemos titulo a mostrar

Me.OpenFileDialog1.Title = "Seleccionar archivo"

'Abrir por default la carpeta mis documentos

'utilizamos una variable de entorno de windows

Environment.SpecialFolder.MyDocuments

apuntar a mis imagenes

 Me.OpenFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)

 'Abrir el dilogo

 Me.OpenFileDialog1.ShowDialog()

 End Sub

ya para reproducir

'Utilizar el evento FILE_OK

 'Para saber en qué momento ya se seleccionó una imagen

 Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk

 'obtener la imagen y mostrarla al pictureBox1

AxMediaPlayer1.FileName = OpenFileDialog1.FileName

 AxMediaPlayer1.Play()

 End Sub 

NOTA: SOLO SE PODRAN REPRODUCIR FORMATOS ACEPTADOS POR EL MEDIA PLAYER, PARA ESTE CASO SI SI QUIERES REPRODUCIR FORMATOS COMO MP4, 3GP O OTROS NO TAN COMUNES, DEBES INSTALAR LOS CODEC Y ASOCIARLOS AL MEDIA PLAYER