Reproducir un sonido
Publicado por Miguel (2 intervenciones) el 05/03/2001 15:25:41
Como puedo reproducir un sonido (wav)por un procedimiento .
Gracias
Gracias
Valora esta pregunta
0
Option Compare Database
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Public Sub ReproducirSonido()
Const SND_FILENAME = &H20000
Dim strArchivo As String
strArchivo = "C:\Ruta\del\Archivo.wav" 'Escribe aquí la ruta completa de tu archivo de sonido
Call PlaySound(strArchivo, 0, SND_FILENAME)
End Sub