Tabla de contenido
Es fácil reproducir archivos de sonido en formato WAV. Solo necesita saber el nombre de archivo del sonido que desea reproducir,
y decida si desea que la macro espere mientras se reproduce el sonido o no. Aquí hay un ejemplo:
Función de declaración pública sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName como cadena, _ ByVal uFlags tan largo) As Long Sub PlayWavFile (WavFileName como cadena, esperar como booleano) Si Dir (WavFileName) = "" Luego salga Sub 'no hay archivo para reproducir If Wait Then' reproducir sonido antes de ejecutar más código sndPlaySound WavFileName, 0 Else 'reproducir sonido mientras se ejecuta el código sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile () PlayWavFile "c: \ foldername \ soundfilename. wav ", False MsgBox" Esto es visible mientras se reproduce el sonido … "PlayWavFile" c: \ foldername \ soundfilename.wav ", True MsgBox" Esto es visible después de que el sonido termina de reproducirse … "End Sub
