HAces asi en un modulo pones esto :
'MODULO
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Declare Function sndStopSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As Long, ByVal uFlags As Long) As Long
Global Const SND_SYNC = 0
Global Const SND_ASYNC = 1
Global Const SND_NODEFAULT = 2
Global Const SND_LOOP = 8
Global Const SND_NOSTOP = 16
Y en declaraciones del formularios pones asi por ejemplo ,si vos queres que suene algo al apretas el Command1 el codigo sera asi :
'FORMULARIO
Private Sub Command1_Click()
Dim sonido as VAriant
sonido = sndPlaySound(App.Path + "\Tu_Archivo-wav", SND_SYNC)
'debes meter el archivo en la caprta del visual basic para que suene ok ?
End Sub
Cuando pases tu proyecto a alguien te conviene comprimir el .exe y debes agregarle todos los archivos de sonido al zip o rar .
Espero te sirva ,saludos .-. POALCO.-.
Autor
En línea
