Reproducir sonido con Visual Basic

Enlace a la presentación de reproducción de sonidos
https://docs.google.com/presentation/d/1-Eo9Nx-sQPD5F-QmROSWOOvQE55BkJQrboE5aiaQmY4/edit?hl=en_US

Console.Beep()

Suena el speaker del pc.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

System.Media.SystemSounds.Beep.Play()

System.Media.SystemSounds.Asterisk.Play()

System.Media.SystemSounds.Exclamation.Play()

System.Media.SystemSounds.Hand.Play()

System.Media.SystemSounds.Question.Play()

El valor de systemSound debe ser uno de los miembros de la clase SystemSounds:

• Asterisk
• Beep
• Exclamation
• Hand
• Question

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

My.Computer.Audio.Play("c:\wav.wav")
My.Computer.Audio.Play("c:\wav.wav",AudioPlayMode.Background)

Reproducen en Background una sola vez un wav.

My.Computer.Audio.Play("c:\wav.wav", AudioPlayMode.WaitToComplete)

Reproducen en primer plano una sola vez un wav (no se puede parar).

My.Computer.Audio.Play("c:\wav.wav", AudioPlayMode.BackgroundLoop)
Reproducen en Background un wav en bucle infinito.


My.Computer.Audio.Stop()
Detiene una reproducción en segundo plano.

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Mediante el control AxWindowsMediaPlayer

Permite reproducir cualquier tipo de archivo soportado por el reproductor Windows Media Player (Wav, Mp3, midi, Avi).

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Mediante llamadas a las API de windows (mciSendString)

Dispositivos MCI (Media Control Interface)
Los siguientes dispositivos MCI se suministran con Windows:
    Dispositivo de sonido de CD
     Dispositivo secuenciador MIDI
     Dispositivo de vídeo con movimiento
     Dispositivo PIONEER LaserDisc
     Dispositivo VCR VISCA
     Dispositivo de sonido de onda




Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal _ uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer


'para cargar un archivo multimedia
mciSendString("open c:\avi.avi alias myDevice", Nothing, 0, 0)
'para iniciar la reproducción de un archivo multimedia
mciSendString("play myDevice", Nothing, 0, 0)


'para detener la reproducción de un archivo multimedia
mciSendString("stop myDevice", Nothing, 0, 0)