Trucos Hacer sonar un wav de forma continua

Extraído del web del Guille.

Para conseguir esto de que un fichero de sonido se toque de forma "asíncrona" y que no acabe nunca, es decir que siga tocando cuando se acabe, se logra con unos parámetros que se le da a la función del API que hace sonar un fichero WAV.

Aquí tienes las declaraciones y los valores de las constantes a usar:

Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
        (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_ASYNC = &H1 'modo asíncrono. La función retorna una vez iniciada la música (sonido en background).

Const SND_LOOP = &H8 'La música seguirá sonando repetidamente hasta
                          'que la función sndPlaySound sea llamada de nuevo con un valor nulo para NombreWav (NULL).


'Para tocar un WAV de forma repetitiva, lo llamas así:
Call sndPlaySound(Archivo, SND_ASYNC + SND_LOOP)

'Para detener lo que se esté tocando
Call sndPlaySound(ByVal "", 0)



Trucos Trucos

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com