¿Cómo agregar música de fondo a tu programa VB?
Hablando de guardar código en el módulo
Opción explícita
Función de declaración pública sndPlaySound Lib "winmm.H8
Const SND_NOSTOP = &H10
A continuación, pega el siguiente código donde quieras reproducir el archivo de sonido, como en el evento Click del botón de comando
Dim sFlags As Long
p>sFlags = SND_ASYNC o SND_NODEFAULT
sndPlaySound "FileName.Wav", sFlags
Reemplace FileName.Wav arriba con la ruta completa y el nombre del archivo de sonido que desea para reproducir
Si solo desea reproducir algunos sonidos comunes de Windows, como el sonido al salir de Windows, existe una manera más fácil de escribirlo
sndPlaySound "SystemExit",sFlags.
Reemplace SystemExit con estos parámetros y pruebe cómo suena
SystemStart
SystemExit
SystemDefault
SystemQuestion.
SystemAsterisk
SystemExclamation
SystemHand
La siguiente es la descripción de los parámetros utilizados por sFlags:
Descripción del parámetro
p>SND_SYNC Reproduce el archivo WAV especificado y regresa solo después de que el sonido deja de reproducirse
SND_ASYNC Reproduce el archivo WAV y continúa reproduciéndolo después de que el sonido comienza a reproducirse
SND_NODEFAULT si no se encuentra el archivo WAV, no se reproduce el sonido predeterminado
SND_NODEFAULT Si se encuentra el archivo WAV, no se reproduce el sonido predeterminado
SND_LOOP Reproduce el WAV. archivo continuamente hasta que se llame nuevamente a sndPlaySound. También agregue SND_ASYNC a la variable sFlag. De lo contrario, la aplicación se bloqueará. Para detener la reproducción del archivo wave, configure "FileName.Wav" en vacío.
SND_NOSTOP Regresa al principio del archivo WAV si el archivo se llama "Wave". Si el archivo wave ya se está reproduciendo, devuelve el comienzo del archivo wave.
SND_NOSTOP