| Pregunta: | 7104 - SONIDOS |
| Autor: | Alejandro De Agosto |
| Hola, quisiera saber si hay alguna otra forma de agregar un sonido a un proyecto vb5 sin tener que incrustar un ovjeto OLE. Si alguien me puede ayudar, le agradezco.
| |
| Respuesta: | Miguel Angel Perez Barria |
| Esto te puedo decir
Declare Function CorrerSonido Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Form_Activate() o Load Dim Sonido Sonido = CorrerSonido(CurDir$ & "\The Microsoft Sound.wav", 0, 0) End Sub Ojalá te sirva | |
| Respuesta: | Carlos Manuel Rodriguez |
| Espero que te sirva de ayuda:
' General: Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Form_Load() Dim iResult As Integer iResult = mciExecute("Play c:\windows\alarm.wav") End Sub ' Indica el path o locación donde se encuentra el archivo o la frecuencia de sonido en la sentencia (Play). Con estas sentencias puedes agregar un sonido a un proyecto o a un formulario, tambien puedes incluir estas sentencias en un objeto de tiempo y repetir el sonido cada vez que se termine, pero tienes que tener en cuenta cuanto dura el sonido y entonces al objeto de tiempo le das un intervalo correspondiente a la duración de la secuencia o del sonido. | |